Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 2 Próxima »

Classe: tXMLViewer

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

TSrvObject -> tControl -> TXMLViewer

Construtores

New

 

New

Método construtor da classe.

 

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

 

 

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

 

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

 

Métodos

setXML

 setXML

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

 

tXMLViewer(): setXML( cfile )

 

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

Exemplos

tXMLViewer():XMLViewer:setXML(cFile)

#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

 
Exemplo da classe tXMLViewer:

 

TOTVS - Build superior a 7.00.120420A
  • Sem rótulos