library CalcDll;

uses SysUtils, Classes;

type

MyCalc=class

fx,fy:integer;

public

procedure SetOperands(x,y:integer);

function Sum:integer;

function Diff:integer;

end;

var Calc:MyCalc;

procedure MyCalc.SetOperands(x,y:integer);

begin

fx:=x; fy:=y;

end;

function MyCalc.Sum:integer;

begin

result:=fx+fy;

end;

function MyCalc.Diff:integer;

begin

result:=fx-fy;

end;

procedure SetOperands(x,y:integer);

begin

Calc.SetOperands(x,y);

end;

function Sum:integer;

begin

result:=Calc.Sum;

end;

function Diff:integer;

begin

result:=Calc.Diff;

end;

procedure CreateObject;

begin

Calc:=MyCalc.Create;

end;

procedure ReleaseObject;

begin

Calc.Free;

end;

exports //Вот эта секция и указывает компилятору что записать в таблицу экспорта

SetOperands,

Sum,

Diff,

CreateObject,

ReleaseObject;

begin

end.

unit tstcl;

interface

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

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

end;

var Form1: TForm1;

_Mod:Integer; //индефикатор модуля

SetOpers:procedure(x,y:integer); //Это все указатели на функции,

diff,sum:function:integer; //которые мы собираемся получить

CreateObj,ReleaseObj:procedure; //из нашего модуля

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

//загружаем наш модуль в память

_Mod:=LoadLibrary('CalcDll.dll');

//получаем адреса функций по именам

CreateObj:=GetProcAddress(_Mod,'CreateObject');

ReleaseObj:=GetProcAddress(_Mod,'ReleaseObject');

sum:=GetProcAddress(_Mod,'Sum');

diff:=GetProcAddress(_Mod,'Diff');

SetOpers:=GetProcAddress(_Mod,'SetOperands');

CreateObj; //вызываем функцию по адресу

SetOpers(13,10); //вызываем функцию по адресу

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

ReleaseObj; //опять вызываем функцию по адресу

FreeLibrary(_Mod); //выгружаем модуль из памяти

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(IntToStr(diff)); //вычисляем разницу

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

ShowMessage(IntToStr(sum)); //вычисляем сумму

end;

end.