Sounds gleichzeitig abspielen

[w4rheart]

Sooo, Freunde der Sonne
Frohe Weihnachten euch Allen

Ich habe es immer noch nicht hingekriegt
Ich benutze jetzt OpenAL und kann damit auch Sounds übereinander abspielen!
Allerdings werden die Sounds nicht richtig abgespielt.

Der Explosion Sound wird zu leise und zu kurz(!!!) abgespielt.
Der Schuss Sound wird immer 2x abespielt (???)

Wie das sein kann verstehe ich nicht:
Hier ein Ausschnitt aus meinem Code:

Delphi-Quellcode:

..
const
  numbuffers = 2;
  numsources = 2;
  schuss = 0;
  explosion = 1;

var
  buffer : array [0..numbuffers] of TALuint;
  source : array [0..numsources] of TALuint;
  sourcepos: array [0..2] of TALfloat= ( 0.0, 0.0, 0.0 );
  sourcevel: array [0..2] of TALfloat= ( 0.0, 0.0, 0.0 );
  listenerpos: array [0..2] of TALfloat= ( 0.0, 0.0, 0.0);
  listenervel: array [0..2] of TALfloat= ( 0.0, 0.0, 0.0);
  listenerori: array [0..5] of TALfloat= ( 0.0, 0.0, -1.0, 0.0, 1.0, 0.0);

implementation

constructor TSound.Create;
var
  argv: array of PChar;
  format: TALEnum;
  size: TALSizei;
  freq: TALSizei;
  loop: TALInt;
  data: TALVoid;

begin
  AlutInit(nil,argv);

  AlGenBuffers(numbuffers, @buffer);
  AlutLoadWavFile('sounds/bomb.wav', format, data, size, freq, loop);
  AlBufferData(buffer[explosion], format, data, size, freq);
  AlutUnloadWav(format, data, size, freq);

  AlutLoadWavFile('sounds/laserbeamz.wav', format, data, size, freq, loop);
  AlBufferData(buffer[schuss], format, data, size, freq);
  AlutUnloadWav(format, data, size, freq);

  AlGenSources(numsources, @source);
  AlSourcei ( source[schuss], AL_BUFFER, buffer[schuss]);
  AlSourcef ( source[schuss], AL_PITCH, 1.0 );
  AlSourcef ( source[schuss], AL_GAIN, 1.0 );
  AlSourcefv ( source[schuss], AL_POSITION, @sourcepos);
  AlSourcefv ( source[schuss], AL_VELOCITY, @sourcevel);
  AlSourcei ( source[schuss], AL_LOOPING, loop);

  AlSourcei ( source[explosion], AL_BUFFER, buffer[explosion]);
  AlSourcef ( source[explosion], AL_PITCH, 1.0 );
  AlSourcef ( source[explosion], AL_GAIN, 1.0 );
  AlSourcefv ( source[explosion], AL_POSITION, @sourcepos);
  AlSourcefv ( source[explosion], AL_VELOCITY, @sourcevel);
  AlSourcei ( source[explosion], AL_LOOPING, loop );

  AlListenerfv ( AL_POSITION, @listenerpos);
  AlListenerfv ( AL_VELOCITY, @listenervel);
  AlListenerfv ( AL_ORIENTATION, @listenerori);
end;

procedure TSound.playsound ( pname : string );
begin
  if pname = 'schuss' then AlSourcePlay(source[schuss])
  else if pname = 'explosion' then AlSourcePlay(source[explosion]);
end;

MfG

[smart]

Zitat von w4rheart:

Sooo, Freunde der Sonne
Ich habe es immer noch nicht hingekriegt

Hi, mal eine dumme Frage, wieso nimmst Du nicht den MediaPlayer so wie lbccaleb es Dir vorgeschlagen hat. Da hast Du überhaupt keine Probleme und kannst so viele Sounds paralel abspielen wie Du möchtest und weniger Code hast Du auch?

[w4rheart]

Nunja, es hat bei mir nicht geklappt.
Bzw. wenn ich sounds übereinander abspielen wollte, oder den gleichen sound mehrmals, brach der eine immer ab.

MfG

[DelphiMini]

Probier es doch mit einem Thread,
der den Sound abspielt und dann
wieder gelöscht wird.
Und dann nimmst du für jeden Sound einen neuen Thread.

[w4rheart]

Okay hat sich erledigt, es funktioniert nun endlich
So fängt das neue Jahr schon mal gut an

Ich habe jetzt die Soundklasse aus Bloodyquests Game übernommen, so funktioniert es wudnerbar.
Das Problem lag vorhin an meinen wav files, irgendwie sind die kaputt gegangen
Ich weiss nich wie, allerdings konnte man die nicht mhr öffnen.

WIe auch immer.
Ein frohes neues Jahr wünsche ich euch!

MfG

[w4rheart]

Hallo nochmal!

Gibt es eine Möglichkeit OpenAl einzubinden ohne, dass man es vorher installieren muss?
Kann man nicht einfach die dlls ins Projektverzeichnis kopieren, so dass diese dann benutzt werden?
Ich habe schon die openal32.dll und alut.dll kopiert, allerdings kommt beim Start des Programms nun die Fehlermeldung, dass OpenAl nicht initialisiert werden konnte.
Braucht man noch weitere dlls dafür? Oder gibt es eine andere Möglichkeit dies zu realisieren?

Danke für eure Hilfe!

MfG
w4rheart

[BUG]

Evtl. ist das hier was für dich ... steht aber unter LGPL und muss noch kompiliert werden. Die DLL findest du auf der Seite. Ausprobiert habe ich es auch nicht.

[turboPASCAL]

Naja, ich hatte ja schon mal mit 'nem Zaunpfahl gewunken.
Da er aber nix mit der BASS.DLL machen will, hier ein Beispiel für die Leichtigkeit mit deren Umgang im Zusammenhang mit meiner kleinen SoundFX-Unit:

(Quelltexte und alles andere mit drum und dran)

[lbccaleb]

Zitat von turboPASCAL:

Naja, ich hatte ja schon mal mit 'nem Zaunpfahl gewunken.
Da er aber nix mit der BASS.DLL machen will, hier ein Beispiel für die Leichtigkeit mit deren Umgang im Zusammenhang mit meiner kleinen SoundFX-Unit

Das versteh ich jetzt nicht! Die beruht doch auf der Bass.dll???

[w4rheart]

Zitat von turboPASCAL:

Naja, ich hatte ja schon mal mit 'nem Zaunpfahl gewunken.
Da er aber nix mit der BASS.DLL machen will, hier ein Beispiel für die Leichtigkeit mit deren Umgang im Zusammenhang mit meiner kleinen SoundFX-Unit:

(Quelltexte und alles andere mit drum und dran)

Wow, ich habe bisher nirgends so ein leicht verständliches Beispiel mit der BASS.dll gefunden!
Das finde ich sehr schön, und es hat für mich auch funktioniert. Danke dafür!

Das einzige was noch fehlt ist, dass man die selbe datei (soundfile) mehrfach abspielen können müsste.
Wenn man momentan mehrmals auf zum Beispiel den "Bongo" Button klickt, wird der sound abgebrochen und von vorne abgespielt.
Es sollte aber so sein, dass der alte sound weiterspielt und der neue darüber.

Wie kann man das noch einfügen?

MfG