Página 1 de 1

Busca CEP com PocketSOAP

Enviado: 15 Set 2010 13:34
por sygecom
Olá Pessoal,
Alguém poderia me dar umas dicas de como ficaria o exemplo do link abaixo de buscar Cep porem usando PocketSOAP ?
viewtopic.php?f=43&t=9481

Re: Busca CEP com PocketSOAP

Enviado: 21 Set 2010 13:39
por sygecom
Ninguém tem uma dica ?

Re: Busca CEP com PocketSOAP

Enviado: 24 Set 2010 00:51
por rochinha
Amiguinho,

Achei que tivesse colocado alguma resposta aqui, mas não.

Precisa ser com PocketSOAP?

Código: Selecionar todos

function main()
    oMSXML2 := TOleAuto():New( "MSXML2.ServerXMLHTTP" )
    ...
    ConsultaCEP( "05171-340" )
    return nil

function ConsultaCEP( QueCEP )
   cCEP := "http://republicavirtual.com.br/web_cep.php?cep=" + QueCEP + "&formato=xml"
   oCEP:= oMSXML2 // MSXML2.ServerXMLHTTP
   oCEP:Open( "GET", cCEP, .F.)
   oCEP:Send()
   QueCEP := oCEP:responseText
   MemoEdit( QueCEP )
   return QueCEP

Re: Busca CEP com PocketSOAP

Enviado: 24 Set 2010 08:16
por sygecom
Olá Rochinha,
Acontece que aquele endereço que uso tem a possibilidade de buscar o CEP informando o endereço, e isso não achei nos outros exemplos, é sempre o contrario ou seja tem que informar o CEP para ele retornar o endereço.
E pelo fato de no Windows Seven não estão mais funcionando o MSSOAP, por isso eu queria tentar utilizar o PocketSOAP para buscar o CEP.

Re: Busca CEP com PocketSOAP

Enviado: 30 Set 2010 14:25
por rochinha
Amiguinho,

O Vailtom postou dois exemplos legais Aqui deverão te servir.