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

Moderador: Moderadores
saberia me dizer, se o harbour ficou mais atualizado do que o xharbour?
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)}
Retornar para Outras linguagens de programação
Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes