Pesquisar CEP e preencher os Edits Rua, Bairro e Estado
13/04/2009
0
Preciso de ajuda de vcs, uso Delphi 2.007 for Net e preciso utilizar um webservice do meu provedor, URL BASE: http://webservice.kinghost.net/web_cep.php as Variáveis que devem ser enviadas pelo método GET:
chave: 788s88hdnjji99
formato: ´xml´ ou ´query´ ou ´javascript´
cep: 04005005
Para preencher meu campos rua, bairro, cidade e estado, crieu um botão no lado do campo CEP e estou tentando criar uma function.
procurando na internet só encontrei exemplos em PHP, no site da devmedia também não achei nada(só tenho Assinatura Delphi) e como eu poderia fazer isso? e alguem puder me dar uma luz eu agradeço.
Pauloroger
Posts
28/08/2009
Knight_of_wine
http://www.correios.com.br/cep/cep_coloque.cfm
31/08/2009
Pauloroger
Coloquei 4 TextBox, sendo o TextoBox1, onde coloco o CEP.
No botão ´Buscar CEP´:
var
sUrl: String;
DS: DataSet;
begin
sUrl := ´http://webservice.uni5.net/web_cep.php?auth=788s88hdnjji99&formato=xml&cep=´+TextBox1.text;
DS := DataSet.Create;
ds.ReadXml(sUrl);
if Convert.ToInt32(DS.Tables[´webservicecep´].Rows[0][´resultado´]) = 1 then
begin
TextBox2.Text := DS.Tables[´webservicecep´].Rows[0][´tipo_logradouro´].ToString+´ ´+
DS.Tables[´webservicecep´].Rows[0][´logradouro´].ToString;;
TextBox3.Text := DS.Tables[´webservicecep´].Rows[0][´bairro´].ToString;
TextBox4.Text := DS.Tables[´webservicecep´].Rows[0][´cidade´].ToString;
TextBox5.Text := DS.Tables[´webservicecep´].Rows[0][´uf´].ToString;
Ficou show de bola.
18/07/2018
Sandro Lemes
Implemente a consulta direta no WebService Nativo dos Correios, gratuitamente!
Vide o tópico:
https://www.devmedia.com.br/forum/consulta-cep-entre-outros-servicos-direto-no-webservice-dos-correios-a-partir-do-delphi-7-acima/591246
Att.
Sandro Lemes
18/03/2020
Vicente Santos
Coloquei 4 TextBox, sendo o TextoBox1, onde coloco o CEP.
No botão ´Buscar CEP´:
var
sUrl: String;
DS: DataSet;
begin
sUrl := ´http://webservice.uni5.net/web_cep.php?auth=788s88hdnjji99&formato=xml&cep=´+TextBox1.text;
DS := DataSet.Create;
ds.ReadXml(sUrl);
if Convert.ToInt32(DS.Tables[´webservicecep´].Rows[0][´resultado´]) = 1 then
begin
TextBox2.Text := DS.Tables[´webservicecep´].Rows[0][´tipo_logradouro´].ToString+´ ´+
DS.Tables[´webservicecep´].Rows[0][´logradouro´].ToString;;
TextBox3.Text := DS.Tables[´webservicecep´].Rows[0][´bairro´].ToString;
TextBox4.Text := DS.Tables[´webservicecep´].Rows[0][´cidade´].ToString;
TextBox5.Text := DS.Tables[´webservicecep´].Rows[0][´uf´].ToString;
Ficou show de bola.
esse dataset é que uses?
Clique aqui para fazer login e interagir na Comunidade :)
