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

[I love Delphi]

Bin mal wieder erstaunt wie einfach manche Sachen in Delphi funktionieren.

Kann man den Ton auch direkt von der Soundkarte abgreifen, so dass das aufgenommen wird, was gerade läuft?
Und wie ging das mit der Wait-Funktion die im Tutorial genannt wurde???

MfG Florian

[Ich habe schon bemerkt, dass dieser Thread uralt ist]

[Sunlight7]

Hallo, I love Delphi
und herzlich willkommen in der

Zitat von I love Delphi:

Kann man den Ton auch direkt von der Soundkarte abgreifen, so dass das aufgenommen wird, was gerade läuft?

Jein, es kommt auf Deine Soundkarte an, was die alles kann, bzw ...

Zitat von Sunlight7:

Das was aus dem Lautsprecher kommt kann eine Wave oder MIDI Wiedergabe sein, Vom Line-In, CD, DAT, ... Was halt Deine Soundkarte so kann.

Starte einfach mal den Windows Mixer (sndvol32.exe /r) und schaue, was Du alles aufnehmen kannst.

Zitat von I love Delphi:

Und wie ging das mit der Wait-Funktion die im Tutorial genannt wurde???

Ich mag jetzt grad nicht den ganzen Thread nochmals durchlesen, zitiere bitte den Beitrag oder verlinke dorthin, was Du meinst
Dies solltest Du generell tuen, dann kann man Dir leichter helfen, wenn man weiß, was Du genau meinst

Mfg Sun

[I love Delphi]

sndvol32.exe gibt es unter Vista anscheinend nicht mehr. Auch der interne Audiorecorder von Vista ist für den A... . Optionen bietet der nämlich auch keine mehr an. Wo kann ich denn dan rausfinden was meine Soundkarte alles kann?

Im ersten Beitrag dieses Threads ging es ja hauptsächlich ums aufnehmen. Es wurde aber auch erwähnt, dass man Sound abspielen kann und, so nehme ich an, mit WAIT pausieren kann. Das mit dem Abspielen ist kein Problem, WAIT will nicht so wie ich will.

Danke,
I Love Delphi

[Sunlight7]

Ich rate mal, in Vista heißt das dann sndvol.exe, egal, schau Dich einfach mal durchs Startmenü nach einer Lautstärkeregelung.
Oder Du guckst ob sich ein kleiner Lautprecher auf Deiner Taskliste befindet (Doppelklicken)

Der Befehl WAIT in MCI bedeutet nicht, das eine Pause gemacht werden soll, sondern, das die Steuerung erst an Dein Programm zurück gegeben wird, sobald der MCI Befehl ausgeführt wurde.
D.h. wenn Du etwas abspielst mit MCI und WAIT angibst reagiert Dein Programm solange nicht mehr, bis das abspielen fertig ist.

[I love Delphi]

Wie ich die Lautstärkeregelung finde, war mir klar. Ich dachte jedoch, dass du etwas anderes meinst, dass dieser LAutstärkeregelung echt nichts zu entnehmen ist. Habe mal einen Screenshot angehängt.

Da mit Wait ist mir peinlich...

MfG,
I love Delphi

[Sunlight7]

Wie das mit dem Windows Lautstärkeregelung funktioniert, schaust Du am Besten in der Windows Hilfe nach.

[Jeff93]

Habe eine kurze Frage wenn man die Audio-Ausgabe mit
mciSendString('RECORD mySound',nil,0,Handle); aufgezeichnet hat und dann gestoppt hat, wie kann man nun das Aufgezeichnete löschen ohne
mciSendString('CLOSE mySound',nil,,FHandle); zu benutzen?

[dutyfree]

Hallo,
mal ne kurze Frage, wie kann ich denn zwischen Mikrofon und Stereo Mix wechseln?
Wenn ich jetzt aufnehme nimmt er halt mein Mikro auf, wie wechsel ich zum Stereo mix (Also, dass er das aufnimmt, was aus der Soundkarte rauskommt)
Thx

Edit:

Noch eine Frage:

Ich hab halt diesen Code:

mciSendString('SAVE mySound "c:\one.wav"',nil,0,Handle); Und eine Variable wo ein Pfad drin ist, wie kann ich die Datei jetzt in den Pfad speichern?

mciSendString('SAVE mySound pfad+"one.wav"',nil,0,Handle); Habe ich schon versucht, geht nicht.

[Sunlight7]

mciSendString(PChar('SAVE mySound '+pfad+'"\one.wav"'), nil, 0, Handle);

[DevStar]

Habe den Beispiel-Code mal getestet. Funktioniert auch.

Allerdings gibt es keine Änderung der wav-Datei, wenn ich hier die Werte ändere:

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?