pb 调用dll 用delphi 怎么写?_Delphi

关于网友提出的“ 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程序范例

解决方案2:

pb中的string对用delphi中用pchar类型，需要stralloc分配空间（对应pb的space）和strdispose释放空间。
SendRcvA(PAnsiChar(pSend),PAnsiChar(pRcv));
对于pRcv之类用来接收返回的数据，你要申请变量 pchar类型，用stralloc分配后传入，你PAnsiChar(pRcv)强制转换传入，肯定不行

pb9调用vc的dll