Private
Declare
Function mciSendString
Lib
"winmm.dll"
Alias
"mciSendStringA" (
ByVal lpstrCommand
As
String,
ByVal lpstrReturnString
As
String,
ByVal uReturnLength
As
Integer,
ByVal hwndCallback
As
Integer)
As
Integer
Private
Sub Button1_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Button1.Click
' record from microphonemciSendString(
"open new Type waveaudio Alias recsound", vbNullString, 0, 0)mciSendString(
"record recsound", vbNullString, 0, 0)
End
Sub
Private
Sub Button2_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Button2.Click
Bonjour,
ça marche avec :
save recsound c:\record.wav
Mais pas avec:
save recsound C:\Documents and Settings\Michel Come\Mes documents\Ma musique\rec.wav
SendString ne marche pas quand le chemin d' accès du fichier contient des blancs (spaces). Comment faire ?
OUI MAIS ...
Le code ci dessous marche. C'est à dire qu' il enregistre bien un son cadencé à 44100 Hz en stéréo 16 bits... Mais la qualité du son est très dégradée.
Je ne comprend pas pourquoi.
Que faire ?
Quelqu'un a-t-il des infos là dessus ? : Pourquoi MCI enregistre aussi mal ?