ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Consulta CEP

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
lucasc
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 10 de Mai de 2007
Mensagens: 305
MensagemEnviada: Qui Set 01, 2022 8:32 am    Assunto: Consulta CEP Responder com Citação
Prezados,

Tenho uma rotina que busca endereço, que roda perfeitamente em Delphi 7, porém com Delphi Alexandria retorna com caracteres estranhos.

Código:


var lodados: TStringList;
begin
  If EditCEP.Text = '' then
     Exit;
  Try
     Try
        lodados           :=TStringList.Create;
        lodados.text      :=Stringreplace(idhttp1.URL.URLDecode(idhttp1.Get('http://republicavirtual.com.br/web_cep.php?cep='+EditCEP.text+'&formato=query_string')),'&',#13#10,[rfreplaceAll]);
        EditEndereco.text :=lodados.Values['TIPO_LOGRADOURO']+' '+lodados.Values['LOGRADOURO'];
        EditBairro.text   :=lodados.Values['BAIRRO'];
        EditCidade.text   :=lodados.Values['CIDADE'];
      finally
        lodados.Free;
        end;
     except
   end;

Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
lucasc
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 10 de Mai de 2007
Mensagens: 305
MensagemEnviada: Qui Set 01, 2022 10:20 am    Assunto: Responder com Citação
Prezados,

Resolvi usando esse tutorial:

https://www.youtube.com/watch?v=wwBH01T_XH4

Att.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
marcieldeg
Colaborador
Colaborador


Registrado: Terça-Feira, 5 de Abril de 2011
Mensagens: 1054
Localização: Vitória - ES
MensagemEnviada: Dom Set 04, 2022 9:20 am    Assunto: Responder com Citação
Sobre a consulta de CEP, eu prefiro usar essa API aqui:

https://viacep.com.br/ws/01001000/xml/
_________________
"Olha a interface da IDE! Será que ela é? Será que ela é? DELPHI!"
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
MensagemEnviada: Qui Dez 29, 2022 7:52 am    Assunto: Responder com Citação
Tente aqui amigo:


http://www.activedelphi.com.br/forum/viewtopic.php?t=83032&sid=9509b1eaf15959f0ec72e699af04a6c3

PS.: funciona com o delphi 2010 para cima, tem outra versão anterior que funciona em delphis mais antigos


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB