Discussion :

[Cirdan Telemnar]

je sais ce n'ai pas logique de faire du VB6 apres du VB.Net mais on choisi pas ce que l'on veux faire

voila j'ai une importation de fonction de dll en VB.NET comme ceci:

Code :

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

1
2
3
4
5
6
<DllImport("Madll.dll", EntryPoint:="_Mafonction@0")> _
    Public Function Mafonction( _
        <InAttribute()> ByVal Arg1 As String, _
        <OutAttribute()> ByVal Arg2 As IntPtr, _
        <OutAttribute()> ByRef Arg3 As Integer) As Boolean
    End Function

qui peut me dire ce qui colle pas dans ma traduction

Code :

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

1
2
3
4
Public Declare Function Mafonction Lib "Madll.dll" Alias "_Mafonction@0" ( _
    ByVal Arg1 As String, _
    ByVal Arg2 As String, _
    ByRef Arg3 As Integer) As Boolean

[ThierryAIM]

je sais ce n'ai pas logique de faire du VB6 apres du VB.Net mais on choisi pas ce que l'on veux faire

voila j'ai une importation de fonction de dll en VB.NET comme ceci:

Code :

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

1
2
3
4
5
6
<DllImport("Madll.dll", EntryPoint:="_Mafonction@0")> _
    Public Function Mafonction( _
        <InAttribute()> ByVal Arg1 As String, _
        <OutAttribute()> ByVal Arg2 As IntPtr, _
        <OutAttribute()> ByRef Arg3 As Integer) As Boolean
    End Function

qui peut me dire ce qui colle pas dans ma traduction

Code :

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

1
2
3
4
Public Declare Function Mafonction Lib "Madll.dll" Alias "_Mafonction@0" ( _
    ByVal Arg1 As String, _
    ByVal Arg2 As String, _
    ByRef Arg3 As Integer) As Boolean

Si, en plus, on avait un peu plus de détails sur l'erreur, on ne s'en plaindrai pas

[Cirdan Telemnar]

je peux pas t'en donner plus le prog plante et c'est tous

[Cirdan Telemnar]

la fonction a l'origine en C++ c'est ca

Code :

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

BOOL Mafonction(char *Arg1, unsigned char *Arg2, long *Arg3)

[Cirdan Telemnar]

j'ai remplacer

Code :

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

ByVal Arg2 As String, _

par

Code :

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

ByVal Arg2 As Long, _

mon programme plante toujour autant je sais pas d'ou ca peu venir

[Cirdan Telemnar]

en remettant le string et en lui passant VbNullString en paramètre
j'ai ce message d'erreur qui apparais

Run-time error '49'

Bad DLL calling convention

[jmfmarques]

<DllImport("Madll.dll", EntryPoint:="_Mafonction@0")> _
Public Function Mafonction( _
<InAttribute()> ByVal Arg1 As String, _
<OutAttribute()> ByVal Arg2 As IntPtr, _
<OutAttribute()> ByRef Arg3 As Integer) As Boolean
End Function

Tu dis que celà est écrit dans ton appli VB.NET.

Edite alors le projet VB.NET, vois quand la fonction est appelée et, avant de l'exécuter fais un msgbox des paramètres que tu lui passes, pour voir ce qu'ils sont... et dis nous...
Confirme-nous qu'à l'exécution, elle renvoie un True ou uin False.


Es-tu enfin certain de ce que IntPtr ne serait pas une structure, qu'il te faudrait alors définir, bien évidemment...

[Cirdan Telemnar]

les paramètres sont comme ceci

Code :

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

1
2
3
4
5
6
7
8
Dim param1 As String
Dim param2 As IntPtr
Dim param3 As Integer
 
param2 = IntPtr.Zero
If (Mafonction(param1, param2, param3) = True) Then
        param2 = Marshal.AllocHGlobal(param3)
        If (Mafonction(param1, param2, param3) = True) Then...

en fait j'appel un première fois ma fonction avec comme valeur a param2 "IntPtr.Zero" pour que param3 me donne la taille que je doit allouer et rappel ma fonction pour remplir la mémoire

[jmfmarques]

param2 = IntPtr.Zero

Ceci est pour moi très net :
IntPtr est donc bien (je m'en doutais) une structure !

Montre-nous donc cette structure indispensable et qui ne peut s'inventer.

[Cirdan Telemnar]

voila la structure de IntPtr donner par MSDN

http://msdn2.microsoft.com/fr-fr/lib...r_members.aspx

[jmfmarques]

Vu... et c'est pire !

Car il s'agit là de pire qu'une structure : carrément un contrôle de VB.NET , contrêle qui a trois propriétés.

Je ne vois dans ces conditions pas comment tu pourrais faire !

Il te faut utiliser, dans un tel cas, d'autres DLL : toutes celles qu'utilise ce contrôle, pardi...

Et... à moins de savoir exactement ce que tu fais.....

[Cirdan Telemnar]

j'ai trouver avec du mal mais j'ai trouver enfait ma déclaration est bonne mais c'est les options de compilation de ma dll qui ne sont pas bonne pour mon prog en VB6

il faut en faite remplacer l'option de compilation "Calling convention = __cdecl*" par "__stdcall" tous simplement merci MSDN car trop dure a trouver dans l'aide