关于网友提出的“ pb 调用dll 用delphi 怎么写?”问题疑问,本网通过在网上对“ pb 调用dll 用delphi 怎么写?”有关的相关答案进行了整理,供用户进行参考,详细问题解答如下:
问题: pb 调用dll 用delphi 怎么写?解决方案1:
很久没写delphi了,我就文本打字给你写个例子吧,你试着调试下:
function uf_sendrcva(as_messagecode, as_message, as_knxx: String): String;
var
pRcv, p_return: PAnsiChar;
begin
pRcv := stralloc(4096);
p_return = stralloc(4096);
try
StrPCopy(pRcv, as_knxx);
StrCopy(p_return, SendRcvA(PAnsiChar(as_knxx), pRcv));
//uf_sendrcva 你自己对应着改
//memo2.Text := uf_sendrcva('G002', memo2.Text, memo2.Text);
finally
StrDispose(rRcv);
StrDispose(p_return);
end;
end;
- PB调用C++ DLL程序范例
pb中的string对用delphi中用pchar类型,需要stralloc分配空间(对应pb的space)和strdispose释放空间。
SendRcvA(PAnsiChar(pSend),PAnsiChar(pRcv));
对于pRcv之类用来接收返回的数据,你要申请变量 pchar类型,用stralloc分配后传入,你PAnsiChar(pRcv)强制转换传入,肯定不行
- pb9调用vc的dll