Pro mnoho programátorů Delphi je ukládání nastavení spojeno s používáním INI soubory ve svých programech. Použití této metody ve více či méně závažných projektech je třeba se vyhnout, protože omezuje flexibilitu, což brání dalšímu rozšiřování programu. Je třeba říci, že tento přístup je poměrně populární díky snadnému použití a přítomnosti vestavěných nástrojů ve vývojovém prostředí.

Nicméně strukturované XML soubory. Jejich výhodou je, že počet parametrů nemusí být pevně daný. Abyste tomu lépe porozuměli, zvažte konkrétní příklad.

V programu USearch se po kliknutí na záznam zobrazí kontextové menu, ve kterém je zobrazen seznam položek. Tyto položky jsou příkazy, které se načítají ze souboru nastavení. V případě, že byla nastavení uložena v INI soubor, pak by program mohl uložit a načíst určitý počet příkazů, například 10 nebo 50. Jakmile bude vyžadována větší hodnota, budete muset přepsat kód a znovu jej odpovídajícím způsobem zkompilovat.

Použití přístupu pomocí XML soubory, budeme moci dynamicky načítat všechny parametry sekce. Konfigurační soubor se navíc stane elegantnějším, bez nadbytečného číslování parametrů. Ale, standardní prostředky pracovat s XML Delphi má mnoho nevýhod, proto doporučuji používat standardní knihovna MSXML... Obvykle je standardně součástí operační systémy Rodina Windows.

Chcete-li se připojit MSXML, potřebujeme vygenerovat soubor rozhraní se seznamem všech funkcí jeho importem ze serveru COM. O tom, jak importovat rozhraní, bylo napsáno mnoho podrobných článků, ale doporučuji vám stáhnout soubor MSXML2_TLB.PAS připraven k použití. Po stažení soubor umístěte vedle svého projektu nebo jej přesuňte do složky lib prostředí Delphi. Modul tedy budou moci používat všechny vytvořené programy MSXML, stačí přidat řádek MSXML2_TLB k použití.

Pro srozumitelnost zvažte následující příklad použití této knihovny:

Postup LoadData; var XMLDoc: DOMDocument; Kořen: IXMLDOMElement; begin XMLDoc: = CoDOMDocument.Create; XMLDoc.Load ("settins.xml"); Kořen: = XMLDoc.DocumentElement; ShowMessage (Root.SelectSingleNode ("velikost / šířka"). Text); Kořen: = nula; XMLDoc: = nula; konec;

Nejprve se vytvoří instance třídy DOMDocument a poté se do paměti načte obsah souboru settings.xml. Jelikož dle normy jakákoliv XML soubor musí obsahovat kořenovou značku (in v tomto případě config), pak jej musíme získat pomocí funkce DocumentElement... Poté se obsah zobrazí mezi značkami. , které jsou zase mezi značkami ... Naše metoda tedy ze souboru settings.xml zobrazí text ve MessageBoxu "100px".

500 pixelů 100 pixelů

Zde je aplikována metoda SelectSingleNode, která jako parametr bere řetězec

Navzdory tomu, že téma práce s XML v Delphi bylo na internetu hojně diskutováno, dotazy na toto téma se často objevují na nejrůznějších fórech.

Napsal jsem to také, ale rád bych se vrátil k reálnému případu rychlého parsování XML souboru a extrahování dat, které jsem dnes dělal v práci. Získat potřebná data mi netrvalo déle než 5 minut.

Pozadí. Dnes jsem potřeboval zpracovat data o nainstalované programy na počítačích uživatelů (ano, ano, identifikujeme piráty :)). Technické oddělení mi poskytlo tyto informace získané od nic netušících uživatelů přes síť pomocí WMI. Program, který použili, generuje zprávy XML formát... V souladu s tím mi přinesli horu XML souborů s poměrně složitou strukturou, ze které jsem musel vytáhnout pouze název nainstalovaných softwarových produktů.

Léčba . Když jsem si ručně prohlédl několik souborů, uvědomil jsem si, že nebude trvat dlouho, než zestárnu, a rozhodl jsem se napsat malý konvertor. Po spuštění Delphi jsem z úložiště vybral objekt XML DataBinding a vložil do něj jeden ze souborů. Ponechal jsem všechna nastavení a parametry ve výchozím nastavení a v důsledku toho modul s velké množství třídy a rozhraní pro přístup k prvkům tohoto souboru XML. Strukturou tříd jsem se dlouho neobtěžoval řešit, hned jsem přešel k psaní převodníku.

V nové konzolové aplikaci jsem napsal docela jednoduchý kód:

používá
Formuláře,
Třídy, SysUtils,
SoftwareXML v "SoftwareXML.pas";

procedura CovertXML2Text;
var
softbase: IXMLSTDSoftwareType;
i: celé číslo;
sr: TSearchRec;
CurDir: řetězec;
ExportFile: TStringList;
začít
CurDir: = IncludeTrailingPathDelimiter (ExtractFilePath (Application.ExeName));
pokud FindFirst (CurDir + "*. xml", faAnyFile, sr) = 0, pak
opakovat
ExportFile: = TStringList.Create;
softbase: = LoadSTDSoftware (Pchar (CurDir + sr.Name));
for i: = 0 to 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;
dokud FindNext (sr) 0;
konec;

začít
Application.Initialize;
CovertXML2Text;
konec.

V důsledku toho jsem pro každý počítač v mřížce získal jeden textový editor obsahující seznam nainstalovaného softwaru.

Mám pocit, že tento kód bude vyžadovat nějaké vysvětlení. Proč jsem například použil modul Forms v konzolové aplikaci a zavolal proceduru Application.Initialize;?

Je to vlastně jednoduché – jde o malý hack, který vám umožňuje používat XML Data Binding v konzolové aplikaci. Protože tvrdošíjně odmítala inicializovat třídu pro práci s XML. Ještě jsem nepřišel na skutečné důvody - dnes byl důležitý čas, už jsem s touto chybou strávil 4 z 5 minut. :) Myslím, že později se tímto problémem zabývat a napsat, co je skutečným důvodem.

Podivná třída softbase byla vytvořena ze souboru XML - to je název kořenového prvku a softbase.InstalledSoftware.source.software [i] .DisplayName je pouze procházení vnořenými prvky k požadovanému prvku a získávání jeho hodnoty.

Takhle jeden z nej rychlé způsoby práce s XML v Delphi.

XML se stále více používá k ukládání informací a jejich výměně mezi aplikacemi a webovými stránkami. Mnoho aplikací používá tento jazyk jako základní jazyk pro ukládání dat, zatímco jiné jej používají pro export a import dat XML. Je tedy čas, aby vývojáři začali přemýšlet o tom, jak lze data XML použít v jejich vlastních aplikacích.

V tomto článku se podíváme na XML Document Object Model (DOM) a implementaci XML DOM od společnosti Microsoft.

XML DOM je objektový model, který poskytuje vývojářům objekty pro načítání a zpracování souborů XML. Objektový model se skládá z následujících základních objektů: XMLDOMDocument, XMLDOMNodeList, XMLDOMNode, XMLDOMNamedNodeMap a XMLDOMParseError. Každý z těchto objektů (kromě XMLDOMParseError) obsahuje vlastnosti a metody, které vám umožňují získat informace o objektu, manipulovat s hodnotami a strukturou objektu a procházet strukturou dokumentu XML.

Podívejme se na hlavní objekty XML DOM a ukažme si některé příklady jejich použití v Borland Delphi.

Použití XML DOM v Borland Delphi

Abyste mohli používat Microsoft XML DOM v aplikacích Delphi, musíte k projektu připojit příslušnou knihovnu typů. K tomu spustíme příkaz Projekt | Import knihovny typů a v dialogovém okně Import knihovny typů vyberte knihovnu Microsoft XML verze 2.0 (verze 2.0), která se obvykle nachází v souboru Windows \ System \ MSXML.DLL.

Po kliknutí na tlačítko Create Unit se vytvoří modul rozhraní MSXML_TLB, který nám umožní používat objekty XML DOM: DOMDocument, XMLDocument, XMLHTTPRequest a řadu dalších, implementovaných v knihovně MSXML.DLL. Odkaz na modul MSXML_TLB musí být v seznamu Použití.

XML DOM zařízení

Objektový model dokumentu představuje dokument XML ve stromové struktuře větví. XML DOM API umožňují aplikacím procházet strom dokumentů a manipulovat s jeho větvemi. Každá větev může mít specifický typ (DOMNodeType), podle kterého se určuje nadřazená a podřízená větev. Většina dokumentů XML obsahuje větve typu element, atribut a text. Atributy jsou speciálním druhem větvení a nejsou podřízenými větvemi. Chcete-li spravovat atributy, použijte speciální metody poskytované objekty XML DOM.

Kromě implementace rozhraní doporučených konsorciem World Wide Web Consortium (W3C), Microsoft XML DOM obsahuje metody, které podporují XSL, XSL vzory, jmenné prostory a datové typy. Například metoda SelectNodes umožňuje použít syntaxi vzoru XSL k nalezení větví v určitém kontextu a metoda TransformNode podporuje použití XSL k provádění transformací.

Test XML dokumentu

Jako příklad dokumentu XML si vezměme adresář hudebního CD-ROM, který má následující strukturu:

Bob Dylan USA Kolumbie 10.90 1985 Bonnie tylor Spojené království CBS Records 9.90 1988 ... Joe kokr USA EMI 8.20 1987

Nyní jsme připraveni začít zkoumat objektový model XML DOM, počínaje objektem XMLDOMDocument.

Dokument XML - Objekt XMLDOMDocument

Práce s dokumentem XML začíná jeho načtením. K tomu používáme metodu Load, která má pouze jeden parametr, který určuje URL načítaného dokumentu. Při načítání souborů z lokálního disku se zadává pouze celý název souboru (soubor: /// protokol lze v tomto případě vynechat). Pokud je dokument XML uložen jako řetězec, použijte k načtení dokumentu metodu LoadXML.

Vlastnost Async se používá k řízení způsobu načítání dokumentu (synchronního nebo asynchronního). Ve výchozím nastavení je tato vlastnost nastavena na hodnotu True, což znamená, že dokument je načten asynchronně a řízení je vráceno aplikaci před úplným načtením dokumentu. V opačném případě se dokument načte synchronně a pak musíte zkontrolovat hodnotu vlastnosti ReadyState, abyste zjistili, zda se dokument načetl nebo ne. Můžete také vytvořit obslužnou rutinu pro událost OnReadyStateChange, která převezme řízení, když se změní hodnota vlastnosti ReadyState.

Následující text ukazuje, jak načíst dokument XML pomocí metody Load:

Používá ... MSXML_TLB ... procedure TForm1.Button1Click (Sender: TObject); var XMLDoc: IXMLDOMDocument; begin XMLDoc: = CoDOMDocument.Create; XMLDoc.Async: = False; XMLDoc.Load (‘C: \ DATA \ DATA.xml‘); // // Zde se nachází kód, který // manipuluje s dokumentem XML a jeho větvemi // XMLDoc: = Nil; konec;

Po načtení dokumentu máme přístup k jeho vlastnostem. Vlastnost NodeName tedy bude obsahovat hodnotu #document, vlastnost NodeTypeString bude obsahovat hodnotu dokumentu a vlastnost URL bude obsahovat soubor: /// C: /DATA/DATA.xml value.

Vypořádání se s chybou

Zvláště zajímavé jsou vlastnosti související se zpracováním dokumentů při načítání. Například vlastnost ParseError vrací objekt XMLDOMParseError obsahující informace o chybě, ke které došlo při zpracování dokumentu.

Chcete-li napsat obslužnou rutinu chyb, můžete přidat následující kód:

Var XMLError: IXMLDOMParseError; ... XMLDoc.Load (‘C: \ DATA \ DATA.xml‘); XMLError: = XMLDoc.ParseError; Pokud XMLError.ErrorCode<>0 Potom // // Zde zpracujeme chybu // Else Memo1.Lines.Add (XMLDoc.XML); ... XMLDoc: = Nil;

Chcete-li zjistit, jaké informace jsou vráceny v případě chyby, změňte následující položku adresáře:

Bob Dylan USA Kolumbie 10.90 1985

odstranění uzavíracího prvku .

Nyní přidáme novou větev. Níže je uveden kód, který ukazuje, jak přidat nový záznam hudebního disku CD-ROM:

Var NewNode: IXMLDOMNode; Podřízený: IXMLDOMNode; ... // Vytvořit novou větev - NewNode: = XMLDoc.CreateNode (1, ‚CD‘, ‚‘); // Přidání prvku Bob Dylan USA Kolumbie 10.90 1985 Bonnie tylor Spojené království CBS Records 9.90 1988 ... Joe kokr USA EMI 8.20 1987

Nyní jsme připraveni začít zkoumat objektový model XML DOM, počínaje objektem XMLDOMDocument.

Dokument XML - Objekt XMLDOMDocument

Práce s dokumentem XML začíná jeho načtením. K tomu používáme metodu Load, která má pouze jeden parametr, který určuje URL načítaného dokumentu. Při načítání souborů z lokálního disku se zadává pouze celý název souboru (soubor: /// protokol lze v tomto případě vynechat). Pokud je dokument XML uložen jako řetězec, použijte k načtení dokumentu metodu LoadXML.

Vlastnost Async se používá k řízení způsobu načítání dokumentu (synchronního nebo asynchronního). Ve výchozím nastavení je tato vlastnost nastavena na hodnotu True, což znamená, že dokument je načten asynchronně a řízení je vráceno aplikaci před úplným načtením dokumentu. V opačném případě se dokument načte synchronně a pak musíte zkontrolovat hodnotu vlastnosti ReadyState, abyste zjistili, zda se dokument načetl nebo ne. Můžete také vytvořit obslužnou rutinu pro událost OnReadyStateChange, která převezme řízení, když se změní hodnota vlastnosti ReadyState.

Následující text ukazuje, jak načíst dokument XML pomocí metody Load:

Používá ... MSXML_TLB ... procedure TForm1.Button1Click (Sender: TObject); var XMLDoc: IXMLDOMDocument; begin XMLDoc: = CoDOMDocument.Create; XMLDoc.Async: = False; XMLDoc.Load (‘C: \ DATA \ DATA.xml‘); // // Zde se nachází kód, který // manipuluje s dokumentem XML a jeho větvemi // XMLDoc: = Nil; konec;

Po načtení dokumentu máme přístup k jeho vlastnostem. Vlastnost NodeName tedy bude obsahovat hodnotu #document, vlastnost NodeTypeString bude obsahovat hodnotu dokumentu a vlastnost URL bude obsahovat soubor: /// C: /DATA/DATA.xml value.

Vypořádání se s chybou

Zvláště zajímavé jsou vlastnosti související se zpracováním dokumentů při načítání. Například vlastnost ParseError vrací objekt XMLDOMParseError obsahující informace o chybě, ke které došlo při zpracování dokumentu.

Chcete-li napsat obslužnou rutinu chyb, můžete přidat následující kód:

Var XMLError: IXMLDOMParseError; ... XMLDoc.Load (‘C: \ DATA \ DATA.xml‘); XMLError: = XMLDoc.ParseError; Pokud XMLError.ErrorCode<>0 Potom // // Zde zpracujeme chybu // Else Memo1.Lines.Add (XMLDoc.XML); ... XMLDoc: = Nil;

Chcete-li zjistit, jaké informace jsou vráceny v případě chyby, změňte následující položku adresáře:

Bob Dylan USA Kolumbie 10.90 1985

odstranění uzavíracího prvku .

Nyní přidáme novou větev. Níže je uveden kód, který ukazuje, jak přidat nový záznam hudebního disku CD-ROM:

Var NewNode: IXMLDOMNode; Podřízený: IXMLDOMNode; ... // Vytvořit novou větev - NewNode: = XMLDoc.CreateNode (1, ‚CD‘, ‚‘); // Přidání prvku