Viacep no XHARBOUR

por **KLEBERVO** » 22 Set 2021 11:35

Bom dia
Utilizo o xharbour com bcc e gostaria de saber qual função usar para acessar um ws?
Vi exemplos de harbour com a lib hbtip, mas nao sei como aplicar no xharbour.
Qualquer ajuda é bem vinda...

por **Itamar M. Lins Jr.** » 23 Set 2021 09:11

Olá!
Tem algum impedimento de migrar, atualizar para o Harbour 3.2 e GCC ?

Saudações,
Itamar M. Lins Jr.

por **KLEBERVO** » 23 Set 2021 16:05

Boa tarde Sr Itamar
Na verdade eu não sei se a linguagem é totalmente compatível.
Eu apenas estou fazendo a manutenção do sistema da minha loja.
O sistema esta em xharbour puro com BCC e a base de CEP que eu tenho esta muito desatualizada.
Como eu estou totalmente desatualizado, saberia me dizer, se o harbour ficou mais atualizado do que o xharbour?
Atenciosamente,
Kleber Valentim

por **Itamar M. Lins Jr.** » 23 Set 2021 16:17

Olá!

saberia me dizer, se o harbour ficou mais atualizado do que o xharbour?

Nunca deixou de ser, o xHarbour é uma cópia do Harbour.
A ideia do xHb, foi só fogo de palha.

Saudações,
Itamar M. Lins Jr.

por **KLEBERVO** » 23 Set 2021 17:49

Perfeito Sr Itamar.

Vou baixar o harbour para fazer as atualizações.

Muito grato...

por **alaminojunior** » 28 Jan 2022 12:10

Eis o exemplo que utilizo em xHarbour, que deve funcionar também em Harbour.

Function chkcep(cCep)
Local aUF, aCID, aBAI, aLOG, aRUA
if !netok()
   return {}
endif
PRIVATE oPg,cBuf
oPg := CreateObject("Microsoft.XMLHTTP")
oPg:Open("GET","http://cep.republicavirtual.com.br/web_cep.php?cep=" + cCep + "&formato=xml",.F.)
oPg:Send()
cBuf := oPg:responseBody
if at("cep inválido",cBuf) > 0
   msgexclamation("CEP inválido !","ATENÇÃO")
   return {}
endif
aUF  := substr(cBuf, at('<uf>', cBuf) + 4, 2)
aCID := substr(cBuf, at('<cidade>', cBuf) + 8, at('</cidade>', cBuf) - (at('<cidade>', cBuf) + 8))
aBAI := substr(cBuf, at('<bairro>', cBuf) + 8, at('</bairro>', cBuf) - (at('<bairro>', cBuf) + 8))
aLOG := substr(cBuf, at('<tipo_logradouro>', cBuf) + 17, at('</tipo_logradouro>', cBuf) - (at('<tipo_logradouro>', cBuf) + 17))
aRUA := substr(cBuf, at('<logradouro>', cBuf) + 12, at('</logradouro>', cBuf) - (at('<logradouro>', cBuf) + 12))
return {pad(aLOG + " " + aRUA,40),pad(aBAI,30),pad(aCID,25),pad(aUF,2)}