Histórico da Página

Descrição

Esta

função

permite

retornar

um

objeto,

que

possui

uma

estrutura

XML,

recebido

de

um

arquivo

por

parâmetro.

Sintaxe

XmlParserFile( < cFile >, < cReplace >, < cError >, < cWarning > )

Parâmetros

Retorno

Observações

• No código-fonte (exemplo) abaixo, observe os seguintes detalhes:
  • A User Function "getObjXML()" realizará a leitura do arquivo xml grqavado no disco.

• • Na variável "cFile", foi informada a string contendo o path e nome do arquivo xml a ser processado, localizado no disco a partir do rootpath do sistema Protheus.

• • A função "XmlParserFile" realizará a leitura do arquivo, analisará se a sintaxe e ordem das tags estão formadas, e gerar um objeto Advpl com a árvore correspondente a estrutura do XML.

• • Caso as tags não sejam formadas, corretamente, a variável (cError e cWarning) retornarão um alerta (warning) ou erro, conforme os parâmetros (@cError e @cWarning) informados por referência.

• • A variável "oXml" retornará o conteúdo do objeto na estrutura de árvore; ou seja, na mesma estrutura XML, onde cada nível da árvore é uma propriedade subsequente do objeto.
  • Após você utilizar os objetos dinâmicos gerados pelo parser, a definição deles continua na memória, a menos que você limpe a definição usando a função DelClassIntf().

• A estrutura retornada:

  Bloco de código
  language cpp theme Eclipse linenumbers true collapse false
  <ObjXML> <NodeXML> -<ArrayNodes> -REALNAME -TEXT -TYPE

Exemplo

  #INCLUDE "TOTVS.CH"
  #INCLUDE "XMLXFUN.CH"

  User Function getObjXML()
  Local cError   := ""
  Local cWarning := ""
  Local cXmlFile := ""
  Local oXml := NIL

  // Arquivo XML
  cXmlFile := "xmlcontent.xml"

  //Gera o Objeto XML
  oXml := XmlParserFile( GeraXML()cXmlFile, "_", @cError, @cWarning )
  If (oXml == NIL )
    MsgStop("Falha ao gerar Objeto XML : "+cError+" / "+cWarning)
    Return
  Endif

  // Mostrando a informação do Node
  MsgInfo(oXml:_PEDIDO:_NOMECLIENTE:Text,"Cliente")

  Return oXml

  // funçãoExemplo parade gerarconteúdo umado string contendo um arquivo xmlcontent.xml
  Static Function GeraXML()
  Local cScript/*
  cScript := '<?xml version="1.0" encoding="ISO-8859-1"?>'
  cScript += "<pedido>"
  cScript += "    <Nome_Cliente>Microsiga Software</Nome_Cliente>"
  cScript += "    <Endereco>Av. Braz Leme</Endereco>"
  cScript += "    <Numero>1361</Numero>"
  cScript +=	 "    <Data>22-03-2005</Data>"
  cScript += "    <Itens>"
  cScript += "     	   <Item>"
  cScript += "            		<Produto>Protheus</Produto>"
  cScript += "            <Quantidade>1</Quantidade>"
  cScript += "            <Preco>100.00</Preco>"
  cScript += "        </Item>"
  cScript += "    </Itens>"
  cScript += "</pedido>"
  Return cScript

Abrangência

*/

Veja também

• Tratamento de XML