Mulți programatori Delphi asociază setările de salvare cu utilizarea INI fișierele din programele dvs. Utilizarea acestei metode în proiecte mai puțin serioase ar trebui evitată, deoarece limitează flexibilitatea, ceea ce împiedică extinderea ulterioară a programului. Merită spus că această abordare este destul de populară datorită ușurinței sale de utilizare și disponibilității instrumentelor încorporate în mediul de dezvoltare.

Cu toate acestea, opțiunea ideală pentru stocarea setărilor programului este structurată XML fișiere. Avantajul lor este că este posibil ca numărul de parametri să nu fie fixat. Pentru a înțelege mai bine acest lucru, să ne uităm la un exemplu specific.

În programul USearch, când faceți clic pe o intrare, apare un meniu contextual, care afișează o listă de articole. Aceste elemente sunt comenzi, care la rândul lor sunt încărcate din fișierul de setări. Dacă setările au fost stocate în INI fișier, atunci programul ar putea salva și încărca un anumit număr de comenzi, de exemplu 10 sau 50. De îndată ce este nevoie de o valoare mai mare, codul va trebui rescris și recompilat corespunzător.

Folosind abordarea folosind XML fișiere, vom putea încărca dinamic toți parametrii secțiunii. Pe lângă toate acestea, fișierul de configurare va deveni mai elegant, fără numerotarea redundantă a parametrilor. In orice caz, mijloace standard a lucra cu XMLîn Delphi au multe dezavantaje, așa că recomand să folosești bibliotecă standard MSXML. De obicei, este inclus în mod implicit sisteme de operare Familia Windows.

A conecta MSXML, trebuie să generăm un fișier de interfață cu o listă a tuturor funcțiilor, importându-l de pe serverul COM. Au fost scrise destul de multe articole detaliate despre cum să importați o interfață, dar vă sugerez să descărcați fișierul MSXML2_TLB.PAS deja gata de utilizare. După ce fișierul este descărcat, plasați-l lângă proiectul dvs. sau plasați-l în folderul lib al mediului Delphi. Astfel, toate programele create vor putea folosi modulul MSXML, trebuie doar să adăugați linia MSXML2_TLB la utilizări.

Pentru claritate, luați în considerare următorul exemplu de utilizare a acestei biblioteci:

Procedura LoadData; var XMLDoc: DOMDocument; Rădăcină: IXMLDOMElement; începe XMLDoc:= CoDOMDocument.Create; XMLDoc.Load("settins.xml"); Root:= XMLDoc.DocumentElement; ShowMessage(Root.SelectSingleNode("size/width").Text); Rădăcină:= zero; XMLDoc:= zero; Sfârşit;

Mai întâi, este creată o instanță a clasei DOMDocument și apoi conținutul fișierului settings.xml este încărcat în memorie. Deoarece conform standardului orice XML fișierul trebuie să conțină o etichetă rădăcină (în în acest caz, config), atunci trebuie să-l obținem folosind funcția DocumentElement. Apoi, conținutul dintre etichete este scos , care la rândul lor sunt situate între etichete . Astfel, din fișierul settings.xml, metoda noastră va afișa text în MessageBox "100px".

500px 100px

Aici este folosită metoda SelectSingleNode, care ia ca parametru un șir

În ciuda faptului că subiectul lucrului cu XML în Delphi a fost destul de discutat pe Internet, întrebările pe această temă apar destul de des pe diferite forumuri.

De asemenea, am scris deja, dar aș dori să revin la cazul real al analizei rapide a unui fișier XML și al extragerii datelor, ceea ce am făcut astăzi la serviciu. Nu mi-a luat mai mult de 5 minute să obțin datele necesare.

Fundal. Astăzi trebuia să procesăm date despre programe instalate pe computerele utilizatorilor (da, da, detectăm pirați :)). Departamentul tehnic mi-a furnizat aceste informații, dezlipite de utilizatorii nebănuiți prin rețea folosind WMI. Programul pe care l-au folosit produce rapoarte în format XML. În consecință, mi-au adus un munte de fișiere XML cu o structură destul de complexă din care aveam nevoie doar să extrag numele produselor software instalate.

Tratament . După ce am căutat manual câteva fișiere, mi-am dat seama că nu va dura mult să îmbătrânesc și am decis să scriu un convertor mic. După ce am lansat Delphi, am selectat obiectul XML DataBinding din depozit și i-am alimentat unul dintre fișiere. Am lăsat implicit toate setările și parametrii și ca rezultat am creat un modul cu o cantitate mare clase și interfețe pentru accesarea elementelor acestui fișier XML. Nu am petrecut mult timp să-mi dau seama de structura clasei și am trecut imediat la scrierea unui convertor.

În noua aplicație de consolă am scris un cod destul de simplu:

utilizări
Forme
Clase, SysUtils,
SoftwareXML în „SoftwareXML.pas”;

procedura CovertXML2Text;
var
softbase: IXMLSTDSoftwareType;
i:întreg;
sr: TSearchRec;
CurDir: șir;
ExportFile: TStringList;
ÎNCEPE
CurDir:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
dacă FindFirst(CurDir+"*.xml", faAnyFile, sr) = 0 atunci
repeta
ExportFile:= TStringList.Create;
softbase:= LoadSTDSoftware(Pchar(CurDir+sr.Name));
pentru i:= 0 la softbase.InstalledSoftware.source.software.Count - 1 do
ExportFile.Add(softbase.InstalledSoftware.source.software[i].DisplayName);
ExportFile.Sort;
ExportFile.SaveToFile(CurDir + softbase.InstalledSoftware.Source.servername+".txt");
ExportFile.Free;
până la FindNext(sr) 0;
Sfârşit;

ÎNCEPE
Application.Initialize;
CovertXML2Text;
Sfârşit.

Ca urmare, am avut câte un fișier text pentru fiecare computer din rețea, care conținea o listă de software instalat.

Simt că acest cod necesită o explicație. De exemplu, de ce am folosit modulul Forms într-o aplicație consolă și am apelat procedura Application.Initialize;?

De fapt, este simplu - este un mic hack care vă permite să utilizați XML Data Binding într-o aplicație de consolă. Pentru că a refuzat cu încăpățânare să inițialeze clasa pentru lucrul cu XML. Nu mi-am dat seama încă motivele reale - timpul a fost important astăzi, am petrecut deja 4 din 5 minute luptând cu această eroare. :) Cred că mă voi ocupa de această problemă mai târziu și voi scrie care este motivul real.

Ciudată clasă softbase a fost creată pe baza unui fișier XML - acesta era numele elementului rădăcină și softbase.InstalledSoftware.source.software[i].DisplayName - pur și simplu navigați prin elementele imbricate la cel dorit și obțineți valoarea acestuia.

Acesta este de fapt cum arată unul dintre cele mai multe moduri rapide lucrul cu XML în Delphi.

XML este din ce în ce mai folosit pentru a stoca informații și a le schimba între aplicații și site-uri web. Multe aplicații folosesc acest limbaj ca limbaj de bază pentru stocarea datelor, în timp ce altele îl folosesc pentru exportul și importarea datelor XML. Aceasta înseamnă că este timpul ca dezvoltatorii să se gândească la modul în care pot folosi datele XML în propriile aplicații.

În acest articol ne vom uita la documentul XML Model obiect(DOM) și implementarea acesteia de către Microsoft - Microsoft XML DOM.

XML DOM este un model de obiecte care oferă dezvoltatorului obiecte pentru încărcarea și procesarea fișierelor XML. Modelul obiect constă din următoarele obiecte principale: XMLDOMDocument, XMLDOMNodeList, XMLDOMNode, XMLDOMNamedNodeMap și XMLDOMParseError. Fiecare dintre aceste obiecte (cu excepția XMLDOMParseError) conține proprietăți și metode care vă permit să obțineți informații despre obiect, să manipulați valorile și structura obiectului și să navigați prin structura documentului XML.

Să ne uităm la principalele obiecte XML DOM și să dăm câteva exemple de utilizare a acestora în Borland Delphi.

Utilizarea XML DOM în Borland Delphi

Pentru a utiliza Microsoft XML DOM în aplicațiile Delphi, trebuie să conectați biblioteca de tip corespunzătoare la proiect. Pentru a face acest lucru, executăm comanda Project | Import Type Library și în caseta de dialog Import Type Library, selectați biblioteca Microsoft XML versiunea 2.0 (Versiunea 2.0), care se află de obicei în fișierul Windows\System\MSXML.DLL

După ce facem clic pe butonul Create Unit, va fi creat modulul de interfață MSXML_TLB, care ne va permite să folosim obiecte XML DOM: DOMDocument, XMLDocument, XMLHTTPRequest și o serie de altele implementate în biblioteca MSXML.DLL. O referință la modulul MSXML_TLB trebuie să fie listată în lista Utilizări.

Dispozitiv XML DOM

Document Object Model reprezintă un document XML ca o structură arborescentă constând din ramuri. Interfețele de programare XML DOM permit aplicațiilor să navigheze în arborele de documente și să manipuleze ramurile acestuia. Fiecare ramură poate avea un anumit tip (DOMNodeType), în funcție de care sunt determinate ramurile părinte și fii. În majoritatea documentelor XML veți găsi ramuri precum element, atribut și text. Atributele sunt un tip special de ramură și nu sunt ramuri copil. Atributele sunt folosite pentru a gestiona metode speciale, furnizat de obiectele XML DOM.

Pe lângă implementarea interfețelor recomandate de World Wide Web Consortium (W3C), Microsoft XML DOM conține metode care acceptă XSL, modele XSL, spații de nume și tipuri de date. De exemplu, metoda SelectNodes vă permite să utilizați sintaxa modelului XSL pentru a găsi ramuri într-un context specific, iar metoda TransformNode acceptă utilizarea XSL pentru a efectua transformări.

Testează documentul XML

Ca exemplu de document XML, să luăm un director de CD-ROM-uri muzicale, care are următoarea structură:

Bob Dylan STATELE UNITE ALE AMERICII Columbia 10.90 1985 Bonnie Tylor Regatul Unit CBS Records 9.90 1988 ... Joe Cocker STATELE UNITE ALE AMERICII EMI 8.20 1987

Acum suntem gata să începem să ne uităm la modelul de obiect XML DOM, pe care îl vom începe cu obiectul XMLDOMDocument.

Document XML - obiect XMLDOMDocument

Lucrul cu un document XML începe cu încărcarea acestuia. Pentru a face acest lucru, folosim metoda Load, care are un singur parametru care indică adresa URL a documentului de încărcat. La încărcarea fișierelor de pe un disc local, este specificat doar numele complet al fișierului (protocolul fișier:/// poate fi omis în acest caz). Dacă documentul XML este stocat ca șir, ar trebui să utilizați metoda LoadXML pentru a încărca documentul.

Pentru a controla modul în care este încărcat documentul (sincron sau asincron), utilizați proprietatea Async. În mod implicit, această proprietate este setată la True, ceea ce indică faptul că documentul este încărcat asincron și controlul este returnat aplicației înainte ca documentul să fie încărcat complet. În caz contrar, documentul este încărcat sincron, iar apoi trebuie să verificați valoarea proprietății ReadyState pentru a afla dacă documentul s-a încărcat sau nu. De asemenea, puteți crea un handler de evenimente OnReadyStateChange care va primi control atunci când valoarea proprietății ReadyState se schimbă.

Următoarele arată cum să încărcați un document XML utilizând metoda Load:

Utilizează ... MSXML_TLB ... procedura TForm1.Button1Click(Sender: TObject); var XMLDoc: IXMLDOMDocument; începe XMLDoc:= CoDOMDocument.Create; XMLDoc.Async:= False; XMLDoc.Load('C:\DATA\DATA.xml'); // // Iată codul care manipulează // documentul XML și ramurile acestuia // XMLDoc:= Nil; Sfârşit;

Odată ce documentul este încărcat, putem accesa proprietățile acestuia. Astfel, proprietatea NodeName va conține valoarea #document, proprietatea NodeTypeString va conține documentul cu valoare, iar proprietatea URL va conține valoarea fișier:///C:/DATA/DATA.xml.

Eroare de manipulare

De un interes deosebit sunt proprietățile asociate procesării documentului atunci când este încărcat. Astfel, proprietatea ParseError returnează un obiect XMLDOMParseError care conține informații despre o eroare care a apărut în timpul procesării documentului.

Pentru a scrie un handler de erori, puteți adăuga următorul cod:

Var XMLError: IXMLDOMParseError; ... XMLDoc.Load('C:\DATA\DATA.xml'); XMLError:= XMLDoc.ParseError; Dacă XMLError.ErrorCode<>0 Apoi // // Aici ne ocupăm de eroare // Else Memo1.Lines.Add(XMLDoc.XML); ... XMLDoc:= Nil;

Pentru a vedea ce informații sunt returnate în cazul unei erori, să schimbăm următoarea intrare din director:

Bob Dylan STATELE UNITE ALE AMERICII Columbia 10.90 1985

îndepărtarea elementului de închidere .

Acum să adăugăm o nouă ramură. Mai jos este codul care arată cum să adăugați o nouă intrare CD-ROM muzicală:

Var NewNode: IXMLDOMNode; Copil: IXMLDOMNode; ... // Creați o nouă ramură - NewNode:= XMLDoc.CreateNode(1, 'CD', ''); // Adăugați un element Bob Dylan STATELE UNITE ALE AMERICII Columbia 10.90 1985 Bonnie Tylor Regatul Unit CBS Records 9.90 1988 ... Joe Cocker STATELE UNITE ALE AMERICII EMI 8.20 1987

Acum suntem gata să începem să ne uităm la modelul de obiect XML DOM, pe care îl vom începe cu obiectul XMLDOMDocument.

Document XML - obiect XMLDOMDocument

Lucrul cu un document XML începe cu încărcarea acestuia. Pentru a face acest lucru, folosim metoda Load, care are un singur parametru care indică adresa URL a documentului de încărcat. La încărcarea fișierelor de pe un disc local, este specificat doar numele complet al fișierului (protocolul fișier:/// poate fi omis în acest caz). Dacă documentul XML este stocat ca șir, ar trebui să utilizați metoda LoadXML pentru a încărca documentul.

Pentru a controla modul în care este încărcat documentul (sincron sau asincron), utilizați proprietatea Async. În mod implicit, această proprietate este setată la True, ceea ce indică faptul că documentul este încărcat asincron și controlul este returnat aplicației înainte ca documentul să fie încărcat complet. În caz contrar, documentul este încărcat sincron, iar apoi trebuie să verificați valoarea proprietății ReadyState pentru a afla dacă documentul s-a încărcat sau nu. De asemenea, puteți crea un handler de evenimente OnReadyStateChange care va primi control atunci când valoarea proprietății ReadyState se schimbă.

Următoarele arată cum să încărcați un document XML utilizând metoda Load:

Utilizează ... MSXML_TLB ... procedura TForm1.Button1Click(Sender: TObject); var XMLDoc: IXMLDOMDocument; începe XMLDoc:= CoDOMDocument.Create; XMLDoc.Async:= False; XMLDoc.Load('C:\DATA\DATA.xml'); // // Iată codul care manipulează // documentul XML și ramurile acestuia // XMLDoc:= Nil; Sfârşit;

Odată ce documentul este încărcat, putem accesa proprietățile acestuia. Astfel, proprietatea NodeName va conține valoarea #document, proprietatea NodeTypeString va conține documentul cu valoare, iar proprietatea URL va conține valoarea fișier:///C:/DATA/DATA.xml.

Eroare de manipulare

De un interes deosebit sunt proprietățile asociate procesării documentului atunci când este încărcat. Astfel, proprietatea ParseError returnează un obiect XMLDOMParseError care conține informații despre o eroare care a apărut în timpul procesării documentului.

Pentru a scrie un handler de erori, puteți adăuga următorul cod:

Var XMLError: IXMLDOMParseError; ... XMLDoc.Load('C:\DATA\DATA.xml'); XMLError:= XMLDoc.ParseError; Dacă XMLError.ErrorCode<>0 Apoi // // Aici ne ocupăm de eroare // Else Memo1.Lines.Add(XMLDoc.XML); ... XMLDoc:= Nil;

Pentru a vedea ce informații sunt returnate în cazul unei erori, să schimbăm următoarea intrare din director:

Bob Dylan STATELE UNITE ALE AMERICII Columbia 10.90 1985

îndepărtarea elementului de închidere .

Acum să adăugăm o nouă ramură. Mai jos este codul care arată cum să adăugați o nouă intrare CD-ROM muzicală:

Var NewNode: IXMLDOMNode; Copil: IXMLDOMNode; ... // Creați o nouă ramură - NewNode:= XMLDoc.CreateNode(1, 'CD', ''); // Adăugați un element