pb调用delphi的dll文件就是出错，请大侠们指点一下。(100)

  • 主题发起人 主题发起人 lin315
  • 开始时间 开始时间
L

lin315

Unregistered / Unconfirmed
GUEST, unregistred user!
出现application terminated error:error calling external function read at line 2 in clicked event of object cb_1 of main.dll文件： library Project2;uses SysUtils, Classes; Function read(b1:pchar;d1:integer;a1:pchar):pchar; stdcall ; begin if (b1='1')and (a1='2')then Result:= '正确' else Result:= '错误'; a1:= Result; end ;{$R *.res} exports read;beginend.pb中的函数：public function long read (long b1,long d1,ref string a1) library "project.DLL" alias for "Read"请大侠帮帮看看，指点一下。
 
PB里的函数声名错了,delphi的PChar在PB里对应的是什么类型呀，应该不会是long类型吧.虽然没弄过PB,但我猜想应该是这样声名才行：public function string read (long b1,long d1,ref string a1) library "project.DLL" alias for "Read"
 
能不能在DLL文件中改呀。
 
dll文件我改成这样行不行： library Project2;uses SysUtils, Classes; Function read(b1:pchar;d1:integer;a1:pchar):integer; stdcall ; begin if (b1='1')and (a1='2')then Result:= 1 else Result:= 2 end ;{$R *.res} exports read;beginend.
 
救命呀，急急
 
脑子搞大了，那位大侠出手一下。
 
怎么人没有帮我呀。
 
Function read(b1:pchar;d1:integer;a1:pchar):integer; stdcall public function long read (long b1,long d1,ref string a1) library "project.DLL" alias for "Read"上面参数你都知道用refpublic function string read (string b1,string d1,string a1) library "project.DLL" alias for "Read"返回胡是string 而参数似乎不必ref
 
能不能改DLL中的函数呀。我总觉得函数声明那里有问题。我用DELPHI程序调用是正确的。
 
您必须登录或注册才可回复。

Similar threads

L
你能帮我为PB程序写一个DLL文件？我写的在DELPHI中能调用，可在PB中就不能调用。(200)
回复
3
查看
797
wz108
W
L
你能帮我为PB程序写一个DLL文件？我写的在DELPHI中能调用，可在PB中就不能调用。(200)
回复
9
查看
2K
kk2000
K
L
有什么办法把DLL的变量值输出？(100)
回复
3
查看
651
关门放狗
关
L
帮我看看那里出错好吗？关于调用DLL的问题。(100)
回复
5
查看
957
lin315
L
J
有一个用vc写的ocx控件，导入到Delphi 中不知如何使用，请大家指点一下。(100)
回复
2
查看
1K
张辉明
张
后退
顶部