Использование C/C++ DLL в Delphi 2010

Question

Я хочу использовать dll из ssdeep (http://ssdeep.sourceforge.net/). API:

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

то в Delphi, я пишу это следующим образом:

функция fuzzy_hash_buf (БУФ: PByte; buf_len: Кардинал; результат: PAnsiChar): целое число; STDCALL; external 'fuzzy.dll' name 'fuzzy_hash_buf';

Как использовать эту функцию в Delphi?

Спасибо!

Answer 1

Если fuzzy.dll экспортирует функцию fuzzy_hash_buf с декларацией C

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.

Update

Я боюсь, что я не достаточно хорошо знаком с функцией 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 параметров.