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;
