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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar