delphi7中的C++ dll函数调用答案

【问题标题】：C++ dll function calling in delphi7delphi7中的C++ dll函数调用
【发布时间】：2013-11-12 11:18:03
【问题描述】：

我正在使用 Delphi7，我是新手。我想在我的 Delphi 项目中使用 Dll（在 C++ 中实现）的功能。我有一个像 C++ 一样的函数声明（由第三方提供）语法

LPTSTR GetErrorString(LONG lErrorNumber)

参数

LONG lErrorNumber Error number

结果

LPTSTR Error string

但是当我在 Delphi7 中传递一个值时，比如

GetErrorString(310);

我在我的单位声明它-

Function  GetErrorString(lErrorNumber : LongInt): String;StdCall;

implementation   

Function GetErrorString;external 'Third-Party.DLL';

我收到的是空白字符串，而不是实际的错误字符串。我不知道 LPTSTR 的确切数据类型。

还告诉我在我的项目中使用它的正确步骤。

【问题讨论】：

标签： c++ delphi visual-c++ dll delphi-7

【解决方案1】：

LPTSTR 只是一个指向原始字符数据的指针。 Delphi 的等效项是PAnsiChar 或PWideChar，这取决于DLL 是针对Ansi 还是针对Unicode 编译的。 LPTSTR 在 Delphi 2007 及更早版本（包括 Delphi 7）中始终为 Ansi，在 Delphi 2009 及更高版本中始终为 Unicode，因此您可能需要考虑这一点。如果 DLL 是为 Unicode 编译的，则必须使用 PWideChar 而不是 LPTSTR。因此，最好直接使用 PAnsiChar 和 PWideChar 而不是 LPTSTR 以避免不同环境之间的不匹配（除非 DLL 为这两种类型导出不同版本的函数，就像大多数 Win32 API 函数一样）。

此外，根据 DLL 使用的实际调用约定，函数可能使用cdecl 或stdcall。在没有显式调用约定的情况下，大多数 C/C++ 编译器使用 cdecl，但他们也可以很容易地使用 stdcall 而只是不记录它。所以你需要找出答案，因为cdecl 和stdcall 对堆栈管理和参数传递有不同的语义。

所以，话虽如此，正确的函数声明将是：

function GetErrorString(lErrorNumber: Integer): PAnsiChar; cdecl; external 'filename.dll';

或者：

function GetErrorString(lErrorNumber: Integer): PWideChar; cdecl; external 'filename.dll';

或者：

function GetErrorString(lErrorNumber: Integer): PAnsiChar; stdcall; external 'filename.dll';

或者：

function GetErrorString(lErrorNumber: Integer): PWideChar; stdcall; external 'filename.dll';

如果文档没有具体说明该信息，您将需要进行一些研究以查明 DLL 使用的是 Ansi 还是 Unicode，以及它使用的是 cdecl 还是 stdcall。

【讨论】：

【解决方案2】：

首先，一个 Delphi 字符串被引用，因此不是指向 char (LPTSTR) 的指针。我建议您作为初学者避免这些陷阱，并直接使用指针。

第二个 LPTSTR 是指向单字节字符 (LPSTR) 的指针，或指向两字节字符 (LPWSTR) 的指针，具体取决于是否定义了 UNICODE。

所以正确的解决方案是让函数返回 pansichar 或 pwidechar，这取决于 UNICODE 在 C++ 程序中的定义方式。

如果您开始在不同语言之间传递字符缓冲区，请确保它们使用相同的分配器来（取消）分配它们，或者确保每个模块释放它所做的分配。

【讨论】：