Pchar et String

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

Code:

---

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:

---

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 8O

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

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

Code:

---

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) );

---

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


J'ai essayé ça aussi

Code:

---

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 :-)

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

en attendant, je cherche :idc:

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:

---

1 2 3 4 5

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

---

ce qui pour ton code donnerait :

Code:

---

1 2 3 4 5 6

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

---

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

Code:

---

1 2 3

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

---

Code:

---

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.. :(

Bonjour,

Dans les déclarations de variable :

Code:

---

1 2 3 4

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

---

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

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

Code:

---

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)


8O

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

Citation:

---

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:

---

1 2 3 4 5

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

---

ce qui pour ton code donnerait :

Code:

---

1 2 3 4 5 6

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

---

---

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..

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

help :?

Bonjour,

J'ai écrit :

Citation:

---

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:

---

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

---

J'aurais du écrire :

Code:

---

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.

Bonsoir,

Et si tu essaies celà :

Code:

---

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