Um den aktuellen Status zu Seite zu bringen: Ich habe nun die Aufnahme von Ton in Delphi gebracht.
Das ist der Code dazu. (Sollte der dem einen oder anderen bekannt vorkommen, ich habe ihn aus diesem Thread entnommen:
http://www.delphipraxis.net/7803-sound-aufnehmen.html)
Delphi-Quellcode:
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, mmSystem;
//Die Unit mmSystem muss hier stehen, sonst sind die Befehle nicht zu nutzen.
//...
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
//Aufnahme des Tons.
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;
procedure TForm1.Button2Click(Sender: TObject);
begin
//Beenden der Aufnahme und Speichern der Datei.
mciSendString('
STOP mySound',
nil,0,
Handle);
mciSendString('
SAVE mySound "c:\datei.wav"',
nil,0,
Handle);
mciSendString('
CLOSE mySound',
nil,0,
Handle);
end;
Nun versuche ich diese Datei zu konvertieren und will am Besten LAME benutzen. Wie kann ich das Einbinden? Sollte das nicht gehen, wie kann ich das sonst aus dem Programm heraus realisieren?
P.S: Ich habe mich derweil ein wenig in das Thema "Threads" reingelesen. Heißt, ich kann diese Konvertierung auch in einem Thread laufen lassen, was mir doch sicher geraten wird, oder?