Grabar sonido desde un microfono

[gaston260]

Buenas !!

mi pregunta es muy facil como puedo grabar sonido desde un microfono ?

[gaston260]

me olvide de decirles que queria saber como grabar sonido/s con un microfono , sin componentes y solo por codigo !

[dec]

Hola,

Echa un vistazo a Wave Audio de Delphi Area. Aunque se trata de un paquete de componentes... no sé si te valdrá, al menos para estudiar su funcionamiento, si quieres, puesto que su código fuente está disponible.

[gaston260]

Encontre este codigo por la web pero no se ?! creo que falta algo ? , mis conocimientos no son avanzados para darme cuenta que es lo que falta ! , sirve esto ?

uses mmSystem;
{....}

procedure TForm1.Button1Click(Sender: TObject); // Record
begin
mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle);
mciSendString('SET mysound TIME FORMAT MS ' + // set time
'BITSPERSAMPLE 8 ' + // 8 Bit
'CHANNELS 1 ' + // MONO
'SAMPLESPERSEC 8000 ' + // 8 KHz
'BYTESPERSEC 8000', // 8000 Bytes/s
nil, 0, Handle);
mciSendString('RECORD mysound', nil, 0, Handle)
end;

procedure TForm1.Button2Click(Sender: TObject); // Stop
begin
mciSendString('STOP mysound', nil, 0, Handle)
end;

procedure TForm1.Button3Click(Sender: TObject); // Save
var
verz: String;
begin
GetDir(0, verz);
mciSendString(PChar('SAVE mysound ' + verz + '/test.wav'), nil, 0, Handle);
mciSendString('CLOSE mysound', nil, 0, Handle)
end;

[gaston260]

Quiero pedir disculpas por lo dicho anteriormente ! , el programita anda correctamente ! , lo que paso fue que el path no fue el esperado y por eso no encontraba el archivo correcto !

Con este programita se puede grabar el sonido ! , todavia no lo probe con los distintos dispositivos con los que puedo grabar , ahora lo voy a hacer ! , cualquier sugerencia me gustaria que me lo hicieran saber !