Thema: Delphi Sound aufnehmen

Einzelnen Beitrag anzeigen

Benutzerbild von Sunlight7
Sunlight7

Registriert seit: 17. Sep 2006
Ort: Sonnensystem, Zentral
1.522 Beiträge
 
Delphi 5 Standard
 
#81

Re: Sound aufnehmen

  Alt 27. Mai 2009, 06:58
Zitat von DevStar:
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
var
  Format: tWAVEFORMATEX;
begin
  with Format do
  begin
    wFormatTag := WAVE_FORMAT_PCM;
    nChannels := 1;
     wBitsPerSample := 8;
     nSamplesPerSec := 44100;
      nBlockAlign := nChannels * (wBitsPerSample div 8);
     nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
    cbSize := 0;
  end;
 wave := TWaveIn.Create;
 wave.OnData := OnData;
 wave.open(0);
 waveOutOpen(@fHandle, 0, @format, 0, 0, CALLBACK_NULL);
end;
Ich brauch das vox-Format ADPCM.

Weiß jemand wieso?
Wo hast Du hier ne Änderung? Du hast auf PCM, 8 Bit, 44.1 KHz, Mono eingestellt
Windows: Ja - Microsoft: Nein -> www.ReactOS.org
  Mit Zitat antworten Zitat