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

P
请大家帮帮我呀，我找了一个控件怎么编译通不过呀，他会报错（DesignEditors中的IsProxyClass）,不胜感激！(100分)
回复
3
查看
277
LiChaoHui
L
L
看看我的程序，为什么会出错？（关于VC调用DELPHI写的DLL）(100分)
回复
11
查看
191
lwaif
L
Y
急！编的一个VCL控件，在设置字体出现错误（Can Not Assign a Nil To a TFOnt）？代码如下 (50分)
回复
4
查看
338
飘摇客
飘
W
请高手给我分析一下这段代码，关于dll的。(100分)
2
回复
22
查看
321
ww20000309
W
B
大家帮我看一下这个DLL在D6中调用没问题，在PB中不能，我函数内容清空PB可以调用，为？(100分)
回复
2
查看
182
beer_xjx
B
后退
顶部