一个关于用VB调用C++builder编写的DLL文件,DLL的API函数中存在函数指针。请各位高手给点意见!

Question

1、
dim pProcess as long 
dim strIP as string
dim intPort as integer
'假设你的STURCT结构的长度为223
const LEN_STRUCT AS LONG =223
dim byteArr(1 to LEN_STRUCT) as byte
pProcess=0
call startup(strip,intport,pprocess)
if pProcess<>0 then
   copymemory(byteArr(1),BYVAL pProcess,LEN_STRUCT)
end if或者
2、
dim de as deliverstr
dim p as long 
p=VarPtr(de)

Answer 1

先将HOST.DLL拷贝到系统　system32目录下模块中的函数申明：Declare Function Startup Lib "HOST.DLL" Alias "_Startup@4" (ByVal cLocalIp As String,byval iLocalPort as Integer,fProcessDeliver as deliverstr) As Booleandeliverstr 结构要自己按照ｂｃｂ的定义在ｖｂ里重新定义"_Startup@4" 中＠４是函数的入口，可以用写字板打开HOST.DLL，搜索_Startup看它后面的入口是多少其他请参阅
http://www.csdn.net/expert/topic/904/904721.xml?temp=.6873285