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;
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
Curtir tópico
+ 0
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.
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
Quando alterar, abre esse arquivo no idhttp.
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
Clique aqui para fazer login e interagir na Comunidade :)