Grabar sonido desde un microfono
Buenas !!
mi pregunta es muy facil como puedo grabar sonido desde un microfono ? :) |
otra
me olvide de decirles que queria saber como grabar sonido/s con un microfono , sin componentes y solo por codigo !
|
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. |
y Este Codigo Amigo ??
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; |
Disculpas
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 !:rolleyes: |
La franja horaria es GMT +2. Ahora son las 11:09:10. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi