consultar endereço pelo cep

03/04/2015

0

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;
Responder

Posts

04/04/2015

William

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.
Responder

04/04/2015

Nei

nao entendi, como ficaria o codigo?
Responder

23/05/2020

Leandro Marcon

nao entendi, como ficaria o codigo?


Ola Nei.. você conseguiu resolver esse problema ? estou com a mesma dificuldade.
Responder

13/04/2024

Leandro Marcon

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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar