Capture son

Salut,

Je cherche un fonction qui permettrait de capturer du son par le micro.

Si quelqu'un connait ça qu'il me fasse signe !


Merci

look by this way :regarde ce lien



DrJerome

Regarde ce lien aussi http://www.delphifr.com/codes/ECHANTILLONNAGE_SON/23939.aspx

bjr;

mciSendString('close all', nil, 0, 0); // Fermeture (au cas où)
mciSendString('open new type waveaudio alias capture', nil, 0, 0); // Ouverture du périphérique MCI
mciSendString('seek capture to start', nil, 0, 0); // Préparation de la capture
mciSendString('set capture samplespersec 44100', nil, 0, 0); // Qualité du son
mciSendString(PChar('set capture bitspersample ' ) , nil, 0, 0);
mciSendString('set capture channels 2', nil, 0, 0); // Nombre de canaux
mciSendString('record capture', nil, 0, 0);

En fait le son est mis en mémoire à ce stade. Ensuite on le sauvegarde sur un fichier comme ceci :

mciSendString(PChar('save capture "c:\test.wav"'), nil, 0, 0); // Enregistrement
mciSendString('stop capture', nil, 0, 0);
mciSendString('close capture', nil, 0, 0);

"Si tu veux du miel, résiste au piqure des abeilles"