Pchar et String

**mickael.be** · 20/02/2006, 21h26

Hello, ca fait 1h que je cherche mes erreurs, mais, nada, rien, quedalle, je trouve pas !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
(* encoder command-lines and output files *)
 commands:array [0..1] of pChar=(
	'oggenc.exe -o bass.ogg -', // oggenc (OGG)
	'lame.exe -b32 -h - news-' + FormatDateTime('dd-mmmm-yyyy',Date) +'.mp3' // lame (MP3)
  // 'lame.exe --alt-preset standard - bass.mp3' // lame (MP3)
 );

[Erreur] Unit1.pas(59): Types incompatibles : 'String' et 'PAnsiChar'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
(* encoder command-lines and output files *)
 commands:array [0..1] of pChar=(
	'oggenc.exe -o bass.ogg -', // oggenc (OGG)
	'lame.exe -b32 -h - news-' + PChar(FormatDateTime('dd-mmmm-yyyy',Date)) +'.mp3' // lame (MP3)
  // 'lame.exe --alt-preset standard - bass.mp3' // lame (MP3)
 );

idem !
[Erreur] Unit1.pas(59): Types incompatibles : 'String' et 'PAnsiChar'

Je deviens fou

Celui qui trouve.. chapeau !
newbee on the place..

**Pedro** · 20/02/2006, 21h29

Salut

Je ne sais pas si c'est possible mais essaie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
(* encoder command-lines and output files *)
 commands:array [0..1] of pChar=(
   PChar('oggenc.exe -o bass.ogg -'), // oggenc (OGG)
   PChar('lame.exe -b32 -h - news-' + FormatDateTime('dd-mmmm-yyyy',Date) +'.mp3') // lame (MP3)
  // 'lame.exe --alt-preset standard - bass.mp3' // lame (MP3)
 );

**mickael.be** · 20/02/2006, 21h33

Ta proposition:
[Erreur] Unit1.pas(59): Expression constante attendue

J'ai essayé ça aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
(* encoder command-lines and output files *)
 commands:array [0..1] of (
   PChar('oggenc.exe -o bass.ogg -'), // oggenc (OGG)
   PChar('lame.exe -b32 -h - news-') + FormatDateTime('dd-mmmm-yyyy',Date) + PChar('.mp3') // lame (MP3)
  // 'lame.exe --alt-preset standard - bass.mp3' // lame (MP3)
 );

c'est encore pire, même si ma logique est plutot bonne :-)

**mickael.be** · 20/02/2006, 21h47

buté 1h30 sur une connerie comme ça, jamais eu

en attendant, je cherche :idc:

**Graffito** · 20/02/2006, 21h51

Bonjour,

J'ai pas bien saisi le problème, mais si tu veux passer comme paramètre un Pchar pointant sur un tableau de char (terminé par un NULL) tu peux faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
var Ptr : PChar ; S:string ;
begin
S:='ABCD'+#0 ;
Ptr:=@S[1] ; 
...

ce qui pour ton code donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
var S0,S1 : string ;
//...
S0:='oggenc.exe ...'+#0
S1:='lame.exe ...'+#0
commands[0]:=@S0 ;
commands[1]:=@S1 ;

**Pedro** · 20/02/2006, 21h51

Oui donc comme je le pensais, je crois qu'il va falloir que tu fasses l'initialisation dans le code.
Genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
commands[0]:=PChar('...');
commands[1]:=PChar('...');

**mickael.be** · 20/02/2006, 22h13

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
var S0,S1 : string ;
//...
S0:='oggenc.exe ...'+#0
S1:='lame.exe ...'+#0
commands[0]:=@S0 ;
commands[1]:=@S1 ;

je voudais bien tester ceci donc je met S0, S1 dans var
mais commands[0] et [1] je le met ou ?

je suis dans les variables générales..

**Graffito** · 21/02/2006, 10h02

Bonjour,

Dans les déclarations de variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
var
...
   commands:array [0..1] of Pchar ;
Begin

**lapec_and_cie** · 21/02/2006, 10h50

salut mickaelmediaprod,

Essaye de remplacer tes PChar par des PAnsiChar, et ça devrait fonctionnner... En effet tu dois caster directement ta chaîne de caractère de type string...

A plus,

Christopher

**mickael.be** · 21/02/2006, 11h24

J'ai aucune erreur, mais le String est apparament codé dans un autre format..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
var
 win:HWND=0;
 input:integer;				// current input source
 encoder:integer;			// current encoder
 rchan:HRECORD=0;	// recording/encoding channel
 chan:HSTREAM=0;			// playback channel
 commands:array [0..1] of Pchar; // Tableau 1
 files:array [0..1] of pChar=('temp.ogg', 'temp.mp3');
 
....
 
procedure TForm1.FormCreate(Sender: TObject);
 var
  S0,S1 : string;
begin
 
  S0 := 'oggenc.exe -o '+ files[encoder] +' -';
  S1 := 'lame.exe -b '+ Bitrate +' -h - '+ files[encoder];
  commands[0] := @S0;
  commands[1] := @S1;
 
end;

Si je fais un ShowMessage de commands[0] ou [1] j'ai un truc qui ressemble à :

[carré] | TM (le sigle Trademark)

Ca m'a pas l'air d'être un string ça :o

**edam** · 21/02/2006, 11h41

Envoyé par Graffito

Bonjour,

J'ai pas bien saisi le problème, mais si tu veux passer comme paramètre un Pchar pointant sur un tableau de char (terminé par un NULL) tu peux faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
var Ptr : PChar ; S:string ;
begin
S:='ABCD'+#0 ;
Ptr:=@S[1] ; 
...

ce qui pour ton code donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
var S0,S1 : string ;
//...
S0:='oggenc.exe ...'+#0
S1:='lame.exe ...'+#0
commands[0]:=@S0 ;
commands[1]:=@S1 ;

**mickael.be** · 21/02/2006, 12h45

Si je met :

#0 ca ne change rien

et si je fais sans ; comme dans votre exemple, l'IDE me dit qu'il lui faut absolument..

**mickael.be** · 21/02/2006, 14h10

J'ai essayé PAnsiChar PChar partout, ca change rien :o

help

**Graffito** · 21/02/2006, 19h08

Bonjour,

J'ai écrit :

si tu veux passer comme paramètre un Pchar pointant sur un tableau de char (terminé par un NULL) tu peux faire ceci :

var Ptr : PChar ; S:string ;
begin
S:='ABCD'+#0 ;
Ptr:=@S[1] ;
...

Ce qui était correct,

Par contre, la suite était fausse et au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
commands[0]:=@S0 ; 
commands[1]:=@S1 ;

J'aurais du écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
commands[0]:=@S0[1] ; 
commands[1]:=@S1[1] ;

Désolé, il est parfois difficile de voir ses propres erreurs, quand on imagine que ce que l'on a écrit est ce que l'on a en tête.

**lapec_and_cie** · 21/02/2006, 23h48

Bonsoir,

Et si tu essaies celà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
commands:array [0..1] of pAnsiChar=(
   'oggenc.exe -o bass.ogg -', // oggenc (OGG)
   'lame.exe -b32 -h - news-' + FormatDateTime('dd-mmmm-yyyy',Date) +'.mp3'

A plus et bon dev,

Christopher

Pchar et String

Langage Delphi

Discussions similaires

Partager

Partager