[митрийG]

Есть DLL - MC8041P.DLL с описанием на С++, в ней функция -
HANDLE OpenCard_N(int no, void (WINAPI *isr)(void), int base_addr, int size, int irq);
и пример по использованию-

Код:

1 2 3 4 5 6 7 8 9 10

#include ”mc8041p.h” void WINAPI isr_sub() { // TODO: }   void main() { HANDLE ists; ists = OpenCard_N( 2, isr_sub, 0, 0, 0 ); // PMC-4B-PCI

Мне нужно подключить эту библиотеку к проекту Delphi
Куски моего кода

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

type   TIsr_sub=procedure ; stdcall;   TOpenCardN=function (no: Integer; Isr: TIsr_Sub; base_addr: Integer; size: Integer; irq: Integer): THandle; ******************* $R *.dfm}  procedure isr_sub;  stdcall; begin   { Do nothing } end; ******************** procedure TSDIAppForm.Button2Click(Sender: TObject); var i:THandle; m:integer; OpCardN:TOpenCardN; begin   if libHandle=0  then     libhandle:=loadLibrary('MC8041P.DLL');   if libhandle<>0 then   begin     label1.Caption:='Загружено'<font color="Red">;//lдействительно загружено </font>    @OpCardN := GetProcAddress(libhandle, 'OpenCard_N');     if  Assigned(OpCardN)then     begin        label2.Caption:='Загружено';<font color="Red">//адрес получен </font>        i:=OpCardN(2,@isr_Sub,0,0,0);<font color="red">//Вэтом месте возникает Access violation, если этот оператор удалить ошибки нет </font>     end     else       label2.Caption:='Почему то не получилось';     end     else     label1.Caption:='Почему то не получилось'; end;

Может кто подскажет что я не так делаю