comment je peux passer un tfilename en pchar ?

j utilise FMOD
j ai besoin de faire passer l adresse d un son depuis opendialog qui est donc un tfilename dans mon module fmusic_loadsong qui ne prends que des PChar

je fais comment ?

merci d avance

var monpchar:Pchar;
begin
if opendialog1.execute then
begin
getmem(monpchar,length(Opendialo1.Filename));
Monpchar:=pchar(Opendialo1.Filename);
// le paser a Fmod
freemem(monpchar);
end;
end;

voila,

Bon Coding ....

ManChesTer.


-------------------------------
Réponse au message :
-------------------------------

> j utilise FMOD
> j ai besoin de faire passer l adresse d un son depuis opendialog qui est donc un tfilename dans mon module fmusic_loadsong qui ne prends que des PChar
>
> je fais comment ?
>
> merci d avance
>
>