DLL - como fazer e usar

Top  Previous  Next

// Edite diretamente no DPR, e depois salve como Funcoes.dpr: 

Library Funcoes; 

 

Uses SysUtils,WinTypes,WinProcs; 

 

// Uma função que tira os espaços no início e no final de uma string

Function Trim(J:String):String; Export; 

Begin 

 While J[Length(J)]=#32 do Dec(J[0]); 

 If Length(J)>1 then 

  While (J[1]=' ') do 

  Begin 

    Delete(J,1,1); 

    If Length(J)<=1 then J:=''

  end

  Result:=J; 

end

 

  Exports // Torna visivel para os programas 

    Trim; 

End

 

 

///////////// Para usar num programa: 

 

Unit Unit1; 

 

Interface 

 

uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

     Forms, Dialogs, StdCtrls, Buttons; 

 

type 

  TForm1 = class(TForm) 

  procedure FormCreate(Sender: TObject); 

  procedure FormClick(Sender: TObject); 

  end

 

Var 

  Form1: TForm1; 

 

Implementation 

 

{ Declara a funcao } 

 

Function Trim(J:String):String; External 'funcoes.dll'

 

{$R *.DFM} 

 

Procedure TForm1.FormClick(Sender: TObject); 

begin 

  Caption:=Trim(' Visite sempre o Delphi Club '); // Note os espacos

end

 

{

As vantagens de colocar as funções em DLL são: 

1. O programa exigirá menos memória 

2. Você poderá reaproveitar as funções 

3. Em alguns casos pode-se atualizar apenas as dll para um upgrade 

}