![]() |
Sound aufnehmen
:idea: Sound aufnehmen :idea:
Auf den Vorschlag von Matze habe ich aus zwei meiner Beiträge ein Tutorial zusammengebastelt. Vielleicht kann es irgendjemand irgendwann irgendwozu brauchen. :roll: Also Dinge aufnehmen geht mit Delphi und der Unit mmSystem richtig einfach. :spin: 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".
Delphi-Quellcode:
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:
3.) Das Starten der Aufnahme:
mciSendString('SET mySound ' +
'TIME FORMAT MS ' + 'BITSPERSAMPLE 16 ' + 'CHANNELS 2 ' + 'SAMPLESPERSEC 44100 ' + 'BYTESPERSEC 176400 ' + 'ALIGNMENT 4', nil,0,handle); Das folgende erklärt sich eigentlich von selbst:
Delphi-Quellcode:
mciSendString('RECORD mySound',nil,0,Handle);
4.) Genauso einfach ist das Stoppen der Aufnahme:
Delphi-Quellcode:
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:
Delphi-Quellcode:
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.
Delphi-Quellcode:
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: ![]() 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:
overmoon |
Re: Sound aufnehmen
9.) Und zum Abschluss nun den ganzen Code in einem Stück:
Delphi-Quellcode:
Wie man sieht, ist das Aufnehmen eigentlich super-einfach. :coder:
//==============================================================================
// OnClick-Event des Buttons zum Starten der Aufnahme procedure TFormMain.ButtonAufnahmeStartenClick(Sender: TObject); begin mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mySound',nil,0,Handle); mciSendString('SET mySound ' + 'TIME FORMAT MS ' + 'BITSPERSAMPLE 16 ' + 'CHANNELS 2 ' + 'SAMPLESPERSEC 44100 ' + 'BYTESPERSEC 176400 ' + 'ALIGNMENT 4', nil,0,handle); mciSendString('RECORD mySound',nil,0,Handle); end; //============================================================================== // OnClick-Event des Buttons zum Beenden und Speichern der Aufnahme. procedure TFormMain.ButtonAufnahmeAnhaltenClick(Sender: TObject); begin mciSendString('STOP mySound',nil,0,Handle); mciSendString('SAVE mySound "c:\datei.wav"',nil,0,Handle); mciSendString('CLOSE mySound',nil,0,Handle); end; //============================================================================== 10.) Anmerkung (aus eigener Erfahrung) - Man sollte verhindern, dass der Benutzer das Programm beenden kann, während die Aufnahme läuft. - Die Umwandlung nach Mp3 sollte man in extra-Threads auslagern, damit gleich wieder mit der Aufnahme begonnen werden kann und nicht erst auf die MP3 gewartet werden muss. (Und auch hier gilt: Das Programm sollte nicht beendet werden solange der Thread noch läuft; aber das eklärt sich ja von selbst.) 11.) Bye :witch: |
Re: Sound aufnehmen
hi,
ich bekomm das gnze zwar ohne fehler zum laufen, allerdings herrsch in der erstellten wav datei nur eisernes schweigen. ich habe versucht, ein abgespieltes winamp lied aufzunehmen. in der systemsteuerung habe ich die lautstärke bei der aufnahme auch schon hochgeschruabt, aber es tut sich nix. woran könnte das liegen? *MFG* |
Re: Sound aufnehmen
Klick mal mit der rechten Maustaste auf das Lautsprecher-Symbol in der TNA und geh dann auf "Lautstärkeregelung öffnen".
Dann gehst du im aufpoppenden Fenster auf "Optionen|Eigenschaften". Daraufhin wählst du den RadioBuitton "Aufnahme" und drückst OK. Zurück im Hauptfenster kannst du mit Hilfe der CheckBoxen die Aufnahmequelle auswählen. Dann machst du das Fenster mit dem "X" zu und bist glücklich! ;-) |
Re: Sound aufnehmen
Ich würde schätzen Du nimmst von der falschen Quelle auf.
Ich denke der Code ist für Line-In ( also Mikro)... Dann würde es also an der ersten Zeile liegen:
Delphi-Quellcode:
Statt WAVEAUDIO muss was anderes hin... :mrgreen:
mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mySound',nil,0,Handle);
|
Re: Sound aufnehmen
Zitat:
:cry: |
Re: Sound aufnehmen
^^ :? ^^
|
Re: Sound aufnehmen
Zitat:
|
Re: Sound aufnehmen
^^ seufz ^^
|
Re: Sound aufnehmen
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:27 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz