LoopFunktion

[Nils_13]

Hier habt ihr den Code:

Delphi-Quellcode:

procedure TFormPlayer.Image1Click(Sender: TObject);
const  BASS_ACTIVE_STOPPED = 0;
       BASS_ACTIVE_PLAYING = 1;
       BASS_ACTIVE_STALLED = 2;
       BASS_ACTIVE_PAUSED  = 3;
begin
 if BASS_ChannelIsActive(Channel) = BASS_ACTIVE_PLAYING then 
  BASS_Start();
  BASS_Start();
  BASS_ChannelPause(channel);
  position := 0;
  op1.Title  := 'Open Files';
    if not op1.Execute then exit;
    Channel := BASS_StreamCreateFile(FALSE, PChar(op1.FileName), 0, 0, 0);
    BASS_StreamPlay(Channel, False, 0);
    Image1.Enabled:= true;
    p1.Visible:= false;
end;