Wusste gar nicht, dass die bass.dll jetzt auch Messages verschickt. Bin aber in Sachen Bass schon länger nicht mehr auf dem Laufenden.
Ich würde es heute so machen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
hs := BASS_ChannelSetSync(sh, BASS_SYNC_END, 0, CallbackChannelSync, Cardinal(self));
end;
procedure CallbackChannelSync(
handle: HSYNC; channel, data, user: DWORD);
stdcall;
var Form1: TForm1;
begin
Form1 := TForm1(user);
Form1.SendMessage(Form1.Handle,WM_BASS_EOF,0);
end;
VG
Arno