about contrib xhb in hmg.3.0.36

[jparada]

Hi,

With version hmg.3.0.36, I'm trying to use the TXMLDocument of contrib xhb, and does not work.

The question is whether this contrib was included in the version of hmg, and if that is not included, if possible inclusion?.

I appreciate any help.

Thank you very much.

Best Regards,
Javier

[l3whmg]

Hi Javier,
xhb it's a Harbour contrib library, not a Hmg contrib.
Rathinagiri download Harbour package and include it in Hmg distribution for our convenience
I think if xhb don't work you/we must send a message to Harbour mailing list

Cheers

[Rathinagiri]

Hi Javier,

Can you run the test programs in contrib directory?

[jparada]

Hi Rathinagiri,

Thanks for answering,

I'm sorry, I have problems with my PC, and I can not perform any test at this time.

Thank you very much.

Best Regards,
Javier

[Pablo César]

Today I needed it, TXMLDocument of contrib xhb. And I have included xHB lib and it worked ok.

See my code example:

Code: Select all

// Compile with xHB

Function Main(cArquivo)
SetMode(25,80)
If cArquivo=NIL
   RetornaConteudoXml("Arqxml.xml")
Else
   RetornaConteudoXml(cArquivo)
Endif
Return

Function RetornaConteudoXml(cFileName)
LOCAL hFile, cXml
LOCAL xmlDoc, xmlIter , xmlNode, cNode, cAttrib, cValue, oCampo, oConteudo

if !file(cFileName)
   Alert("Arquivo "+cFileName+" nao encontrado !")
   Return nil
end
cNode := NIL
cAttrib := NIL
cValue := NIL
hFile := FOpen( cFileName )
xmlDoc := TXmlDocument():New( hFile )
IF xmlDoc:nStatus != 1
   Alert("erro ao ler XML ")
   Return Nil
ENDIF
xmlIter := TXmlIterator():New( xmlDoc:oRoot )
xmlNode := xmlIter:Find()
DO WHILE xmlNode != NIL
   if !empty(xmlNode:cData)
      if subs(xmlNode:cData,1,1) # "<"
         oCampo :=xmlNode:cName
         oConteudo:=xmlNode:cData
      endif
   else
      oCampo :=xmlNode:cName
	  oConteudo:=""
   endif
   
   alert( Padr("Campo...: "+oCampo,70)+";"+;
          Padr("Conteudo: "+oConteudo,70))
	  
   xmlNode := xmlIter:Next()                        // joga pro proximo campo
ENDDO
Return nil 

And this is XML file example (Arqxml.xml):

Code: Select all

<webservicecep>
<resultado>1</resultado>
<resultado_txt>sucesso - cep completo</resultado_txt>
<uf>RS</uf>
<cidade>Porto Alegre</cidade>
<bairro>Passo D'Areia</bairro>
<tipo_logradouro>Avenida</tipo_logradouro>
<logradouro>Assis Brasil</logradouro>
</webservicecep>

I hope to be usefull for someone alse.