Nesta Quick Tips, irei mostrar a utilização da DLL.

Primeiramente precisamos criar uma aplicação em Delphi e monte a seguinte estrutura.

Adicione 5 LabelsEdit e um Botão

tela

Faça as seguintes implementações na Unit.


unit uPrincipal;
 
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
const
 DllData = 'Data_DLL.DLL';
 
type
  TFrmPrincipal = class(TForm)
    EdtDiadoMes: TLabeledEdit;
    Button1: TButton;
    EdtDiadaSemanaAbreviado: TLabeledEdit;
    EdtDiadaSemana: TLabeledEdit;
    EdtData: TLabeledEdit;
    EdtDataCompleta: TLabeledEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FrmPrincipal: TFrmPrincipal;
 
  {Funções da DLL  }
  function DiadoMes: String; stdcall; external DllData;
  function DiadaSemanaAbreviado: String;stdcall; external DllData;
  function DiadaSemana: String; stdcall; external DllData;
  function Data: String; stdcall; external DllData;
  function DataCompleta: String; stdcall; external DllData;
  {Funções da DLL  }
 

Obs: Foi criado uma const com o nome da DLL para ficar mais fácil a manipulação, caso você mude o nome ou o local da DLL não terá que alterar em todas as declarações apenas na constante.

External: Indica que esta função esta associada em outro meio, no nosso caso uma DLL.

No Click do Botão


 
procedure TFrmPrincipal.Button1Click(Sender: TObject);
begin
  EdtDiadoMes.Text             := DiadoMes;
  EdtDiadaSemanaAbreviado.Text := DiadaSemanaAbreviado;
  EdtDiadaSemana.Text          := DiadaSemana;
  EdtData.Text                 := Data;
  EdtDataCompleta.Text         := DataCompleta;
end;
 

Ao final termos o resultado

tela

Conclusão

Com a utilização de uma DLL podemos deixar nosso executável menor, dependendo da quantidade de métodos que nossa DLL tenha, deixar o código desacoplado, reutilizável em outros sistemas, tendo assim uma portabilidade muito grande.

Exemplo de outros Métodos que poderíamos colocar em nossa DLL, validar CPF / CNPJ, retornar o IP ou nome da Máquina, fazermos algum calculo específico entre outras.

Espero que tenham gostado desta seqüência de 3 Quick Tips.

Fico por aqui até a próxima Quick Tips.

Um abraço