Hi
@urbanbruhin ich habe mir den
FKBassPlayer runter geladen und sogar angeschaut
Wen du die
unit FKBassPlayer; aufmachst wirst du unter
uses den Eintrag
U_BassPlayer finden.
U_BassPlayer greift direkt auf bass zu.
Jetzt öffnest du
U_BassPlayer suchst nach dem Eintrag
setFileToPlay(filename: string); wen gefunden dann äderst den vorhandenen code durch Siehe unten
Delphi-Quellcode:
procedure TBassPlayer.setFileToPlay(filename: string);
stFlags : DWORD;
begin
if BASS_ChannelIsActive(channel)=1 then
begin
BASS_StreamFree(channel);
end;
FFilename := filename;
stFlags: = BASS_STREAM_AUTOFREE or BASS_SAMPLE_FX:
channel:= THandle (BASS_StreamCreateFile(False, PChar(filename), 0, 0, stFlags)) or
THandle(BASS_CD_StreamCreateFile(PChar(filename), stFlags)):
{ THandle(BASS_FLAC_StreamCreateFile(False, PChar(filename), 0, 0, stFlags)) or
THandle(BASS_WMA_StreamCreateFile(False, PChar(filename), 0, 0, stFlags)) or
THandle(BASS_AAC_StreamCreateFile(PChar(filename), stFlags)); }
end;
wen du
THandle vor
StreamCreate setzt musst du die einzelne Dateien nicht auf die ext überprüfen wie (.mp3, .CDA, .mp4, ….. )!
Und nicht vergessen die
Unit basscd.pas zum Project hinzuzufügen und unter
Uses zu deklarieren!