How do you convert this function (C++) to vb6

kimi40 · Mar 8, 2006, 12:16 AM

Hi guys, i`m stuck here. I`m using a DLL developed from VC++ to be use with VB6. This is a function that i`m stuck. It crashed when i call the function

VC++ (Protocol.dll)
Protocol_API READERERROR WINAPI SelApp(WORD Size, LPBYTE AID, LPBYTE Response,uint16 slot);

VB6
Declare Function SelApp Lib "Protocol.dll" Alias "_SelApp@16" (ByVal Size As Integer, ByVal AID As String, ByVal Response As String, uint16 As Long) As Long

Please help me

Thanks.

UberLord · Mar 8, 2006, 12:46 PM

Try this

Declare Function SelApp Lib "Protocol.dll" Alias "_SelApp@16" (ByRef Size As Long, ByRef AID As Any, ByRef Response As Any, ByRef uint16 As Long) As Long

kimi40 · Mar 9, 2006, 01:01 PM

Ok Thanks.

But it turns out that I`m missing the one of the 'ByVal' thing. HEHEHE

Thank You for your reply.

Mar 8, 2006, 12:16 AM	#1
kimi40 HardwareHeaven Junior Member Join Date: Jun 2003 Posts: 34 Rep Power: 0	How do you convert this function (C++) to vb6 Hi guys, i`m stuck here. I`m using a DLL developed from VC++ to be use with VB6. This is a function that i`m stuck. It crashed when i call the function VC++ (Protocol.dll) Protocol_API READERERROR WINAPI SelApp(WORD Size, LPBYTE AID, LPBYTE Response,uint16 slot); VB6 Declare Function SelApp Lib "Protocol.dll" Alias "_SelApp@16" (ByVal Size As Integer, ByVal AID As String, ByVal Response As String, uint16 As Long) As Long Please help me Thanks.

Mar 8, 2006, 12:46 PM	#2
UberLord A Legend in Underwear Join Date: May 2002 Location: Unknown Posts: 5,255 Rep Power: 0	Try this Declare Function SelApp Lib "Protocol.dll" Alias "_SelApp@16" (ByRef Size As Long, ByRef AID As Any, ByRef Response As Any, ByRef uint16 As Long) As Long __________________ Gentoo Linux - Developer (baselayout) Read my blog "I contend that we are both atheists. I just believe in one fewer god than you do. When you understand why you dismiss all the other possible gods, you will understand why I dismiss yours." Stephen Roberts

Mar 9, 2006, 01:01 PM	Thread Starter #3
kimi40 HardwareHeaven Junior Member Join Date: Jun 2003 Posts: 34 Rep Power: 0	Ok Thanks. But it turns out that I`m missing the one of the 'ByVal' thing. HEHEHE Thank You for your reply.