Bass v 2.4 Wav Mehrfach abspielen

[Corpsman]

Ich entwickle zwar unter Lazarus, aber das Problem dürfte auf Delphi übertragbar sein .

Mein Problem ist nun, dass ich mit der neuen Bass.dll eine Wav mehrfach abspielen möchte.

Laden funktioniert ( Handle wird gespeichert )

Das Abspielen funktioniert genau 1 mal

Wenn ich danach wieder auf den Button Klicke passiert nichts mehr

Was ist beim neuen Bass.dll anders als beim Alten ?

Könnt ihr mir weiter helfen ?

Im Anhang der Lazarus source ( müsste recht einfach nach Delphi portierbar sein ..)

Edit :

Also hier noch mal die Relevanten Source Stellen :

Delphi-Quellcode:

Procedure TForm1.LoadSound(Value: String; index: integer);
Begin
  If fileexists(Value) Then
    Sounds[Index] := BASS_StreamCreateFile(False, PChar(value), 0, 0, BASS_SAMPLE_FX)
  Else
    showmessage('Soundmanager : Could not find :' + Value);
End;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
  Soundpath := IncludeTrailingPathDelimiter(ExtractFilePath(paramstr(0)));
  setlength(sounds, 1);
  // Check if the Library Version is, correkt.
  If (BASS_GetVersion() Shr 16) <> Bassversion Then Begin
    Showmessage('Unable to init the Bass Library ver. :' + BASSVERSIONTEXT);
    halt;
  End;
  // Bass.dll initialisieren
  //    Finitialized := BASS_Init(-1, 44100, 0, h_Wnd, Nil);
  If Not Bass_init(-1, 44100, BASS_DEVIDE_DMIX, 0, Nil) Then Begin
    Showmessage('Unable to init the device.');
    halt;
  End;
  LoadSound(Soundpath + 'Menu_click.wav', 0);
End;


Procedure TForm1.Button1Click(Sender: TObject);
Begin
  //  BASS_ChannelStop(Sounds[0]);
  If Not BASS_ChannelPlay(Sounds[0], true) Then Begin
    showmessage('Unable to play.');
  End;
End;

Die MessageBox kommt nie, d.h. Bass Ansich hat wohl kein Problem mit dem Mehrfachen abspielen, auch wenn man nichts hört

[turboPASCAL]

Moin,

versuche mal an Stelle von BASS_StreamCreateFile die BASS_SampleLoad() - Funktion.

[rollstuhlfahrer]

du könntest auch versuchen, die Position wieder auf 0 (also auf den Anfang) zu setzen.

Bernhard

[Corpsman]

Sounds[Index] := BASS_SampleLoad(False, PChar(value), 0, 0, 0,BASS_SAMPLE_FX)
Dann Kommt Unable to Play.

BASS_ChannelSetPosition(Sounds[0], 0, 0); Hat auch nichts gebracht.

Was ich raus gefunden habe, wenn ich ein 2. Wave Lade, und dies nach dem 1. abspiele, dann kann ich danach beide in beliebiger Reihenfolge beliebig oft abspielen.

[Ghostwalker]

Moin,

ich hab mir mal dein Programm zur Brust genommen und so umgebaut,das es mit dem mehrfachen abspielen des sounds funktioniert.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

  Procedure LoadSound(Value: String; index: integer);
  Begin
    If fileexists(Value) Then
      Sounds[Index] := BASS_StreamCreateFile(False, PChar(value), 0, 0, BASS_SAMPLE_FX)
    Else
      showmessage('Soundmanager : Could not find :' + Value);
    //      messagebox(handle, Pchar('Could not find :' + Value), 'Error', MB_OK);
  End;

Var
  Soundpath: String;

Begin

  Soundpath := IncludeTrailingPathDelimiter(ExtractFilePath(paramstr(0)));
  setlength(sounds, 1);
  // Check if the Library Version is, correkt.
  If (BASS_GetVersion() Shr 16) <> Bassversion Then
  Begin
    Showmessage('Unable to init the Bass Library ver. :' + BASSVERSIONTEXT);
    halt;
  End;
  // Bass.dll initialisieren
  //    Finitialized := BASS_Init(-1, 44100, 0, h_Wnd, Nil);
  If Not Bass_init(-1, 44100, 0, 0, Nil) Then
  Begin
    Showmessage('Unable to init the device.');
    halt;
  End;
  LoadSound(Soundpath + 'Menu_click.wav', 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Erg:DWord;
Begin
  //Erst prüfen ob der Channel noch spielt. ggf. Stop
  if (BASS_ChannelisActive(sounds[0]) = BASS_ACTIVE_PLAYING) then
     Bass_ChannelStop(Sounds[0]);
  //Da der Channel bereits gespielt wurde oder gestopt wurde, ab zurück zum anfang.
  Bass_ChannelSetPosition(Sounds[0],0,BASS_POS_BYTE);
  //  BASS_ChannelStop(Sounds[0]);
  BASS_ChannelPlay(Sounds[0], true);
End;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  //Immer erst prüfen ob der channel läuft. sonst schepperts
  if (BASS_ChannelisActive(sounds[0]) = BASS_ACTIVE_PLAYING) then
     Bass_ChannelStop(Sounds[0]);
  BASS_StreamFree(sounds[0]);
  // Bass.dll freigeben
  BASS_Stop;
  BASS_Free;
end;

Ganzwichtig beim abspielen per Klick: erst prüfen ob der Channel bereits am dudeln ist und ggf. stoppen. Dann den Channel zurück auf den Anfang setzen.

[Corpsman]

den Diff habe ich noch nicht ganz verstanden, aber deine Version geht auch bei mir, nu heists das "Große" Projekt umbauen.

Vielen Dank für deine Hilfe.