🚀 go-pugleaf

k p <wim_ok.SKASUJ@gazeta.pl> napisał(a): 

> Witam wszystkich.
> Czy ktoś wie jak z vb wywołać funkcję z dll-a napisaną w C, 
> która jako z parametrów ma pointer to pointer?
> Przykład:
> funkcja w dll-u jest zdefiniowana tak:
> int open(char *sPlik, MojTyp **ppPlik)
> 
> Próbowałem to zrobić tak:
> uchwyt = open(path, VarPtr(VarPtr(plik)))
> gdzie
> Dim path As String
> Dim plik As Long
> Private Declare Function open Lib "lib.dll" (ByVal sPlik As String, _
> 	ByVal ppPlik As Long) As Long
> ale vb nie pozwala na to zwracając błąd "Bad dll calling convention".
> 
> Czy da się w ogóle coś takiego zrobić w vb?
> Pozdrawiam.
> 



Udało się.
Funkcja w dll-u powinna być zdefiniowana tak:
int __stdcall open(char *sPlik, MojTyp **ppPlik)

w vb zadeklarowana tak:
Private Declare Function open Lib "lib.dll" (ByVal sPlik As String, _
 	ByRef ppPlik As Long) As Long
i wywołana tak:
uchwyt = open(path, plik)

Pozdrawiam wszystkich.

-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/