c/c++语言开发共享用Delphi消费C dll

您的代码存在一些问题。

1） uint8是Delphi中Byte的等价物，而不是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; 

我不会对Remy的回答添加任何内容，但是我想提供一些工具列表，这些工具可以帮助将C DLL头转换为Pascal（无特殊顺序）：

请注意，这些转换器只能转换60-80％的代码，因此需要进行手动操作。

我可以给出的最大的节省时间的方法是尝试找到你的DLL存在的Visual Basic头文件翻译，并在https://www.marcocantu.com/tools/vb2delphi.htm上使用Marco Cantu的VB转换器。 这可能会给你几乎100％的自动转换（当然，如果你只转换DLL头文件）。 还有一个商业VBTO转换器，但试用演示足以将VB DLL头转换为Pascal。 在这里下载： http ： //www.vbto.net

从C – / C ++转换的其他提示：

稍微偏离主题，但我认为这可能对某人有用……

对于初学者，将“string”更改为“pchar”。

除此之外可能还有其他问题。