[митрий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;

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

[Bargest]

Код оформи тегами [ code ] и [ /code] без пробелов.

Код:

1	TOpenCardN=function (no: Integer; Isr: TIsr_Sub; base_addr: Integer; size: Integer; irq: Integer): THandle;

А соглашение вызовов какое? stdcall? cdecl? fastcall? Это надо уточнить и использовать, в противном случае все будет падать регулярно.

[митрийG]

Откуда бы узнать какое соглашение?
методом научного тыка - cdecl - пока не вылетает
сечас вставлю карточку и проверю - может увидит

[Bargest]

Если написано на C/C++ - вероятнее всего cdecl.

Сообщение от Вика

cdecl
Основной способ вызова для Си (отсюда название, сокращение от «c-declaration»). Аргументы передаются через стек, справа налево. Очистку стека производит вызывающая программа.