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