需要在C++中调用Delphi DLL的简单演示

Question

我不能很好地使用 C++，但现在我需要构建一个调用 Delphi DLL 并将字符串传递给 DLL 并返回新字符串的函数。

这是我的 Delphi DLL 代码：

library testdll;
uses
  System.Classes,Winapi.Windows,System.SysUtils;
{$R *.res}

function hello(name : PWideChar):PWideChar;
var
rs:PWideChar;
begin
  rs:=PWideChar('Hello '+rs);
  Result:=rs;
end;

exports
hello;
begin
end.

任何人都可以帮助我用 C++ 创建简单的代码来调用 hello 函数并获取结果，感谢帮助。

Answer 1

您正在尝试将 PWideChar 连接到字符串文字并将其作为另一个 PWideChar 返回。那不会按原样工作。无论如何，您不应该返回 PWideChar。这会导致内存管理的噩梦。更好的设计是让调用者将缓冲区传递到 DLL 中进行填充，例如：

library testdll;

uses
  System.Classes,
  Winapi.Windows,
  System.SysUtils;

{$R *.res}

function hello(name, buffer : PWideChar; buflen: Integer): Integer; stdcall;
var
  rs: UnicodeString;
begin
  rs := 'Hello '+UnicodeString(name);
  if buffer = nil then
  begin
    Result := Length(rs) + 1;
  end else
  begin
    Result := Min(buflen, Length(rs));
    Move(rs[1], buffer^, Result * SizeOf(WideChar));
  end;
end;

exports
  hello;

begin
end.

然后，给定这个 C++ 声明::

int __stdcall hello(wchar_t* name, wchar_t* buffer, int buflen);

您可以根据需要以各种不同的方式调用它：

wchar_t str[256];
int len = hello(L"joe", str, 255);
str[len] = 0;
...

int len = hello(L"joe", NULL, 0);
wchar_t *str = new wchar_t[len];
len = hello(L"joe", str, len);
str[len] = 0;
...
delete[] str;

int len = hello(L"joe", NULL, 0);
std::wstring str(len-1);
str.resize(hello(L"joe", &str[0], len));
...

int len = hello(L"joe", NULL, 0);
UnicodeString str;
str.SetLength(len-1);
str.SetLength(hello(L"joe", str.c_str(), len));
...

同一种代码可以如果您需要在 Delphi 中使用相同的 DLL，可以很容易地转换为 Pascal：

function hello(name, buffer: PWideChar, buflen: Integer): Integer; stdcall; extern 'testdll.dll';


var
  str: array[0..255] of WideChar;
  len: Integer;
begin
  len := hello('joe', str, 255);
  str[len] := #0;
  ...
end;


var
  str; PWideChar
  len; Integer;
begin
  len := hello('joe', nil, 0);
  GetMem(str, len];
  len := hello('joe', str, len);
  str[len] := #0;
  ...
  FreeMem(str);
end;


var
  str; UnicodeString;
  len; Integer;
begin
  len := hello('joe', nil, 0);
  SetLength(str, len-1);
  SetLength(str, hello('joe', PWideChar(str), len));
  ...
end;

Answer 2

更新 事实证明，Delphi 对 WideString 返回值使用了非标准调用约定。所以下面的代码将不起作用。基本概念是合理的，但您需要返回 BSTR 或使用 WideString 类型的 out 参数。更多详细信息请参见：为什么 WideString 不能用作互操作的函数返回值？

---

只要调用者知道要分配多大的缓冲区，Remy 的方法就很好。另一种方法是在 DLL 中分配内存并让调用者释放内存。仅当双方使用相同的分配器时这才有效。共享分配器的一个示例是 COM 分配器，COM BSTR 当然使用它。在 Delphi 中，BSTR 映射到 WideString，这为我们提供了以下方法。

Delphi

function concat(s1, s2: PWideChar): WideString; stdcall;
begin
  Result := s1 + s2;
end;

C++

// DLL import
BSTR __stdcall concat(wchar_t *s1, wchar_t *s2);

BSTR bstr_res = concat(L"Wello, ", L"world!");
std::wstring res(bstr_res);
SysFreeString(bstr_res);

显然，在这个简单的示例中，连接字符串所需的缓冲区大小很容易计算。但如果 DLL 中的实际函数更复杂，那么这种方法的优势就更明显。