Consultando CEP utilizando componente ACBrCEP

Consultando CEP utilizando componente ACBrCEP

  julho 04, 2014    Anônimo

---

Vamos fazer uma aplicação simples para consulta de CEP de uma maneira bem simples sem utilizar banco de dados dos correis ultrapassado ou como já vi por ai deixar o banco de dados sobre carregado com todas cidades e bairros cadastrados.

Vamos utilizar o componente AcBrCEP, com esse componente podemos consumir um WebServices disponível na Internet para consultar endereços completos.

Vamos utilizar:

• 7 - TEdit "para exibirmos o resultado da consulta"
• 6 - TLabel "para identificar os campos"
• 1 - TACBrCEP

Existem várias opções de WebServices de pesquisa para CEP eu normalmente utilizo wsRepublicaVirtual onde automaticamente será preenchida a propriedade URL com o respectivo endereço.

Agora para fazer a consulta no componente que acabamos de configurar vamos colocar no OnExit do campo do dbedCEP (O TEdit que e preenchido o CEP ) o seguinte código;

procedure TFCEP.dbedCEPExit(Sender: TObject);
begin
  if Trim(dbedCEP.Text) <> EmptyStr then
    ACBrCEP.BuscarPorCEP(dbedCEP.Text);
end;

Com isto temos que colocar um código que ira jogar as informações que o TAcBrCEP retorna para nossos TEdit, ou seja quando o WebService retornar o respectivo endereço teremos que capturar esse retorno no evento OnBuscaEfetuada, esse evento é disparado após a resposta do WebService.

Vamos pegar o retorno do WebService e jogar para nossos TEdit:

procedure TFCEP.ACBrCEPBuscaEfetuada(Sender: TObject);
var
  li : integer;
begin
  if Trim(dbedCEP.Text) <> EmptyStr then begin
    for li := 0 to ACBrCEP.Enderecos.Count - 1 do begin
      dbedbairro.Text := ACBrCEP.Enderecos[li].Bairro;
      dbedCidade.Text := ACBrCEP.Enderecos[li].Municipio;
      edUF.Text := ACBrCEP.Enderecos[li].UF;
      dbedTipo.Text := ACBrCEP.Enderecos[li].Tipo_Logradouro;
      dbedt_endereco.Text := ACBrCEP.Enderecos[li].Logradouro;
      dbedt_referencia.Text := ACBrCEP.Enderecos[li].Complemento;
    end;
  end;
end;

O resultado é o seguinte

Exemplo: download do exemplo