Classe: TXMLViewer

Cria um visualizador de "xml" em formato de arvore. Apenas para arquivos localizados no Cliente (SmartClient).
 
Hierarquia

TSrvObject -> TControl -> TXMLViewer

Construtores

New

 

New

Método construtor da classe.

 
Sintaxe

TXMLViewer(): New ( nRow, nCol, [ oWnd ], [cFile], nWidth, nHeight, lPixel) --> oObjeto

 
Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
nRowNuméricoIndica a coordenada vertical em pixels ou caracteres.  
nColNumérico.Indica a coordenada horizontal em pixels ou caracteres.  
oWnd ObjetoIndica a janela ou controle visual onde o objeto será criado.  
cFileCarácterEndereço do arquivo "xml" no Client.  
nWidthNuméricoIndica a largura em pixels do objeto.  
nHeightNuméricoIndica a altura em pixels do objeto.  
lPixelLogicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).  

 

Retorno
oObjeto
    ()
  • Retorna o objeto criado.
 
Exemplos
oXml:= TXMLViewer():New(10, 10, oDlg , cFile , 100, 100, .T. )

 

Métodos

setXML

 setXML

Método para definir o arquivo "xml" que será apresentado.

 
Sintaxe

TXMLViewer(): setXML( cfile )

Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
cfile CaracterEndereço do arquivo "xml" no Client.  

Exemplos

TXMLViewer():XMLViewer:setXML(cFile)

Exemplos 

#include "totvs.ch"

User Function TXMLViewer()

Local cTempPath := GetTempPath(.T.)
Local cFile := cTempPath +'teste.xml'

oDlg := TDialog():New(150,150,500,500,'',,,,,,,,,.T.)

ofileXML := FCREATE(cFile)
cContent := "<?xml version='1.0' encoding='ISO-8859-1' standalone='yes' ?><testsuite time='0.0000'><testcase id='1'></testcase></testsuite>"
If ofileXML>0
FWrite(ofileXML, cContent)
FClose(ofileXML)
EndIf

oXml := TXMLViewer():New(10, 10, oDlg , cFile, 150, 150, .T. )

if oXml:setXML(cFile)
Alert("Arquivo não encontrado")
EndIf

oDlg:Activate()

Return

 
Preview
Exemplo da classe tXMLViewer:

 

Abrangência
TOTVS - Build superior a 7.00.120420A