用Delphi消费C dll

Question

我有一个带有此签名的Dll函数:

UInt32 Authenticate(uint8 *Key);

我在Delphi上这样做:

function Authenticate(Key:string) : UInt32; external 'mylib.dll' name 'Authenticate';

但总是,函数返回10(错误代码)和应用程序刹车:

有办法做到这一点吗？

更新: 谢谢你们!你是最好的!

Answer 1

您的代码存在一些问题.

1)uint8是ByteDelphi中的等价物,而不是String.

2)C代码使用编译器的默认调用约定,这通常是__cdecl.另一方面,Delphi的默认调用约定register.它们彼此不兼容.如果不匹配调用约定,则在运行时函数调用期间将无法正确管理堆栈和CPU寄存器.

C代码的字面翻译将是这样的:

function Authenticate(Key: PByte) : UInt32; cdecl; external 'mylib.dll';

但是,假设函数实际上期望以null结尾的字符串,那么请执行以下操作:

// the function is expecting a pointer to 8-bit data,
// so DO NOT use `PChar`, which is 16-bit in Delphi 2009+...
function Authenticate(Key: PAnsiChar) : UInt32; cdecl; external 'mylib.dll';

我会坚持使用第一个声明,因为它与原始C代码匹配.即使函数期望以null结尾的字符串作为输入,您仍然可以PByte通过类型转换使用它:

var
  S: AnsiString;
begin
  Authenticate(PByte(PAnsiChar(S)));
end;

或者,如果函数允许空字符串的NULL输入:

var
  S: AnsiString;
begin
  Authenticate(PByte(Pointer(S)));
end;