OpenAL: Ich höre nix :-D

[Chefx]

Hey DPs,

ihr werdet denken ich hab nicht mehr alle Tassen im schrank :mrgreen:.
Ich hab angefangen mit OpenAL zu programmieren (tut:http://www.noeska.com/doal/) aber wenn ich das Programm dann fertig hab kommt kein ton(voll aufgedreht).
Ich hab schon die Zeile:

Delphi-Quellcode:

AlSourcef ( source, AL_GAIN, 1.0 ); // mit 0.5 und 10 probiert

verändert aber es kommt nix raus :gruebel:
Dann dachte ich ich hab die Lautsprecher lautlos. War auch nicht das Problem.
Da kann es ja nur noch am Code liegen.

Delphi-Quellcode:

uses ... , openal;
...
var
  Form1: TForm1;
  buffer: TALuint;
  source : TALuint; Quelle: 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);

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  AlSourcePlay (source);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  argv: array of PalByte;
  Format: TALEnum;
  Größe: TALSizei;
  Frequenz: TALSizei;
  loop: TALInt;
  Daten: TALVoid;
begin
  InitOpenAL;

  AlutInit (nil, argv);

  AlGenBuffers (1, @ buffer);
  AlutLoadWavFile ( 'ding.wav', Format, Daten, Größe, Frequenz, loop);
  AlBufferData (buffer, Format, Daten, Größe, Frequenz);
  AlutUnloadWav (Format, Daten, Größe, Frequenz);

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

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

procedure TForm1.FormDestroy(Sender: TObject);
begin
  AlDeleteBuffers (1, @ buffer);
  AlDeleteSources(1, @source);
  AlutExit();
end;

Ich hab kein Plan woran es liegt.

Ich danke für alle antworten die ich bekomme :-D

MfG
Chefx

[himitsu]

Erstmal die einfache Frage:
Ist das nötige OpenAL-Software&Treiber-Zeugs auch installiert?

[Chefx]

also OpenAL ist installiert.
Ich hab FlightGear(Flugzeugsimulator) und der nutzt OpenAL.
Müsste von daher auch alles drauf sein :mrgreen:

[Wal]

Der Code funktioniert.
Teste mit dem AlCapsViewer ob OpenAL von deiner Soundkarte unterstützt wird.

[Chefx]

hey,

sorry bei mir gibt es die Funktion nicht?
Ich hab gegoogelt aber nix gefunden.
Heißt die auch so?

[Wal]

Das Proggi gibt's auf der Creative Seite.
Creative Homepage

[Chefx]

also es ist überall ein yes außer:

Code:

EAX 3.0   NO
...
EAX 5.0   NO
X-RAM     NO

die openal32.dll ist auf version 6.14.357.22 und
die wrap_oal.dll ist auf version 2.1.8.1
unterstützt er es oder ist das nicht ok?

[Wal]

Bei mir:
openal32.dll 6.14.357.24
wrap_oal.dll 2.2.0.5
EAX auch nur 2.0

Habe die Inst-Dateien auch von der Creative Seite benutzt und nach deinem Threadstart erst installiert und es funzte auf anhieb mit meinem Netbook.

[Chefx]

was nimmst für eine Unit?
die von der http://www.noeska.com/doal/ weil die beispiele bei denn verwennden al, alut ,...?

[Gehstock]

Also der Code läuft bei mir ohne Probleme aber mir ist aufgefallen das er nicht alle wav dateien frisst