Как создать простейшую программу с использованием DLL

[inna_matuashova]

Привет, помогите разобраться, как мне можно создать простейшую программу в Делфи с использованием DLL, допустим подсчитать а+b. Я в курсах, как их создавать, ShowMessage у меня получаеться реализовать, а как что-то подсчитать - облом. Прога вылетает.

[AlexanderKs]

Где ваш нерабочий код?
Поищите в Google, кто ищет, тот находит.

[xwicked]

В библиотеке должна быть функция(не процедура), возвращающая значение integer или real, остальное все стандартно

[inna_matuashova]

А почему надо именно функцию применять? Чтобы возвращала значения?

[Noor]

Все до простоты просто
Исходник библиотеки aka DLL

library Project2;
uses
  SysUtils,
  Classes,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
//Сумма значений х и у
function Sum (X,Y: Integer): integer;
begin
Result:=X+Y
end;
exports Sum;
begin
end.

Использование DLL в своей программе

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
// тут объявляем нашу библиотеку и функцию которую она экспортирует
 function Sum (X,Y: Integer): integer;external 'Project2.dll';

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//пример использования
Button1.Caption := IntToStr(Sum(1,2));
end;
end.

[inna_matuashova]

спс, все работает!!!!