consultar endereço pelo cep

Delphi

03/04/2015

Boa noite, estou com uma duvida em buscar endereço pelo cep, utilizo delphi xe7, coloquei o componente IdHTTP1 da paleta indy clients, mais sai com os acentos assim:
exemplo
ch�caras
segue o codigo

procedure TForm1.Button1Click(Sender: TObject);
var
lodados: TStringList;
begin
lodados:=TStringList.Create;
lodados.text:=stringreplace(idhttp1.URL.URLDecode(idhttp1.Get('http://republicavirtual.com.br/web_cep.php?cep='+edit1.text+'&formato=query_string')),'&',#13#10,[rfreplaceAll]);
edit2.text:=lodados.Values['TIPO_LOGRADOURO']+' '+lodados.Values['LOGRADOURO'];
edit3.text:=lodados.Values['BAIRRO'];
edit4.text:=lodados.Values['CIDADE'];
edit5.text:=lodados.Values['UF'];

end;
Nei

Nei

Curtidas 0

Respostas

William

William

03/04/2015

Tente pegar o código HTML gerado da página após inserir o cep no link e coloca isso antes:


<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Quando alterar, abre esse arquivo no idhttp.
GOSTEI 0
Nei

Nei

03/04/2015

nao entendi, como ficaria o codigo?
GOSTEI 0
Leandro Marcon

Leandro Marcon

03/04/2015

nao entendi, como ficaria o codigo?


Ola Nei.. você conseguiu resolver esse problema ? estou com a mesma dificuldade.
GOSTEI 0
Leandro Marcon

Leandro Marcon

03/04/2015

Looking for fun companions for travels and adventures?
Genuine Females
<a href=https://datesnow.life>Optimal Сasual Dating</a>
GOSTEI 0
Leandro Marcon

Leandro Marcon

03/04/2015

<a href=https://datingnow.site>Search Pretty Womans from your town for night</a>
GOSTEI 0
POSTAR