DLL para validar CPF e CNPJ - Parte II

-- Por Wesley Y

DLL para validar CPF e CNPJ - Parte II


Bom pessoal neste artigo será mostrado como consumir a DLL de validação de CNPJ e CPF que foi desenvolvida na Parte I.


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 que as funçoes/algoritimos foram retirados da internet e apenas foram transcritas para a DLL, tornando assim acessível para qualquer aplicação, seja em Delphi ou não.



Take care