在 Delphi 2010 中使用 C/C++ DLL

Question

我想使用来自 ssdeep (http://ssdeep.sourceforge.net/) 的 dll。 API 是：

int fuzzy_hash_buf(unsigned char *buf, uint32_t buf_len, char *result);

然后在Delphi中，我是这样写的：

函数fuzzy_hash_buf（buf：Pbyte；buf_len：基数；结果：PAnsiChar）：整数；标准调用；外部“fuzzy.dll”名称“fuzzy_hash_buf”；

如何在 Delphi 中使用该功能？

谢谢！

Answer 1

如果 fuzzy.dll 导出带有 C 声明的函数 fuzzy_hash_buf

int fuzzy_hash_buf(unsigned char *buf, uint32_t buf_len, char *result);

那么你是对的，德尔福声明是

function fuzzy_hash_buf(buf: PAnsiChar; buf_len: cardinal; result: PAnsiChar):
  integer;

要在 Delphi 中使用它，请在单元的 interface 部分中编写

function fuzzy_hash_buf(buf: PAnsiChar; buf_len: cardinal; result: PAnsiChar):
  integer; stdcall;

然后，在同一单元的implementation 部分中，您不自己实现该功能，而是指向外部DLL：

function fuzzy_hash_buf; external 'fuzzy.dll' name 'fuzzy_hash_buf`

请注意，您不必重新声明参数、结果类型和调用约定 (stdcall)。

现在您可以像使用本机的实际功能一样使用此功能。例如，你可以写

val := fuzzy_hash_buf(buf, len, output);

来自uses 声明fuzzy_hash_buf 的单元的任何单元。

更新

恐怕我对CreateFileMapping函数还不够熟悉。不过看了MSDN文档后，相信你可以做到

var
  buf: PAnsiChar;

buf := MapViewOfFile(FFileMappingHandle, FILE_MAP_READ, 0, 0, 0);

// Now, if I have understood MapViewOfFile correctly, buf points to the first byte of the file.

var
  StatusCode: integer;
  TheResult: PAnsiChar;

GetMem(TheResult, FUZZY_MAX_RESULT);

StatusCode := fuzzy_has_buf(buf, FFileSize, TheResult);

// Now TheResult points to the first byte (character) of the output of the function.

Answer 2

除了调用约定可能有误（stdcall 或 cdecl）之外，您似乎已经正确声明了该函数。

根据参数名称和类型，我的猜测是你应该在第一个参数中传递一个指向字节数组的指针，在第二个参数中你告诉函数如何你给了它很多字节。您还可以传递一个指向该函数将为您填充的字符数组的指针。 假定该数组的大小足以容纳函数将放在那里的任何内容。函数结果可能是表示成功或失败的状态码。

咨询the documentation 表明我的猜测是正确的。结果缓冲区应至少为FUZZY_MAX_RESULT 字节长。你可以通过声明一个字符数组来得到它：

var
  HashResult: array[0..Fuzzy_Max_Result] of AnsiChar;

将其传递给函数：

status := fuzzy_hash_buf(buffer, buffer_length, HashResult);
if status <> 0 then
  Abort;
HashResult[Fuzzy_Max_Result] := #0;
ShowMessage(HashResult);

文档没有说明确保结果缓冲区为空终止，因此我们在末尾保留一个额外的字节，然后在其中放置一个空字符。这使得将结果缓冲区传递给像 ShowMessage 这样需要 string 参数的函数是安全的。