[stil]

помогите с dll.
код формы

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

implementation function SUM(n,m: integer): integer; stdcall; external 'Project2.dll' name 'SUM';    {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var a,b,res: integer; begin a:=strtoint(Edit1.Text); b:=strtoint(Edit2.Text); res:=SUM(a,b); Label1.Caption:=PChar(inttostr(res)); end;

код DLL

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

uses   SysUtils,   Classes;   {$R *.res} function SUM (var n, m: integer): integer; stdcall; begin   result:=n+m; end;   exports SUM;   begin end.

выдает ошибку
Вложение 1740

[lmikle]

У тебя сигнатуры функций разные. Думаю, дело в этом.

Вот это работает:

Код:

1 2 3 4 5 6 7 8 9 10 11

library  mydll;   function SUM (n, m: integer): integer; stdcall; begin   result:=n+m; end;   exports SUM name 'SUM';   begin end.

Код:

1 2 3 4 5 6 7 8 9 10

program test;   {$APPTYPE CONSOLE}   function SUM(n,m: integer): integer; stdcall; external 'mydll.dll';    begin   WriteLn(sum(2,3));   ReadLn; end.

[stil]

мне на форму обязательно надо.
там если число любое возвращешь прога работает а если переменную то никак. Я в интренете посмотрел и по книгам код такой же

[Kailon]

implementation
function SUM(var n,m: integer): integer; stdcall;
external 'Project2.dll' name 'SUM';

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b,res: integer;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
res:=SUM(a,b);
Label1.Caption:=PChar(inttostr(res));
end;

Красный цвет видишь?

[stil]

огромное спасибо