next »

[ELCouz]

Hi

It's me again! 

with this code :

chn := BASS_StreamCreateFile(FALSE, pchar(fileplaylist[0]), 0, 0, BASS_STREAM_PRESCAN);

i could not get any filename to play that i put in my TStringlist!

This works :

chn := BASS_StreamCreateFile(FALSE, pchar('C:\test.mp3'), 0, 0, BASS_STREAM_PRESCAN);

but this won't :

fileplaylist.add('C:\test.mp3'); //first entry index 0
showmessage(fileplaylist[0]); //the messagebox show the correct filename C:\test.mp3
chn := BASS_StreamCreateFile(FALSE, pchar(fileplaylist[0]), 0, 0, BASS_STREAM_PRESCAN);

couldn't get the file to load!


Thanks

Regards,
Laurent

[ELCouz]

Damn Delphi 2009!

All string are unicode by default this cause some problem when converting string to pchar...

After a little bit of research found the solution ...ugly but it works!

chn := BASS_StreamCreateFile(FALSE, pansichar(ansistring(fileplaylist[0])), 0, 0, BASS_STREAM_PRESCAN);

Hope this can be useful to someone

Laurent

[Chris]

Hi
this  solution will work too

chn := BASS_StreamCreateFile(FALSE, pchar(fileplaylist[0]), 0, 0, BASS_STREAM_PRESCAN or BASS_UNICODE);

Chris