MciSendString [Résolu]

Signaler
Messages postés
8
Date d'inscription
vendredi 18 juin 2010
Statut
Membre
Dernière intervention
30 août 2010
-
Messages postés
141
Date d'inscription
mardi 24 avril 2007
Statut
Membre
Dernière intervention
6 avril 2012
-
Bonjour à tous.
Je cherche à developper une application permettant d'enregistrer le son de mon PC (OS : Windows 7)

J'ai quelques soucis avec la bibliothèque mciSendString.
Voici le code que j'utilise :

Public Class Form1
    Private Declare Function mciSendString Lib "Winmm.dll" Alias "mciSendStringA" _
    (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
    ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

    Dim Result As Long

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Initialisation
        Result = mciSendString("Open new type waveaudio alias  monwav", vbNullString, 0, 0&)
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Débuter l'enregistrement du son de la carte son
        Result = mciSendString("Record monwav", vbNullString, 0, 0&)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Arret de l'enregistrement
        Result = mciSendString("Stop monwav", vbNullString, 0, 0&)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'Création du fichier
        Result = mciSendString("Save monwav D:\TEST.wav", vbNullString, 0, 0&)
    End Sub

    Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
        Result = mciSendString("Close monwav", vbNullString, 0, 0&)
    End Sub
End Class


Tout à l'air de fonctionner, cependant le fichier crée fait à chaque fois 1ko.
Aurriez-vous une piste svp ?

Merci d'avance.

5 réponses

Messages postés
269
Date d'inscription
dimanche 31 mai 2009
Statut
Membre
Dernière intervention
12 mars 2011

Salut, j'ai cherché un peu sur Google
et il semblerai que ton programme fonctionne
uniquement si un micro est branché sur le PC...
J'ai même essayé, ton code fonctionne mais enregistre
uniquement les sons provenant du micro, et si il
n'y a pas de micro branché, le fichier wav crée
ne contiendra rien...

a+
Messages postés
8
Date d'inscription
vendredi 18 juin 2010
Statut
Membre
Dernière intervention
30 août 2010

Merci pour l'info. Cela explique bien des choses.
Je teste demain avec un micro.
Messages postés
8
Date d'inscription
vendredi 18 juin 2010
Statut
Membre
Dernière intervention
30 août 2010

En effet, avec un microphone ça marche.
Merci.
Messages postés
141
Date d'inscription
mardi 24 avril 2007
Statut
Membre
Dernière intervention
6 avril 2012

j'ai presque la même chose mais je veux enregistrer le son qui vient de l'autre utilisateur c-a-d de la casque et j'arrive pas a l'enregistrer...
Messages postés
141
Date d'inscription
mardi 24 avril 2007
Statut
Membre
Dernière intervention
6 avril 2012

bonjour,
est ce que possible d'enregistrer le son qui vient de la casque?

ordialement,