用VC调用delphi做的DLL(50分)

  • 主题发起人 主题发起人 hptyy
  • 开始时间 开始时间
H

hptyy

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟用DELPHI做了一个DLL,
DELPHI中的声明:
function MyFun(var p:Pointer;var vSize:Int64;SourceFile: PChar;str: PChar):Boolean stdcall;
在VC中动态调用
_int64* s=0;
void* p=NULL;
HINSTANCE hinst;
hinst=LoadLibrary("DLL.dll");
typedef BOOL (__stdcall *ADDPROC)( void*, _int64*,char*,char*);

ADDPROC proc=(ADDPROC)GetProcAddress(hinst,"MyFun");
if(proc)
{
proc(p,s,"d://file.txt","happy");

}
第3个和第4个参数可以传进去,但是第1和第2两个参数传不进去?
 
尽量不要用Var类型
 
既然传的是指针了,也没必要用var来表示引用了.
var vSize:Int64 把这个改成 vSize : DWORD
var p:Pointer 改成 p:Pointer
试试
 
谢谢 :_Murray
可以传参数了
能加我QQ吗?330321364
 
我公司一般不让上QQ,有事MAIL吧
Murray2081@163.com
 
后退
顶部