AV - and DLL

[tomek]

This is my code of dll usage:

Code: [Select]

implementation
procedure proced_(var i:Real); stdcall; external 'libo3.dll';
...
procedure TForm1.Button1Click(Sender: TObject);
var
  r:Real;
begin
  r:=6;
  proced_(r);
  Label1.Caption:=FloatToStr(r);
end;
procedure "proced_" in dll changes the value of r, and r on label is correct, but at end of Button1Click I get AV in TControlClick - include/control.inc

I forgot something in calling to the library?

[marcov]

This is my code of dll usage:

Code: [Select]

implementation
procedure proced_(var i:Real); stdcall; external 'libo3.dll';
...
procedure TForm1.Button1Click(Sender: TObject);
var
  r:Real;
begin
  r:=6;
  proced_(r);
  Label1.Caption:=FloatToStr(r);
end;
procedure "proced_" in dll changes the value of r, and r on label is correct, but at end of Button1Click I get AV in TControlClick - include/control.inc

I forgot something in calling to the library?

No, but maybe it is not stdcall, but e.g. cdecl?

[tomek]

No, but maybe it is not stdcall, but e.g. cdecl?

Thanks, with cdecl is ok.
But I wonder why that because library was compiled as stdcall calling convention.
This is fortran g95 "g95 -shared -mrtd -o libo3.dll libo3.o" - mrtd sets to stdcall calling convention.
In any case, work ok with cdecl. Thanks for help.

[Leledumbo]

This is fortran g95 "g95 -shared -mrtd -o libo3.dll libo3.o" - mrtd sets to stdcall calling convention.

Well for that you should ask in g95 forum.