[митрийG]

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

Код:

#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
Куски моего кода

Код:

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:='Загружено';//lдействительно загружено
    @OpCardN := GetProcAddress(libhandle, 'OpenCard_N');
    if  Assigned(OpCardN)then
    begin
       label2.Caption:='Загружено';//адрес получен

       i:=OpCardN(2,@isr_Sub,0,0,0);//Вэтом месте возникает Access violation, если этот оператор удалить ошибки нет

    end
    else
      label2.Caption:='Почему то не получилось';

  end

  else
    label1.Caption:='Почему то не получилось';
end;

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

[Bargest]

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

Код:

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»). Аргументы передаются через стек, справа налево. Очистку стека производит вызывающая программа.