Sounds gleichzeitig abspielen

[w4rheart]

Ist das mit der Bass.dll nicht möglich?

Wenn ich über die Suche bass.dll und buffer eingeben finde ich nur Tuts für Webradios oder Ähnliches...
Gehts oder gehts nicht?
Wenn ja, wie heisst das?

MfG

[turboPASCAL]

Doch, das geht auch mit der Bass.dll bzw. mit der BASSMIX.DLL.

Ich habe nur leider keine Zeit 'n Demo zu bauen (warscheinlich erst am WE).

[w4rheart]

^ Okay! Wäre sehr nett, wenn Du das machen könntest

MfG

[hathor]

Gerade getestet mit Bass.dll:

BASS_ChannelPlay(SineStream1, True) //oder false
BASS_ChannelPlay(SineStream2, True) //oder false
BASS_ChannelPlay(SineStream3, True) //oder false

geht nicht!
Wenn der nächste Stream gestartet wird, bricht der laufende Stream ab.

[alfold]

Ich weiss zwar nicht was/wie ihr es macht, aber ich kann zur gleichen Zeit die selbe wave abspielen ohne das ein sound abbricht!

Wie wäre es wenn er, das ganze auslagert in einen SoundThread!
Bei jedem Klick der ein Schuss darstellt wird ein neuer Thread gestartet!
Im thread selbst, brauch er nur zu überprüfen ob der sound zu ende ist und gibt den Thread wieder Frei. Eine Rückmeldung zum MainThread benötigt er ja im Prinzip nicht.
So brauch man sich keine Gedanken machen wie oft nun ein Schuss/Explosion kommt!

Soll nur als Anregung dienen

Gruss alfold

[w4rheart]

^Mit Threads kenne ich mich nicht so gut aus. Funktioniert das nicht einfach mit der BASS.DLL? Oder der Bassmix.dll?
Bei OpenAL ging das ja recht gut mit dem buffern...

MfG

[alfold]

jo, geht mit der Bass.dll

Delphi-Quellcode:

private
     schus1, schus2, schus3: HSTREAM;
    song1: string;

....
....
procedure TForm1.FormCreate(Sender: TObject);
begin
    if not BASS_Init(1, 44100, 0, Handle, nil) then
     Application.Terminate;

   song1:= 'g:\Musik\PLAYER1\schuss.wav';
        
   schus1:= BASS_StreamCreateFile(False, pchar(song1),0, 0,BASS_SAMPLE_SOFTWARE
                         {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
   schus2:= BASS_StreamCreateFile(False, pchar(song1),0, 0, BASS_SAMPLE_SOFTWARE
                         {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
   schus3:= BASS_StreamCreateFile(False, pchar(song1),0, 0, BASS_SAMPLE_SOFTWARE
                         {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
end;

procedure TForm1.btnplay1Click(Sender: TObject);
begin
    if (BASS_ChannelIsActive(schus1) = 0) then
       BASS_ChannelPlay(schus1, False)
    else
    if (BASS_ChannelIsActive(schus2) = 0) then
       BASS_ChannelPlay(schus2, False)
    else
    if (BASS_ChannelIsActive(schus3) = 0) then
       BASS_ChannelPlay(schus3, False)
end;
....
....

So hab ich es mal umgesetzt und es funct. Wenn es sein muss must Du natürlich mehr HSTREAM (schus) erzeugen. Es kommt darauf an wie lang die wav ist und damit Du genügend hast wenn 3 nicht reichen!

Besser währe natürlich ein soundthread

gruss alold