Die neue Bass.dll Unterstützt
Unicode und
ANSI. Wenn due keine Flag setzt, meint er der Text ist
ANSI. Du übergibst aber einen
Unicode. Dadurch knallt es.
Änder mal den Aufruf so ab:
Delphi-Quellcode:
function TMeMPPlayer.MeMP_CreateStream(aFilename: String): DWord;
var flags: DWORD;
begin
if (LowerCase(ExtractFileExt(aFilename)) = '.mp3') then //Normalerweise sollte LowerCase auch gehen.
flags := BASS_STREAM_PRESCAN or BASS_UNICODE
else
flags := BASS_UNICODE;
result := BASS_StreamCreateFile(False, PChar(aFilename), 0, 0, flags);
end;
Gruß NickelM