在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：Cardinal;结果：PAnsiChar）：整数; STDCALL; 外部'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);

那么您是对的，Delphi声明将是

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的单位的任何单位中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 ）之外，看起来您已经正确声明了该函数。

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

查阅文档表明我的猜测是正确的。 结果缓冲区的长度至少应为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);

文档中没有任何关于确保结果缓冲区以null终止的说明，因此我们在末尾保留了一个额外的字节，然后在其中放置了null字符。 这样可以安全地将结果缓冲区传递给需要string参数的ShowMessage函数。