[tiger1c]

Использую чужую DLL написанная на С

Описание функции:

Код:

int __stdcall EnableDecodeNotify (HCONNECT hConnect, HANDLE hWnd, DWORD Option, void *Buffer, DWORD BufferSize, DECODE_NOTIFY_CALLBACK callback); 

Пишу в Delphi так

Код:

TDecodeNotify = procedure(Buffer:PAnsiChar;Size:longword) of object; stdcall;

TMyClass = class(TV8UserObject)
  private
    Buffer: array[0..1023] of char;

    procedure MyDecodeNotify(Buffer: PAnsiChar; Size:longword); stdcall;
.....
   end;

implementation

  function FSC_EnableDecodeNotify (hConnect: integer; hWnd: THandle;Option: longword; Buffer: Pointer; BufferSize: longword; callback: TDecodeNotify):
      integer; stdcall; external 'FSC.DLL' name '_EnableDecodeNotify';

Инциализирую так:

Код:

  DebugInt:=FSC_EnableDecodeNotify(hConnect, 0, Option, @Buffer, SizeOf(Buffer), MyDecodeNotify);

И не работает - Callback не вызывается. Что я делаю не так?