Busca CEP com PocketSOAP

[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

[sygecom]

Ninguém tem uma dica ?

[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

[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.

[rochinha]

Amiguinho,

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