[VB6] Equivalance VB.Net -> VB6

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:

---

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:

---

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

---

Citation:

---

Envoyé par 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:

---

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:

---

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

---

---

:koi:

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

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

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

Code:

---

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

---

j'ai remplacer

Code:

---

ByVal Arg2 As String, _

---

par

Code:

---

ByVal Arg2 As Long, _

---

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

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

Citation:

---

<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...

les paramètres sont comme ceci

Code:

---

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

Citation:

---

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.

voila la structure de IntPtr donner par MSDN

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

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.....8O

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