在线求9！！！如何在PB中调用Delphi编写的Dll

2004-08-28 05:46:14 455 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

国密SM4加解密SM2签名验签COM组件DLL 提供给第三方软件，调用COM组件DLL方式进行实现，如delphi、PB等。基于C#编写的COM组件DLL，可实现SM2签名验签，SM4加解密，100%适用于黑龙江省国家医保接口中进行应用。功能包括：国密SM4加密、SM4解密、SM2签名、SM2验签（有需要可联系加入） 1、调用DLL名称：JQSM2SM4.dll 加解密类名：JQSM2SM4.SM2SM4Util CLSID=5B38DCB3-038C-4992-9FA3-1D697474FC70 2、GetSM2SM4函数说明函数原型p. 阅读详情

Delphi编译的Dll中声明函数如下：
function ShowForm(PDept: PChar): boolean; stdcall;

在PB9.0中声明：

FUNCTION boolean ShowForm(ref String PDept) LIBRARY "project1.dll"

调用时出现:
PowerBuilder Application Execution Error(R0021)
Applicaton terminated.
Error:Bad runtime function reference at line 1 in clicked event fo object cb_1 of main

请问：这是个什么错误。我该如何调用这个函数(在Delphi中调用正常)

...全文

Delphi/VB/PB/易语言桌面软件集成支付宝微信扫码支付实战指南在现代软件工程中，HTTP API调用与数据安全传输是系统集成的核心技术。其基本原理是通过标准化的网络协议，实现不同应用间的数据交换与业务协同。在支付领域，这尤其关键，它确保了交易请求的可靠发起与状态的安全同步。对于桌面端软件开发而言，有效集成第三方支付API能极大提升软件的商业价值与用户体验，使其从单一的管理工具升级为集成交互闭环的解决方案。本文聚焦于一个经典的应用场景：为使用Delphi、VB、PowerBuilder、易语言等传统桌面开发工具构建的进销存、收银等系统，集成主流的移动支付功能。针对这些环阅读详情

ptzzg

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

liushiboy 2004-11-18

打赏
举报

你的DLL放的路径不对,请放至 winnt/system32下面
然后,传入传出的字符串用pchar类型函数调用类型为stdcall;

劣势 2004-11-18

打赏
举报

这个是PB问题，偶也写过很多DLL给PB开发人员使用过，对PChar的使用是有个技术问题的
是不是要分配好ref string的空间，我不会pb但是听了PB开发人员的介绍好像有这么一条的

lovefox_zoe 2004-11-18

打赏
举报

哦。那如果要vb或者vc和delphi共用一个dll，该注意哪些呢？

halfdream 2004-11-18

打赏
举报

http://community.csdn.net/Expert/topic/3562/3562465.xml?temp=.5052912

刚回的一个相关贴子..

ksaiy 2004-10-31

打赏
举报

这个问题我只有在类型是String型的时候遇到。

PB偶不会用。但是写过DLL给PB用。直接就是PChar。没有问题。

在Delphi中的PChar等价于C或者是C++里的Char*，不知道在PB中是怎么定义的？

还有在PB中String的长度是多少？你看一下。然后用对应的类型来进行调用吧。

jb99334 2004-10-31

打赏
举报

在DELPHI的DLL里：
function dosomething(out s:shortstring) :dword ;stdcall;
var
len : integer;
begin
/*对S赋值*/
...
/*获取S的长度*/
len := length(s);
/*从第2个字节将S 前移一位*/
move(s[1],s[0],len);
/*将S 变成null-terminate的字符串*/
s[len] := #0;
result := 1;
end;
参考http://www.china-askpro.com/msg44/qa41.shtml

liushiboy 2004-10-30

打赏
举报

偶也遇上相同的问题.
一个函数传入pchar得到pchar..stdcall

ＰＢ中调用时，有时候要出错，有时候不出错，
在某些特定的函数之后就要出错，怀疑ＰＢ中的string类型跟pchar不完全兼容!

ptzzg 2004-09-01

打赏
举报

没人会吗？？？

ptzzg 2004-08-30

打赏
举报

不行啊。请高手指点。

blazingfire 2004-08-29

打赏
举报

应该是这样才对吧
FUNCTION boolean ShowForm(Char PDept[256]) LIBRARY "project1.dll"

blazingfire 2004-08-29

打赏
举报

改D中的函数接口用数组吧
type
ChrArray = array[0..255] of Char
function ShowForm(PDept: ChrArray): boolean; stdcall;
再改PB中的接口调用，也用0..255的Char数组试试PB我不懂大概应该这样吧：
FUNCTION boolean ShowForm(ref Char PDept[256]) LIBRARY "project1.dll"

wilowind 2004-08-29

打赏
举报

yjs_lh 2004-08-29

打赏
举报

如果不需要DLL返回信息，这样定义即可：
function ShowForm(const PDept: PChar): boolean; stdcall;

PB中：
FUNCTION boolean ShowForm(String PDept) LIBRARY "project1.dll"

在线求9！！！如何在PB中调用Delphi编写的Dll

相关推荐