Capture son
cedricbi
Messages postés
185
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
21 mars 2011
-
4 sept. 2004 à 22:16
AmineTheGreat Messages postés 47 Date d'inscription mercredi 13 juin 2007 Statut Membre Dernière intervention 28 décembre 2010 - 17 juil. 2007 à 17:33
AmineTheGreat Messages postés 47 Date d'inscription mercredi 13 juin 2007 Statut Membre Dernière intervention 28 décembre 2010 - 17 juil. 2007 à 17:33
2 réponses
DRJEROME
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
4 sept. 2004 à 23:57
4 sept. 2004 à 23:57
look by this way :regarde ce lien
DrJerome :)
DrJerome :)
AmineTheGreat
Messages postés
47
Date d'inscription
mercredi 13 juin 2007
Statut
Membre
Dernière intervention
28 décembre 2010
17 juil. 2007 à 17:33
17 juil. 2007 à 17:33
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"
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"
