Карта сайтаСсылкиКонтакты

Статическое связывание DLL

PDF Печать
Статьи

Этот пример показывает, как создать функцию, которая вызывается из DLL. Это статическое связывание с DLL.


{ Код библиотеки }
library MyDLL1;

uses
  SysUtils,
  Classes;

function Max(i, j: Integer): Integer; export;
begin
  if i >= j then Result:= i
          else Result:= j;
end;

exports
  Max(i, j: Integer): Integer name 'MAX';

begin
end.


{ Код модуля, который вызывает библиотеку }
function Max(i, j: Integer): Integer; external 'MyDLL1' name 'MAX';

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= IntToStr(Max(5, 10));
end;

 

Добавить комментарий


Защитный код
Обновить