Dziwne rzeczy z dll

0

Mamm problem z bibliotekami dll gdy mam taką funkcję w kodzie programu działa jak należy

type matrix=
  record
    pola:array[0..9,0..9] of Integer;
    rozmiar:Integer;
  end;

function Suma_przek(var tab:matrix):Integer;
var i,suma:Integer;
begin
  suma:=0;
  for i:=0 to tab.rozmiar-1 do
    suma:=suma+tab.pola[i,i];
  Result:=suma;
end; 

Ale gdy tylko dam ją do dll'ki przestaje działać. Mógłby mi ktoś pomóc??

0

Sorry zapomnialem się za pierwszym razem zalogować.
Dodam ze taka funkcja dziala w obu miejscach

procedure czesc();
begin
Writeln('czesc');
end; 

Ok już wiem nienawidze pascala:D wystarczylo dopisac stdcall; za kazdym naglowkiem funkcji

0

Napisać albo nie napisać — ale jeśli w DLL-ce dałeś stdcall, a przy imporcie funkcji nie, albo odwrotnie — to działać nie będzie.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0