Определить вызов функции из dll, написанной на Си

@kirino · Регистрация: 02.10.2017

Author24 — интернет-сервис помощи студентам

Добрый день!

Есть dll-ка, написанная на СИ. В дллке есть функция:

C

err_t beltHash(octet hash[32], const void* src, size_t count)
{
    void* state;
    // проверить входные данные
    if (!memIsValid(src, count) || !memIsValid(hash, 32))
        return ERR_BAD_INPUT;
    // создать состояние
    state = blobCreate(beltHash_keep());
    if (state == 0)
        return ERR_OUTOFMEMORY;
    // вычислить хэш-значение
    beltHashStart(state);
    beltHashStepH(src, count, state);
    beltHashStepG(hash, state);
    // завершить
    blobClose(state);
    return ERR_OK;
}

и её описание в h файле

C

/*! \brief Хэширование
 
    Определяется хэш-значение hash буфера [count]src.
    \return ERR_OK, если хэширование успешно завершено, и код ошибки
    в противном случае.
    \remark Буферы могут пересекаться.
*/
err_t beltHash(
    octet hash[32],     /*!< [out] хэш-значение */
    const void* src,    /*!< [in] данные */
    size_t count        /*!< [in] число октетов данных */
);

Подскажите, пожалуйста, как описать вызов данной функции в делфи?
Нужно ли добавлять соглашение о вызове и как определить какое именно?

Добавлено через 5 часов 38 минут
В общем сделал так:

Delphi

1
2
3

  
  THASH = array [1..32] of byte;
  procedure beltHash (hash:THASH; pdata: pointer; count: integer); cdecl; external 'name1.dll';

вызываю так:

Delphi

var
  hash : THASH;
  count: integer;
  data: array [1..20] of byte
  pdata: pointer;            
BEGIN
  ...
  hash:=...
  data:=...
  pdata:= @data[1];
  count:=...
 
  beltHash (hash, pdata, count);

Работает!)

	04.10.2017, 15:37

Опции темы