Discussion :

[Cvbdev]

Bonjour,

Je veux pouvoir ouvrir mon lecteur de CD, n'ayant pas trouvé de fonction sous VB2005, j'utilise une API..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
    Public 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
 
Public Function OpenCd(ByVal lecteur As String)
        Return mciSendString(String.Format("set CDAudio!{0} door open", lecteur), Nothing, 127, 0)
 
    End Function

Mon lecteur s'ouvre bien mais quelques seconde aprés j'ai ce message d'erreur là ! Comment est-ce que je pourrais résoudre mon soucis ?

Un appel à la fonction PInvoke 'WindowsApplication5!WindowsApplication5.Fonction::mciSendString' a déséquilibré la pile. Cela peut se produire, car la signature PInvoke managée ne correspond pas à la signature cible non managée. Vérifiez que la convention d'appel et les paramètres de la signature PInvoke correspondent à la signature non managée cible.

D'avance merci
@+
Marc

[Cvbdev]

En Vb.net les Long font 64 bits par 32 d'où mon erreur...

En déclarant l'API de la sorte ça fonctionne nickel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As UInt32, ByVal hwndCallback As IntPtr) As UInt32

A ceux que ça pourra aider

[salrouge]

ouai c'etai la meme erreur dans mon code !
merci