C++ 消费 delphi DLL

Question

我无法使用在delphi 中开发的dll 的功能。我在类型转换方面遇到了一些困难。

这是我要调用 DLL 的函数:

function rData(ID: Cardinal; queue: WideString): WideString; stdcall;

我的 C++ 代码是这样的:

typedef string (*ReturnDataSPL)(DWORD, string);

string result;
HMODULE hLib;
hLib = LoadLibrary("delphi.dll");
pReturnDataSPL = (ReturnDataSPL)GetProcAddress(hLib,"rData");
if (NULL != pReturnDataSPL)
   result = pReturnDataSPL(JobID,printerName);

我无法让它工作的问题。我不知道哪种类型与 Delphi WideString 和 Cardinal 兼容。

有人帮帮我

EDIT:

This is the function I want to call the DLL:

procedure rData(ID: Cardinal; queue: WideString; var Result: WideString); stdcall;

After changing the code looked like this:

typedef void (__stdcall *ReturnDataSPL)(DWORD, BSTR, BSTR&);

HMODULE hLib;
BSTR result = NULL;
hLib = LoadLibrary("delphi.dll");

pReturnDataSPL = (ReturnDataSPL)GetProcAddress(hLib,"rData");
if (NULL != pReturnDataSPL)
{
   pReturnDataSPL(JobID,(BSTR)"Lexmark X656de (MS) (Copiar 2)",result);
}

Answer 1

您几乎没有机会调用该函数。

首先，您当前的代码不能指望成功，因为我假设 string 是 std::string。这是 Delphi 代码无法提供或使用的 C++ 数据类型。要与 Delphi 的 WideString 匹配，您需要使用 COM BSTR 数据类型。

您的代码的另一个问题是它在 C++ 端使用 cdecl，在 Delphi 端使用 stdcall。您需要调整调用约定。

但是，由于 Delphi 的返回值 ABI 与平台标准之间存在差异，这也会失败。此处详细介绍了该主题:Why can a WideString not be used as a function return value for interop?

最好的办法是停止使用 WideString 作为返回值，并将其转换为 C++ 引用参数。您需要转换 Delphi 以匹配。

你正在看这样的东西:

德尔福

procedure rData(ID: Cardinal; queue: WideString; var Result: WideString); stdcall;

C++

typedef void (__stdcall *ReturnDataSPL)(DWORD, BSTR, BSTR&);