proceduraScopo
Carica un documento XML da un file.
Sintassi
XMLDocument.Load(file xml)
Argomenti
| File XML | È una stringa contenente il percorso completo del file XML da leggere. |
| Format | E' una proprietà intera opzionale che indica qual è il formato del testo contenuto nel file da caricare. E' uno dei valori della lista Format. Il valore predefinito è XML. |
Esempio di codice
// ***********************************************
// Importa un documento XML dal file "filexml.xml"
// ***********************************************
public void XMLDocument.ImportaFile()
{
string filename = "" //
//
XMLString.Log := Empty String
//
filename := Path() +c C\ +c filexml.xml
if NullValue(filename, Empty String) <> Empty String
{
XMLDocument XMLDoc = new() //
XMLNode XMLNodo = null //
MyXMLItem MyOggetto = new() //
//
// Leggo il documento XML
XMLDoc.Load(filename)
//
// Elaboro il file XML
if XMLDoc.HasNextNode()
...
//
// Imposto Activate On Expand
AlberoOggetti.ActivateOnExpand := True
//
// Metto l'oggetto nell'albero
AlberoOggetti.SetDocument(MyOggetto)
//
// Eseguo Update Controls per poter attivare l'oggetto già in questa procedura, poi lo espando
this.UpdateControls()
AlberoOggetti.ActiveDocument := MyOggetto
this.Root := MyOggetto
AlberoOggetti.ExpandDoc(this.Root, True)
}
}
// Importa un documento XML dal file "filexml.xml"
// ***********************************************
public void XMLDocument.ImportaFile()
{
string filename = "" //
//
XMLString.Log := Empty String
//
filename := Path() +c C\ +c filexml.xml
if NullValue(filename, Empty String) <> Empty String
{
XMLDocument XMLDoc = new() //
XMLNode XMLNodo = null //
MyXMLItem MyOggetto = new() //
//
// Leggo il documento XML
XMLDoc.Load(filename)
//
// Elaboro il file XML
if XMLDoc.HasNextNode()
...
//
// Imposto Activate On Expand
AlberoOggetti.ActivateOnExpand := True
//
// Metto l'oggetto nell'albero
AlberoOggetti.SetDocument(MyOggetto)
//
// Eseguo Update Controls per poter attivare l'oggetto già in questa procedura, poi lo espando
this.UpdateControls()
AlberoOggetti.ActiveDocument := MyOggetto
this.Root := MyOggetto
AlberoOggetti.ExpandDoc(this.Root, True)
}
}
- Se il file non è leggibile o se il contenuto non è XML well formed la procedura genera un errore di applicazione. E' possibile gestire tali errori con un blocco Try.
Ultima modifica: 23/03/2021 / Validità: da 6.5.2680