Artigos Delphi Quick Tips : Trabalhando com DLL - Parte III

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