Quick Tip : DLL para validar CPF e CNPJ - Parte II

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja nesta Quick como criar uma DLL para validar CPF e CNPJ



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



 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?