16,748
社区成员
发帖
与我相关
我的任务
分享delphi调用VB编写的DLL函数
我在delphi调用VB编写的DLL函数碰到个问题，请各位大侠帮忙看下。
VB本身调用该DLL文件，按以下方式定义
Declare Function read Lib "JNDll.dll" Alias "rrrr" (ByRef syscode$, ByRef gas_total As Long) As Integer
在调用该DLL的VB中使用以下调用
Dim syscode$
Dim gastotal As Long
st As Integer
st = read(syscode, gastotal)
在VB中执行正确。
请教在delphi中该如何定义？
我在delphi中定义函数时，将变量syscode分别定义为string/widestring/pchar/PWideChar,gastotal分别定义为integer/longint/pinteger/PLongint，结果均报错。错误信息：
access violation as oX10002228:write of address 0x0045b2b0
VB本身调用该DLL文件，按以下方式定义
Declare Function read Lib "JNDll.dll" Alias "rrrr" (ByRef syscode$, ByRef gas_total As Long) As Integer
在调用该DLL的VB中使用以下调用
Dim syscode$
Dim gastotal As Long
st As Integer
st = read(syscode, gastotal)
在VB中执行正确。
请教在delphi中该如何定义？
我在delphi中定义函数时，将变量syscode分别定义为string/widestring/pchar/PWideChar,gastotal分别定义为integer/longint/pinteger/PLongint，结果均报错。错误信息：
access violation as oX10002228:write of address 0x0045b2b0
...全文
请发表友善的回复…
发表回复
hsfzxjy 2013-01-13
- 打赏
- 举报
read:function(var syscode:PChar
myjavauser 2013-01-13
- 打赏
- 举报
补充：DLL是用VC写的
hsfzxjy 2013-01-13
- 打赏
- 举报
read:function(var syscode:PChar;var gas_total:PInteger):Integer;stdcall;.....
怎么4楼发着发着就断了
myjavauser 2013-01-13
- 打赏
- 举报
我目前定义就是read:function(var syscode:PChar;var gas_total:PInteger):Integer
但是在执行时将报地址错，分别换成string/widestring/pchar/PWideChar,gastotal分别定义为integer/longint/pinteger/PLongint，报错信息一样
实在不知到底是何原因了
myjavauser 2013-01-12
- 打赏
- 举报
delphi中是动态加载DLL的，对于delphi编制的DLL，没发现错误
hsfzxjy 2013-01-12
- 打赏
- 举报
STDCALL
myjavauser 2013-01-12
- 打赏
- 举报
补充：
delphi函数定义我是这么定义的
read:function(var syscode:PChar;var gas_total:PInteger):Integer;
调用部分这么写的
H := LoadLibrary(pchar('JNDll.DLL'));
read:=GetProcAddress(H, 'rrrr');
errorno:=read(syscode,gas_total);
TSCLIB.dll 适用于delphi、vc、vb.net、jsp、java、asp.net、foxpro等，有大量编程案例参考，且有编程说明书、TSCLIB.dll文件、函数调用等，希望对你有帮助
