[tiger1c]

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

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

Код:

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

Пишу в Delphi так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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';

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

Код:

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

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