consultar endereço pelo cep
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
Curtidas 0
Respostas
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.
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
Quando alterar, abre esse arquivo no idhttp.
GOSTEI 0
Nei
03/04/2015
nao entendi, como ficaria o codigo?
GOSTEI 0
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
03/04/2015
Looking for fun companions for travels and adventures?
Genuine Females
<a href=https://datesnow.life>Optimal Сasual Dating</a>
Genuine Females
<a href=https://datesnow.life>Optimal Сasual Dating</a>
GOSTEI 0