Descarga viacep - Descargar el código fuente viacep

viacep

código fuente de delphi

v1.0.2

Descargar

ViCEP - Vea el código postal de todo Brasil

Requisitos previos

[Opcional] Para facilitar la gestión de la dependencia, recomiendo usar BOSS.
- Jefe - Gerente de dependencia de Delphi
Poseer el libeay32.dll y ssleay32.dll dlls en la carpeta del proyecto con el ejecutable.

Instalación usando BOSS

 boss install github.com/viniciussanchez/viacep

Instalación manual

Agregue la siguiente carpeta a su proyecto en Proyecto> Opciones> Compilador de recursos> Dirección y Condiçonals> Incluya la ruta de búsqueda de archivos

 ../viacep/src

A partir de

Deberá hacer el uso de las siguientes unidades: ViaCEP.Intf , ViaCEP.Core , ViaCEP.Model

 uses ViaCEP.Intf, ViaCEP.Core, ViaCEP.Model;

Validando un código postal

Cuando se consultó un código postal de formato no válido, por ejemplo: 950100100 (9 dígitos), 95010A10 (alfanumérico), 95 01010 (espacio), la devolución será nil .

El método de validar si se trata de un código postal válido o no, solo asegúrese de que el código postal informado tenga 8 dígitos y que todos sean numéricos y se pueda acceder antes de consultar el servicio web a través de la interfaz IViaCEP utilizando el método Validate .

Cuando se consultó un código postal de formato válido pero inexistente, por ejemplo: 99999999 , el retorno también será nil . Esto significa que el código postal consultado no se encontró en la base de datos.

Ejemplo:

 var
  ViaCEP: IViaCEP;
begin
  ViaCEP := TViaCEP.Create;
  if ViaCEP.Validate( ' 01001000 ' ) then
    ShowMessage( ' CEP válido ' )
  else
    ShowMessage( ' CEP inválido ' );
end ;

Recuerde que en el método anterior, no es necesario destruir la instancia creada de la clase TViaCEP , porque está utilizando una Interface .

Consultar un código postal

 var
  ViaCEP: IViaCEP;
  CEP: TViaCEPClass;
begin
  ViaCEP := TViaCEP.Create;
  // Aqui você pode chamar a rotina para validar se é um CEP válido.
  CEP := ViaCEP.Get(edtCEPConsultar.Text);
  if not Assigned(CEP) then
    Exit; // Aqui você pode exibir uma mensagem para o usuário falando que o CEP não foi encontrado.
  try
    edtJSON.Lines.Text := CEP.ToJSONString;
    edtCEP.Text := CEP.CEP;
    edtLogradouro.Text := CEP.Logradouro;
    edtComplemento.Text := CEP.Complemento;
    edtBairro.Text := CEP.Bairro;
    edtLocalidade.Text := CEP.Localidade;
    edtUF.Text := CEP.UF;
    edtDDD.Text := CEP.DDD;
    edtIBGE.Text := CEP.IBGE;
    edtGIA.Text := CEP.GIA;
  finally
    CEP.Free;
  end ;
end ;

Regreso de la consulta en formato JSON

Una vez que realice la consulta del código postal, puede obtener el contenido devuelto en formato JSON utilizando el método .ToJSonstring disponible en la clase TViaCEPClass . Vea el ejemplo a continuación, donde un TMemo está poblado con el contenido de la consulta:

 var
  CEP: TViaCEPClass;
begin
  Memo.Lines.Text := CEP.ToJSONString;
end ;

 {
  "cep": "01001-000",
  "logradouro": "Praça da Sé",
  "complemento": "lado ímpar",
  "bairro": "Sé",
  "localidade": "São Paulo",
  "uf": "SP",
  "ddd": "",
  "ibge": "3550308",
  "gia": "1004"
}