Array
(
)

Pesquisar CEP e preencher os Edits Rua, Bairro e Estado

Pauloroger
   - 13 abr 2009

Amigos Delphianos como diz nosso amigo Luciano.

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.


Knight_of_wine
   - 28 ago 2009

Veja se isso te ajuda.

http://www.correios.com.br/cep/cep_coloque.cfm


Pauloroger
   - 31 ago 2009

Na verdade quem me ajudou foi o Rodrigo Carreiro pelo suporte DevMedia, veja como ficou.

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.