Hi,
Delphi-Quellcode:
procedure TFormPlayer.playClick(Sender: TObject);
var i: Integer; WaveData : TWaveData;
begin
Channel := BASS_StreamCreateFile(FALSE, PChar(playlist.items[i]), 0, 0, 0); //<---
i := playlist.ItemIndex; // <---
if i >= 0 then
BASS_StreamPlay(Channel, False, 0);
p1.Visible:= false;
Image1.Enabled:= false;
end;
Liegt es vieleicht daran, dass Du zuerst Channel auf Basis vin i = initial erzeugst, und dann erst i den Wert Deiner Selektion übergibst?
Ist nur so eine Idee, ich kenn dieses BASS.dll nicht..