OpenAL: Ich höre nix :-D

[Chefx]

Hey DPs,

ihr werdet denken ich hab nicht mehr alle Tassen im schrank .
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:
AlSourcef ( source, AL_GAIN, 1.0 ); // mit 0.5 und 10 probiert verändert aber es kommt nix raus
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

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

[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