Discussion :

[Djelangelo]

Bonjour,

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

Code :

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

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 :

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

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.

[OhMonBato]

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

[Delbeke]

Essaye quelque chose comme ceci

Code :

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

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