Consultando um endereço pelo cep usando delphi 7 sem consumir webservice, usando o componente idhttp da paleta Indy Clients...

Exemplo simples de como consultar os dados de endereço sem a necessidade de se fazer um webservice para isso...

CRIA-SE UM FORMULÁRIO E COLOQUE OS COMPONENTES
EDIT1.TEXT,
EDIT2.TEXT
EDIT3.TEXT
EDIT4.TEXT
EDIT5.TEXT
BUTTON1
NO EVENTO ONCLICK DO BUTTON1 ESCREVA O CÓDIGO

procedure TForm1.Button1Click(Sender: TObject);
var
  lodados: TStringList;
begin
  //Cria-se uma string List
  lodados:=TStringList.Create;
  //Nesta linha busca-se a informação através da url indicada
  //StrinReplace eh utilizada para substituir os caracteres & por CR
  //UrlDecode eh para eliminar caracteres de código html para acentos
  //&formato=query_string ou xml javascript
  //ele retorna para o componente em qualquer um dos formatos acima
  //Mais detalhes entre na pagina http://republicavirtual.com.br

   lodados.text:=stringreplace(idhttp1.URL.URLDecode(idhttp1.Get('http://republicavirtual.com.br/web_cep.php?cep='+edit1.text+'&formato=query_string')),'&',#13#10,[rfreplaceAll]);
  //lodados vira uma matriz e fazemos o acesso aos dados...
  edit2.text:=lodados.Values['TIPO_LOGRADOURO']+' '+lodados.Values['LOGRADOURO'];
  edit3.text:=lodados.Values['BAIRRO'];
  edit4.text:=lodados.Values['CIDADE'];
  edit5.text:=lodados.Values['UF']
  //acredito que ficou bem mais simples dessa forma consultar a rua pelo cep
  //Obrigado
end;

Artigos relacionados