Mnogi programerji Delphi povezujejo shranjevanje nastavitev z uporabo INI datoteke v vaših programih. Aplikacija ta metoda, pri bolj ali manj resnih projektih, se je treba izogibati, saj omejuje fleksibilnost, kar onemogoča nadaljnjo širitev programa. Vredno je povedati, da je ta pristop precej priljubljen zaradi enostavnosti uporabe in razpoložljivosti vgrajenih orodij v razvojnem okolju.

Vendar je idealna možnost za shranjevanje programskih nastavitev strukturirana XML datoteke. Njihova prednost je, da število parametrov ni mogoče določiti. Da bi to bolje razumeli, si oglejmo konkreten primer.

V programu USearch se ob kliku na vnos pojavi kontekstni meni, ki prikaže seznam elementov. Ti elementi so ukazi, ki se nato naložijo iz nastavitvene datoteke. Če so bile nastavitve shranjene v INI datoteko, potem lahko program shrani in naloži določeno število ukazov, na primer 10 ali 50. Takoj ko bo potrebna večja vrednost, bo treba kodo prepisati in ustrezno znova prevesti.

Uporaba pristopa z uporabo XML datotek, bomo lahko dinamično naložili vse parametre razdelka. Poleg vsega tega bo konfiguracijska datoteka postala elegantnejša, brez odvečnega oštevilčenja parametrov. vendar standardna sredstva delati z XML Delphi ima veliko pomanjkljivosti, zato priporočam uporabo standardne knjižnice MSXML. Običajno je privzeto vključen operacijski sistemi Družina Windows.

Povezati MSXML, moramo ustvariti vmesniško datoteko s seznamom vseh funkcij in jo uvoziti s strežnika COM. Precej je bilo napisanega o tem, kako uvoziti vmesnik. podrobni članki, predlagam, da prenesete datoteko MSXML2_TLB.PASže pripravljen za uporabo. Ko je datoteka prenesena, jo postavite poleg svojega projekta ali jo spustite v mapo lib okolja Delphi. Tako bodo vsi ustvarjeni programi lahko uporabljali modul MSXML, preprosto morate dodati vrstico MSXML2_TLB v uses.

Zaradi jasnosti si oglejte naslednji primer uporabe te knjižnice:

Procedure LoadData; var XMLDoc: DOMDocument; Koren: IXMLDOMElement; begin XMLDoc:= CoDOMDocument.Create; XMLDoc.Load("settins.xml"); Root:= XMLDoc.DocumentElement; ShowMessage(Root.SelectSingleNode("size/width").Text); Koren:= nič; XMLDoc:= nič; konec;

Najprej se ustvari primerek razreda DOMDocument, nato pa se vsebina datoteke settings.xml naloži v pomnilnik. Ker po standardu koli XML datoteka mora vsebovati korensko oznako (v tem primeru konfiguracija), potem ga moramo pridobiti s funkcijo DocumentElement. Nato se prikaže vsebina med oznakama , ki se nahajajo med oznakama . Tako bo naša metoda iz datoteke settings.xml prikazala besedilo v MessageBox "100px".

500 slikovnih pik 100 slikovnih pik

Tukaj je uporabljena metoda SelectSingleNode, ki za parameter vzame niz

Kljub dejstvu, da je bila tema dela z XML v Delphiju precej razpravljana na internetu, se vprašanja o tej temi pogosto pojavljajo na različnih forumih.

Tudi o tem sem že pisal, vendar bi se rad vrnil k resničnemu primeru hitre analize datoteko XML in pridobivanje podatkov, ki sem ga danes opravil v službi. Za pridobitev potrebnih podatkov nisem potreboval več kot 5 minut.

Ozadje. Danes smo morali obdelati podatke o nameščenih programov na računalnikih uporabnikov (ja, ja, odkrivamo pirate :)). Tehnični oddelek mi je posredoval te informacije, odvzete od nič hudega slutečih uporabnikov prek omrežja z WMI. Program, ki so ga uporabili, izdeluje poročila v formatu XML. Temu primerno so mi prinesli goro datotek XML s precej zapleteno strukturo, iz katere sem moral samo izluščiti imena nameščenih programskih izdelkov.

Zdravljenje. Ko sem ročno pregledal nekaj datotek, sem ugotovil, da ne bo trajalo dolgo, da bi se postaral, in se odločil napisati majhen pretvornik. Ko sem zagnal Delphi, sem v repozitoriju izbral objekt XML DataBinding in mu dodal eno od datotek. Vse nastavitve in parametre sem pustil privzeto in posledično sem ustvaril modul z velikim številom razredov in vmesnikov za dostop do elementov te datoteke XML. Nisem porabil veliko časa za ugotavljanje strukture razreda in sem takoj prešel na pisanje pretvornika.

V novi konzolni aplikaciji sem napisal precej preprosto kodo:

uporablja
Obrazci
Razredi, SysUtils,
SoftwareXML v "SoftwareXML.pas";

postopek CovertXML2Text;
var
softbase: IXMLSTDSoftwareType;
i:celo število;
sr: TSearchRec;
CurDir: niz;
ExportFile: TStringList;
začeti
CurDir:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
če je FindFirst(CurDir+"*.xml", faAnyFile, sr) = 0, potem
ponovite
ExportFile:= TStringList.Create;
softbase:= LoadSTDSoftware(Pchar(CurDir+sr.Name));
for i:= 0 do 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;
dokler FindNext(sr) 0;
konec;

začeti
Application.Initialize;
CovertXML2Text;
konec.

Posledično sem imel za vsak računalnik v omrežju eno besedilno datoteko, ki je vsebovala seznam nameščene programske opreme.

Zdi se mi, da ta koda zahteva nekaj razlage. Zakaj sem na primer uporabil modul Forms v konzolni aplikaciji in poklical proceduro Application.Initialize;?

Pravzaprav je preprosto – gre za majhen vdor, ki vam omogoča uporabo XML Data Binding v konzolni aplikaciji. Ker trmasto ni hotel inicializirati razreda za delo z XML. Nisem še ugotovil pravih razlogov - čas je bil danes pomemben, 4 od 5 minut sem že porabil za boj proti tej napaki. :) Mislim, da se bom kasneje ukvarjal s tem problemom in napisal kaj je pravi razlog.

Nenavaden razred softbase je bil ustvarjen na Temelji na XML datoteka - to je bilo ime korenskega elementa, in softbase.InstalledSoftware.source.software[i].DisplayName - preprosto se pomaknite med ugnezdenimi elementi do želenega in pridobite njegovo vrednost.

Tako je pravzaprav videti eden najbolj hitre načine delo z XML v Delphiju.

XML se vse bolj uporablja za shranjevanje informacij in njihovo izmenjavo med aplikacijami in spletnimi mesti. Številne aplikacije uporabljajo ta jezik kot osnovni jezik za shranjevanje podatkov, medtem ko ga druge uporabljajo za izvoz in uvoz podatkov XML. To pomeni, da je čas, da razvijalci razmislijo o tem, kako lahko uporabljajo podatke XML v svojih aplikacijah.

V tem članku si bomo ogledali XML Document Object Model (DOM) in njegovo izvedbo s strani Microsofta - Microsoft XML DOM.

XML DOM je objektni model, ki razvijalcu nudi objekte za nalaganje in obdelavo datotek XML. Objektni model sestavljajo naslednji glavni objekti: XMLDOMDocument, XMLDOMNodeList, XMLDOMNode, XMLDOMNamedNodeMap in XMLDOMParseError. Vsak od teh objektov (razen XMLDOMParseError) vsebuje lastnosti in metode, ki vam omogočajo, da pridobite informacije o objektu, manipulirate z vrednostmi in strukturo predmeta ter krmarite po strukturi dokumenta XML.

Oglejmo si glavne objekte XML DOM in navedimo nekaj primerov njihove uporabe v Borland Delphi.

Uporaba XML DOM v Borland Delphi

Če želite uporabljati Microsoft XML DOM v aplikacijah Delphi, morate s projektom povezati ustrezno knjižnico tipov. Za to izvedemo ukaz Projekt | Import Type Library in v pogovornem oknu Import Type Library izberite knjižnico Microsoft XML različice 2.0 (različica 2.0), ki se običajno nahaja v datoteki Windows\System\MSXML.DLL

Po kliku na gumb Ustvari enoto se ustvari vmesniški modul MSXML_TLB, ki nam bo omogočil uporabo objektov XML DOM: DOMDocument, XMLDocument, XMLHTTPRequest in še vrsto drugih implementiranih v knjižnici MSXML.DLL. Sklic na modul MSXML_TLB mora biti naveden na seznamu Uporabe.

Naprava XML DOM

Objektni model dokumenta predstavlja dokument XML kot drevesno strukturo, sestavljeno iz vej. Programski vmesniki XML DOM omogočajo aplikacijam krmarjenje po drevesu dokumenta in manipuliranje z njegovimi vejami. Vsaka veja ima lahko določen tip (DOMNodeType), glede na katerega se določita nadrejena in podrejena veja. V večini dokumentov XML boste našli veje, kot so element, atribut in besedilo. Atributi so posebna vrsta veje in niso podrejene veje. Z atributi se manipulira s posebnimi metodami, ki jih zagotavljajo objekti XML DOM.

Poleg izvajanja vmesnikov, ki jih priporoča Konzorcij svetovnega spleta (W3C), Microsoft XML DOM vsebuje metode, ki podpirajo XSL, vzorce XSL, imenske prostore in vrste podatkov. Metoda SelectNodes vam na primer omogoča uporabo sintakse vzorca XSL za iskanje vej v določenem kontekstu, metoda TransformNode pa podpira uporabo XSL za izvajanje transformacij.

Preizkusite dokument XML

Kot primer dokumenta XML vzemimo imenik glasbenih CD-ROM-ov, ki ima naslednjo strukturo:

Bob Dylan ZDA Columbia 10.90 1985 Bonnie Tylor Združeno kraljestvo Založba CBS 9.90 1988 ... Joe Cocker ZDA EMI 8.20 1987

Zdaj smo pripravljeni na ogled objektnega modela XML DOM, ki ga bomo začeli z objektom XMLDOMDocument.

Dokument XML – objekt XMLDOMDocument

Delo z dokumentom XML se začne z nalaganjem. Za to uporabimo metodo Load, ki ima samo en parameter, ki označuje URL dokumenta, ki se naloži. Pri nalaganju datotek z lokalnega diska je navedeno samo polno ime datoteke (v tem primeru lahko protokol file:/// izpustimo). Če je dokument XML shranjen kot niz, morate za nalaganje dokumenta uporabiti metodo LoadXML.

Za nadzor načina nalaganja dokumenta (sinhrono ali asinhrono) uporabite lastnost Async. Privzeto je ta lastnost nastavljena na True, kar pomeni, da je dokument naložen asinhrono in da je nadzor vrnjen aplikaciji, preden je dokument v celoti naložen. V nasprotnem primeru se dokument naloži sinhrono, nato pa morate preveriti vrednost lastnosti ReadyState, da ugotovite, ali se je dokument naložil ali ne. Ustvarite lahko tudi upravljalnik dogodkov OnReadyStateChange, ki bo prejel nadzor, ko se spremeni vrednost lastnosti ReadyState.

V nadaljevanju je prikazano, kako naložiti dokument XML z metodo Load:

Uporablja ... MSXML_TLB ... procedure TForm1.Button1Click(Sender: TObject); var XMLDoc: IXMLDOMDocument; begin XMLDoc:= CoDOMDocument.Create; XMLDoc.Async:= False; XMLDoc.Load('C:\DATA\DATA.xml'); // // Tukaj je koda, ki manipulira // z dokumentom XML in njegovimi vejami // XMLDoc:= Nič; konec;

Ko je dokument naložen, lahko dostopamo do njegovih lastnosti. Tako bo lastnost NodeName vsebovala vrednost #document, lastnost NodeTypeString bo vsebovala vrednostni dokument, lastnost URL pa bo vsebovala vrednost file:///C:/DATA/DATA.xml.

Obravnava napak

Posebej zanimive so lastnosti, povezane z obdelavo dokumenta, ko je naložen. Tako lastnost ParseError vrne objekt XMLDOMParseError, ki vsebuje informacije o napaki, do katere je prišlo med obdelavo dokumenta.

Če želite napisati obravnavo napak, lahko dodate naslednjo kodo:

Var XMLError: IXMLDOMParseError; ... XMLDoc.Load('C:\DATA\DATA.xml'); XMLError:= XMLDoc.ParseError; Če XMLError.ErrorCode<>0 Nato // // Tukaj obravnavamo napako // Else Memo1.Lines.Add(XMLDoc.XML); ... XMLDoc:= Nič;

Če želite videti, katere informacije so vrnjene v primeru napake, spremenimo naslednji vnos v imeniku:

Bob Dylan ZDA Columbia 10.90 1985

odstranitev zapiralnega elementa .

Zdaj pa dodamo novo vejo. Spodaj je koda, ki prikazuje, kako dodati nov vnos glasbenega CD-ROM-a:

Var NewNode: IXMLDOMNode; Podrejeni: IXMLDOMNode; ... // Ustvari novo vejo - NewNode:= XMLDoc.CreateNode(1, 'CD', ''); // Dodajanje elementa