Обратный вызов из DLL (CALLBACK)

@novtoxa · Регистрация: 22.05.2017

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

В справке описано, что CALLBACK ф-я должна иметь такой вид:

C++

typedef struct
{
UINT16 Year;
UINT16 Month;
UINT16 Day;
UINT16 Hour;
UINT16 Min;
UINT16 Sec;
UINT16 MSec;
} DATETIME;
typedef UINT8 __stdcall ExchangeMonitorCallBack(UINT8 DllType, WCHAR* DllName, UINT32 DllNameLength, UINT8 Action, DATETIME DT, VOID* Package, UINT32 Pack-ageSize);

Перевёл в DELPHI и написал:

Delphi

type TTimeDate  = record
  Year: word;
  Month: word;
  Day: word;
  Hour: word;
  Min: word;
  Sec: word;
  MSec: word;
end;
function ExchangeMonitorCallBack(DllType: byte; DllName: Array of WideChar; DllNameLength: integer; Action: byte; DT: TTimeDate; Package: Pointer; PackageSize: integer): byte;

В библиотеке есть ещё одна функция, которая должна установить адрес:

C++

1	INT32 SetExchangeMonitorCallBack(VOID* pExchangeMonitorCallBack);

pExchangeMonitorCallBack – указатель на функцию обратного вызова ExchangeMonitorCallBack.

Как её описать? Типа так?

Delphi

1	Function SetExchangeMonitorCallBack(pExchangeMonitorCallBack: Pointer): integer; cdecl; external 'DrtRS232.dll';

Не получается, да и где нужно указывать что это именно stdcall?

Добавлено через 20 часов 49 минут
Неужели не у кого нет соображений на данную тему? Может я не понятно вопрос задал? Так напишите что именно не понятно. Я ранее не применял данные функции и в нете ответа не нашёл, очень надеюсь на Вашу помощь.

@aknyazev · 20.01.2018, 06:25

Delphi

//...
type 
TTimeDate  = packed record
  Year: word;
  Month: word;
  Day: word;
  Hour: word;
  Min: word;
  Sec: word;
  MSec: word;
end;
function ExchangeMonitorCallBack(DllType: byte; DllName: PWideChar; DllNameLength: Longint; Action: byte; DT: TTimeDate; Package: Pointer; PackageSize: Longint): byte; stdcall;
//...
implementation
//...
function ExchangeMonitorCallBack(DllType: byte; DllName: PWideChar; DllNameLength: Longint; Action: byte; DT: TTimeDate; Package: Pointer; PackageSize: Longint): byte; stdcall; external 'DrtRS232.dll';
//...

Добавлено через 9 минут

Delphi

//...
type
TExchangeMonitorCallBack = function (DllType: byte; DllName: PWideChar; DllNameLength: Longint; Action: byte; DT: TTimeDate; Package: Pointer; PackageSize: Longint): byte; stdcall;
function SetExchangeMonitorCallBack(pExchangeMonitorCallBack: TExchangeMonitorCallBack): Longint; stdcall;
//...
implementation
//...
function SetExchangeMonitorCallBack(pExchangeMonitorCallBack: TExchangeMonitorCallBack): Longint; stdcall;  external 'DrtRS232.dll';
//...

Добавлено через 18 секунд
Попробуйте так

@wendstor · 20.01.2018, 08:03

Во первых:

Сообщение от novtoxa

INT32 SetExchangeMonitorCallBack(VOID* pExchangeMonitorCallBack);

Delphi

1	function SetExchangeMonitorCallBack(pExchangeMonitorCallBack: Pointer): Integer; stdcall;

Во вторых, по функции не видно что она экспортируемая.
На "плюсах" она должна иметь следующий вид:

C++

1	INT32 __stdcall SetExchangeMonitorCallBack(VOID* pExchangeMonitorCallBack);

	20.01.2018, 08:03