Прблема с DLL

[Nikolay67788]

Вот код DLL:

Код: Выделить всё

Library Compleks;

procedure summaTWO(var sum: integer; a,b: integer); Export;
begin
   sum:=a+b;
end;

Exports
summaTWO index 1 name  'ADD' resident;

begin
end.

Это так сказать тест. Вот программа использующая DLL:

Код: Выделить всё

program procedure_;
uses crt,Complex;
Var a,b,c:integer;

begin
  write(' Введите число a: ');
  ReadLn(a);
  write('Введите число b: ');
  ReadLn(b);
  c:=summaTWU(a,b);
  writeln('Сумма равна: ',c);
end.


В чем же ошибка приведите пожалуйста примеры, будте так добры. Все варианты испробовал ничего не помогает.

[FedeX]

А что собственно не работает\какие ошибки выдаёт компилятор или программа? Мы же не телепаты тут + неплохо бы показать и модуль Complex раз уж такие дела..

[TimK]

Собсна это даже компилироваться не должно.

Код: Выделить всё

program procedure_;
...
begin
   ...
  c:=summaTWU(a,b); // Где декларация функции из длл?
    // Почему summaTWU, если ее имя в длл ADD?
    // Почему c:=summaTWU, а не summaTWU(с, a, b)?
    // Почему TWU? :)
   ...
end.


Hадо переписать так:

Код: Выделить всё

Library Compleks;

function summaTWO(a,b: integer): Integer;
begin
   summaTWO:=a+b;
end;

Exports
  summaTWO name 'summaTWO';

begin
end.


Код: Выделить всё

program procedure_;
uses crt,Complex;
Var a,b,c:integer;

  function summaTWO(a,b: integer): Integer; external 'Compleks' name 'summaTWO';

begin
  write(' Введите число a: ');
  ReadLn(a);
  write('Введите число b: ');
  ReadLn(b);
  c:=summaTWO(a,b);
  writeln('Сумма равна: ',c);
end.