Sound aufnehmen

[Tropby]

Wie geht denn das mit dem einzufügen ??

So ? :

Delphi-Quellcode:

  
Result := waveInOpen(@fHandle, aDevice, @Format, Cardinal(@waveInProc), cardinal(self), CALLBACK_FUNCTION);
for I := 1 to 5 do
  begin
    fWaveData := TWaveData.Create;
    fWaveData.Header.lpData := fWaveData.Data;
    fWaveData.Header.dwBufferLength := cWaveBufferSize;
    fWaveData.Header.dwFlags := 0;
    Result := waveInPrepareHeader(fHandle, @fWaveData.Header,cWaveBufferSize);
    Result := waveInAddBuffer(fHandle, @fWaveData.Header, cWaveBufferSize);
  end;

Und dann noch mal da wo ich die daten auswerte oder wie ??

[Sunlight7]

Jepp:

Delphi-Quellcode:

  
Result := waveInOpen(@fHandle, aDevice, @Format, Cardinal(@waveInProc), cardinal(self), CALLBACK_FUNCTION);
for I := 1 to 5 do
  begin
    fWaveData[i] := TWaveData.Create;
    fWaveData[i].Header.lpData := fWaveData[i].Data;
    fWaveData[i].Header.dwBufferLength := cWaveBufferSize;
    fWaveData[i].Header.dwFlags := 0;
    Result := waveInPrepareHeader(fHandle, @fWaveData[i].Header,cWaveBufferSize);
    Result := waveInAddBuffer(fHandle, @fWaveData[i].Header, cWaveBufferSize);
    // Aber eigentlich sollte man das Ergebnis vom Result prüfen ;)
  end;

Zitat:

Zitat von Tropby

Und dann noch mal da wo ich die daten auswerte oder wie ??

Noch n Jepp
In der WIM_DATA Nachricht steht drinne, welcher Buffer es ist, den schickste zurück in die Liste.

Am besten, Du machst Dir ein Array mit den Buffern.
Ich nutzte immer den dwUser, um einen Index vom Array zu setzen, so weiß ich einfach, welcher Buffer zurück in die Liste muß.

[Tropby]

Das mit dem dwUser verstehe ich nicht :oops:

Ich hab da nur das :

Delphi-Quellcode:

procedure waveInProc(hwi: HWAVEIN; uMsg: UINT; dwInstance, dwParam1, dwParam2 : DWord); stdcall;

Oder wie kann ich das übergeben ??

Sonst schreib ich da nachher noch den Falschen rein XD

[Sunlight7]

Das kannst Du in der WAVEHDR Struktur angeben :wink:

Zb:

Delphi-Quellcode:

fWaveData[i].Header.dwUser := i;

[Tropby]

Ich verstehe es einfach nicht :wall: :wall: :wall:

Delphi-Quellcode:

procedure waveInProc(hwi: HWAVEIN; uMsg: UINT; dwInstance, dwParam1, dwParam2 : DWord); stdcall;
var
  classinstance: TWaveIn absolute dwInstance;
begin
 if umsg = WIM_DATA then
 begin
   with classinstance do
   begin
     if fWaveData[???].Header.dwBytesRecorded = 0 then exit;
     fWaveData[???].Stream.Write(fWaveData[???].Data, fWaveData[???].header.dwBytesRecorded);
     if fWaveData[???].Header.dwFlags and MHDR_DONE = MHDR_DONE then
     begin

Wie komm ich da an die Indexe von dem Array ??

[Sunlight7]

In dem Parameter dwParam1 steht die Adresse vom WAVEHDR, den kannste "anzapfen".

Delphi-Quellcode:

...
var pwh:TWaveHeader;
...
pwh:=PWaveHeader(lParam)^;
...
WaveInAddBuffer(fHandle, @fWaveData[pwh.dwUser], cWaveBufferSize));

Eigentlich müsste das auc hfunktionieren, oder? :gruebel:

Delphi-Quellcode:

WaveInAddBuffer(fHandle, @pwh, cWaveBufferSize));

Weiß grad net, ich mach das mit der Callback Procedure...

[Tropby]

Das geht bei mir nicht da kommt immer :

Delphi-Quellcode:

pwh:=PWaveHeader(lParam)^;

Klammer auf erwartet aber Klammer zu gefunden ^^

Edit : PWaveHeader gibts bei mir nicht :( bei mir gibts nur PWaveHdr

[Sunlight7]

Jepp, dann mach dwParam1 draus, bei mir heißen die lParam und wParam, deshalb, hab nur von meinem Code rauskopiert :mrgreen:

Edit: Dann nimm den, PWaveHdr, is eh das gleiche :wink:

Edit: Fix, immer diese Tippfehler :roll:

[Tropby]

Misst jetzt stürtzt mir immer Delphi ab sobalt ich das ding starte :( :( :(

[Sunlight7]

Willkommen im Club, das hat ich auch mal ne Zeit bei meinem Projekt, läuft es ohne die IDE?