Laut Profil hast du Delphi 2009.
Das Tutorial ist noch nicht auf D2009 portiert, werde ich mal in Angriff nehmen. Man bekommt es zum Laufen, wenn man in der Methode TMeMPPlayer.MeMP_CreateStream die Flags um BASS_UNICODE erweitert. Also
Delphi-Quellcode:
function TMeMPPlayer.MeMP_CreateStream(aFilename: String): DWord;
var flags: DWORD;
begin
if (AnsiLowerCase(ExtractFileExt(aFilename)) = '.mp3') then
flags := BASS_STREAM_PRESCAN or BASS_UNICODE
else
flags := BASS_UNICODE;
result := BASS_StreamCreateFile(False, PChar(aFilename), 0, 0, flags);
end;
Dadruch wird der Parameter Filename von der bass.dll als WideChar interpretiert, was ja ein Char unter D2009 ist. Das müsste ich mal über Compiler-Schalter sauber einbauen. Auch das Laden der Plugins könnte noch Schwierigkeiten machen - stört aber nicht für die Basisfunktion.
Being smart will count for nothing if you don't make the world better. You have to use your smarts to count for something, to serve life, not death.