Ende von Aufnahme erkennen 'bass.dll'

[EWeiss]

Machs mal so!

Delphi-Quellcode:

const
  um_MusicEnd = wm_User + 400;

Delphi-Quellcode:

  TfrmMain = class(TForm)
  private
    EndSync : HSync;
  protected
    procedure MusicEnd(var Msg: TMessage); message um_MusicEnd;
  public
  // ..
  end;

Delphi-Quellcode:

  procedure SyncProc(Handle: HSync; Channel, Data: DWORD; User: DWORD); stdcall;
  begin
    PostMessage(frmMain.Handle, um_MusicEnd, 0, 0);

  end;

Delphi-Quellcode:

  procedure TfrmMain.MusicEnd(var Msg: TMessage);
  begin

    // hier wird reingesprungen wenn der Stream endet
    // der mit ..
    EndSync := Bass_ChannelSetSync(Stream, Bass_SYNC_END, 0, @SyncProc, nil);
    // vorher in deiner Play Function initialisiert wurde (**** nicht hier ****)
  
    // hier sollte dann dein Code stehen was du tun willst wenn der stream beendet ist.

  end;

gruss Emil