[JDNA]

Hola amigos, gracias por responder mi anterior pregunta acerca de como grabar archivos WAV, lo que me aconsejaron era que utilizara el componente TMediaPlayer de Delphi, y si funciona, hice la prueba y funciona pero solo con archivos WAV que ya existen, no crea nuevos archivos WAV, ese es el gran inconveniente de ese componente.

Encontré componentes que realizan esa tarea pero por desgracia no son gratuitos, en una página (http://www.swissdelphicenter.ch/en/showcode.php?id=132) encontré el código utilizando la API de Windows, pero no funciona, lo probé con las dos entradas de la tarjeta de sonido, con el MIC y Line In, con ninguna funciona, habilite las entradas de grabación y primero hice la prueba si grababa sonido con un programa comercial, utilice el Sound Forge 7.0 y grababa desde las dos entradas, luego hice la prueba con el programa, y no funcionó, es más ni creó los archivos WAV.

Este es el código fuente, haber si alguien me puede decir que esta pasando y que otra forma puede haber para grabar sonido sin tener que utilizar un archivo WAV ya creado.



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;