Problème utilisation Dll créée en delphi dans une appli VB6

Bonjour,

J'ai une fonction d'une Dll développée en delphi qui me renvoie un pChar.

Code:

---

1 2	function GetAllPumpItem(pIndex : integer) : pchar;stdcall; function GetAllPumpCount() : integer;stdcall;

---

Malheuresement je n'arrive pas à lire la valeur renvoyée dans mon application VB6.

Code:

---

1 2 3 4 5 6

Private Sub Form_Load() For i = 0 To GetAllPumpCount - 1 List1.AddItem (GetAllPumpItem(i)) Next i   End Sub

---

Avez vous une solution à ce problème j'ai beau chercher sur google je ne trouve rien.

Merci.

Bonjour,

je ne connais pas le Delphi mais en tapant "dll pchar VB6" sur Google, il me semble qu'on trouve pas mal de liens traitant ce sujet, entre autres ceux ci :

http://www.developpez.net/forums/d64...-visual-basic/

http://stackoverflow.com/questions/1...ithout-risking

http://stackoverflow.com/questions/2...i-dll-from-vb6

Essaye quelque chose comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Public Declare Function GetAllPumpItem Lib "NomDll.dll" (ByVal Index as Long) as Long   Private Function Get_AllPumpItem(Index As Long) As String Dim lPnt As Long lPnt = GetAllPumpItem(Index) Get_AllPumpItem = PtrToStrW(lPnt) End Function   Private Function PtrToStrW(ByVal nStrPtr As Long) As String Dim sString As String Dim nStrlen As Long   sString = ""   If nStrPtr <> 0 Then nStrlen = lstrlenW(nStrPtr) * 2 If nStrlen > 0 Then sString = String(nStrlen, " ") Call lstrcpyW(sString, nStrPtr) End If End If PtrToStrW = StrConv(sString, vbFromUnicode) End Function

---