Sound aufnehmen

[overmoon]

Sound aufnehmen

Auf den Vorschlag von Matze habe ich aus zwei meiner Beiträge ein Tutorial zusammengebastelt. Vielleicht kann es irgendjemand irgendwann irgendwozu brauchen.

Also Dinge aufnehmen geht mit Delphi und der Unit mmSystem richtig einfach.

Der Schlüssel ist die Prozedur "mciSendString". Über diese Prozedur kann man die Komplette Aufnahme des Wave-Files machen.

1.) Wir müssen ein Audiogerät öffnen. Ich nenne es einfach mal "mySound".

mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mySound',nil,0,Handle);
2.) Nun müssen wir die Optionen für die Audioaufnahme einstellen. Da für gibt es einige Einstellungen:

- BitsPerSample (Wie genau wird ein analoger Wert abgetastet; meist 8 oder 16)

- Channels (Mono(1) oder Stereo (2))

- SamplesPerSec (Abtastungen pro Sekunde; 800,11025,22050,44100)

Damit wäre eigentlich alles angegeben, was man braucht. Damit es funktioniert, müssen noch zwei weitere Dinge angegeben werden. Lässt man diese weg, gibt es Probleme.

- BytesPerSec (= (BitsPerSample div 8)*Channels*SamplesPerSec )

- Alignment (= Channels*(BitsPerSample div 8) )

Die Prozedur zum Einstellen der Einstellungen sieht dann folgendermaßen aus:

Delphi-Quellcode:

mciSendString('SET mySound ' + 
                   'TIME FORMAT MS ' + 
                   'BITSPERSAMPLE 16 ' + 
                   'CHANNELS 2 ' + 
                   'SAMPLESPERSEC 44100 ' + 
                   'BYTESPERSEC 176400 ' + 
                   'ALIGNMENT 4', 
                   nil,0,handle);

3.) Das Starten der Aufnahme:

Das folgende erklärt sich eigentlich von selbst:

mciSendString('RECORD mySound',nil,0,Handle);
4.) Genauso einfach ist das Stoppen der Aufnahme:

mciSendString('STOP mySound',nil,0,Handle);
5.) Nach erfolgter Aufnahme wollen wir die Datei natürlich nicht im Nirvana des OS verschwinden lassen... wir müssen sie speichern.

Das geht folgendermaßen:

mciSendString('SAVE mySound "c:\datei.wav"',nil,0,Handle);

6.) Schließlich muss man noch das Audiogerät "mySound", welches man am Anfang geöffnet hatte, schließen.

mciSendString('CLOSE mySound',nil,0,Handle);
Und wir sind fertig mit der Aufnahme.

7.) Weitere Aufgaben, die man über "mciSendString" machen kann sind z.B. noch: PLAY, WAIT und LOAD


8.) Die Aufnahmen werden nur leider recht groß, deshalb macht sich eine Konvertierung zu Mp3 recht gut.

Dazu bietet sich der lame - Encoder an.

Den bekommst du hier:
http://lame.sourceforge.net/

Dort bekommst du die lame_enc.dll und die lame.exe .
Kannst du eigentlich nehmen, was du willst, konvertieren beide brav waves nach Mp3.

Die lame.exe musst du z.B. einfach mit entsprechenden Parametern aufrufen.


Zur Lizenz vom Lame_Ecoder:

Zitat:

Can I use LAME in my commercial program?

Yes, you can, under the restrictions of the LGPL. The easiest
way to do this is to:

1. Link to LAME as separate library (libmp3lame.a on unix or
lame_enc.dll on windows)

2. Fully acknowledge that you are using LAME, and give a link
to our web site, www.mp3dev.org

3. If you make modifications to LAME, you *must* release these
these modifications back to the LAME project, under the LGPL.

overmoon

[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 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

Ich hab da nur das :
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

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

[Tropby]

Ich verstehe es einfach nicht

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?
WaveInAddBuffer(fHandle, @pwh, cWaveBufferSize)); Weiß grad net, ich mach das mit der Callback Procedure...

[Tropby]

Das geht bei mir nicht da kommt immer :

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

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

Edit: Fix, immer diese Tippfehler

[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?