Olá galera, nesta Quick Tips, irei mostrar como consumir a DLL de validação de CNPJ e CPF que desenvolvemos na outra parte.
Vamos criar uma Aplicação. Adicionar:
2 Edits ( edtCPF, EdtCNPJ)
1 Button – BtnValidar
Vamos fazer algumas inclusões em nossa Unit.
unit uFrmPrincipal;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
const
DLLData = 'prj_DLL_CNPJ_CPF.dll';
{
Coloque a DLL junto com o Executável, ou então fixe o caminho da mesma , C:\DLL\_DLL_CNPJ_CPF.dll'
}
type
TForm2 = class(TForm)
Edit1: TEdit;
BtnValidar: TButton;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure BtnValidarClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
{Funções da DLL }
Function TestaCpfCgc(Value: String): String; stdcall; external DLLData; {
Declaração Identica como fazemos na criação da DLL, e dizemos que vamos usar a DLLData
}
implementation
{$R *.dfm}
{Clique do BtnValidar}
procedure TForm2.BtnValidarClick(Sender: TObject);
begin
TestaCpfCgc(Edit1.Text);
TestaCpfCgc(Edit2.Text)
end;
end.
Conclusão
Temos agora de forma encapsulada, funções muito usadas para validação de CPF e CNPJ, obviamente eu peguei estas funções que já exitem prontas, e apenas transcrevi para minha DLL, tornando assim acessível para qualquer aplicação, seja em Delphi ou não.
Fico por aqui ate à próxima Quick Tips. Aguardo mais dicas de temas para podermos montar as Quick Tips, quem tiver idéia basta mandar um e-mail.
Um abraço
Wesley Y
wyamazack@rwsolution.com.br