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
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
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