Mange Delphi-programmerere forbinder lagring av innstillinger med bruk INI filer i programmene dine. Søknad denne metoden, i mer eller mindre seriøse prosjekter, bør unngås, da det begrenser fleksibiliteten, noe som hindrer ytterligere utvidelse av programmet. Det er verdt å si at denne tilnærmingen er ganske populær på grunn av dens brukervennlighet og tilgjengeligheten av innebygde verktøy i utviklingsmiljøet.

Det ideelle alternativet for å lagre programinnstillinger er imidlertid strukturert XML filer. Deres fordel er at antall parametere kanskje ikke er faste. For bedre å forstå dette, la oss se på et spesifikt eksempel.

I USearch-programmet, når du klikker på en oppføring, vises en kontekstmeny som viser en liste over elementer. Disse elementene er kommandoer, som igjen lastes fra innstillingsfilen. Hvis innstillingene ble lagret i INI fil, så kan programmet lagre og laste et visst antall kommandoer, for eksempel 10 eller 50. Så snart en større verdi er nødvendig, må koden skrives om og kompileres deretter.

Å bruke tilnærmingen ved å bruke XML filer, vil vi kunne laste alle seksjonsparametere dynamisk. I tillegg til alt dette vil konfigurasjonsfilen bli mer elegant, uten overflødig nummerering av parametere. Imidlertid standard betyrå jobbe med XML Delphi har mange ulemper, så jeg anbefaler å bruke standardbiblioteket MSXML. Det er vanligvis inkludert som standard operativsystemer Windows-familien.

For å koble til MSXML, må vi generere en grensesnittfil med en liste over alle funksjoner ved å importere den fra COM-serveren. Det er skrevet ganske mye om hvordan man importerer et grensesnitt. detaljerte artikler, jeg foreslår at du laster ned filen MSXML2_TLB.PAS allerede klar til bruk. Etter at filen er lastet ned, plasser den ved siden av prosjektet ditt, eller slipp den inn i lib-mappen i Delphi-miljøet. Dermed vil alle opprettede programmer kunne bruke modulen MSXML, du trenger bare å legge til linjen MSXML2_TLB til bruk.

For klarhet, vurder følgende eksempel på bruk av dette biblioteket:

Prosedyre LoadData; var XMLDoc: DOMDocument;

Rot: IXMLDOMElement; begin XMLDoc:= CoDOMDocument.Create; XML XMLDoc.Load("settins.xml"); Root:= XMLDoc.DocumentElement; ShowMessage(Root.SelectSingleNode("størrelse/bredde").Tekst); Rot:= null; XMLDoc:= null; slutt; Først opprettes en forekomst av DOMDocument-klassen, og deretter lastes innholdet av filen settings.xml inn i minnet. Siden i henhold til standarden evt filen må inneholde en root-tag (i dette tilfellet konfig.

), så må vi få den ved å bruke funksjonen DocumentElement

. Deretter sendes innholdet mellom taggene ut

, som igjen er plassert mellom taggene

. Derfor, fra settings.xml-filen, vil metoden vår vise tekst i MessageBox "100px" 500 piksler

100 piksler SelectSingleNode-metoden brukes her, som tar en streng som en parameter Til tross for at emnet arbeid med XML i Delphi har blitt diskutert ganske mye på Internett, oppstår spørsmål om dette emnet ganske ofte på forskjellige fora.

Jeg har også allerede skrevet om dette, men jeg vil gjerne komme tilbake til det virkelige tilfellet med en rask analyse

XML-fil

og datautvinning jeg gjorde på jobben i dag. Det tok meg ikke mer enn 5 minutter å få de nødvendige dataene.

Bakgrunn. I dag trengte vi å behandle data om
installerte programmer
på brukernes datamaskiner (ja, ja, vi oppdager pirater :)). Den tekniske avdelingen ga meg denne informasjonen, fratatt intetanende brukere over nettverket ved hjelp av WMI. Programmet de brukte produserer rapporter i XML-format. Følgelig brakte de meg et berg av XML-filer med en ganske kompleks struktur som jeg bare trengte å trekke ut navnet på de installerte programvareproduktene fra.
Behandling. Etter å ha sett gjennom et par filer manuelt, innså jeg at det ikke ville vare lenge og bestemte meg for å skrive en liten omformer. Etter å ha lansert Delphi, valgte jeg XML DataBinding-objektet i depotet og matet det med en av filene. Jeg forlot alle innstillingene og parameterne som standard, og som et resultat opprettet jeg en modul med et stort antall klasser og grensesnitt for å få tilgang til elementene i denne XML-filen. Jeg brukte ikke mye tid på å finne ut klassestrukturen og gikk umiddelbart videre til å skrive en omformer.

I den nye konsollapplikasjonen skrev jeg ganske enkel kode:
program XML2TXT;
bruker
Skjemaer,
Klasser, SysUtils,
SoftwareXML i "SoftwareXML.pas";
prosedyre CovertXML2Text;
var
CurDir:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
hvis FindFirst(CurDir+"*.xml", faAnyFile, sr) = 0, så
gjenta
ExportFile:= TStringList.Create;
softbase:= LoadSTDSoftware(Pchar(CurDir+sr.Name));
for i:= 0 til 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;
til FindNext(sr) 0;
slutt;

var
Application.Initialize;
CovertXML2Tekst;
slutt.

Som et resultat opprettet jeg én tekstfil for hver datamaskin i nettverket, som inneholder en liste over installert programvare.

Jeg føler at denne koden krever litt forklaring. For eksempel, hvorfor brukte jeg Forms-modulen i en konsollapplikasjon og kalte Application.Initialize-prosedyren?

Det er faktisk enkelt – det er et lite hack som lar deg bruke XML Data Binding i en konsollapplikasjon. Fordi den hardnakket nektet å initialisere klassen for å jobbe med XML. Jeg har ikke funnet ut de virkelige årsakene ennå - tiden var viktig i dag, jeg brukte allerede 4 av 5 minutter på å kjempe mot denne feilen. :) Jeg tror jeg skal finne ut av dette problemet senere og skrive hva den egentlige årsaken er.

Den merkelige softbase-klassen ble opprettet på XML-basert fil - det var navnet på rotelementet, og softbase.InstalledSoftware.source.software[i].DisplayName - naviger ganske enkelt gjennom de nestede elementene til det ønskede og få verdien.

Det er faktisk slik en av de mest ser ut raske måter arbeider med XML i Delphi.

XML brukes i økende grad til å lagre informasjon og utveksle den mellom applikasjoner og nettsteder. Mange applikasjoner bruker dette språket som basisspråk for lagring av data, mens andre bruker det til eksport og import av XML-data. Dette betyr at det er på tide for utviklere å tenke på hvordan de kan bruke XML-data i sine egne applikasjoner.

I denne artikkelen vil vi se på XML Document Object Model (DOM) og dens implementering av Microsoft - Microsoft XML DOM.

XML DOM er en objektmodell som gir utvikleren objekter for å laste og behandle XML-filer. Objektmodellen består av følgende hovedobjekter: XMLDOMDocument, XMLDOMNodeList, XMLDOMNode, XMLDOMNamedNodeMap og XMLDOMParseError. Hvert av disse objektene (unntatt XMLDOMParseError) inneholder egenskaper og metoder som lar deg få informasjon om objektet, manipulere objektets verdier og struktur og navigere gjennom strukturen til XML-dokumentet.

La oss se på de viktigste XML DOM-objektene og gi noen eksempler på deres bruk i Borland Delphi.

Bruker XML DOM i Borland Delphi

For å bruke Microsoft XML DOM i Delphi-applikasjoner, må du koble riktig typebibliotek til prosjektet. For å gjøre dette, utfører vi kommandoen Project | Import Type Library og i dialogboksen Import Type Library velger du Microsoft XML versjon 2.0-biblioteket (versjon 2.0), som vanligvis ligger i filen Windows\System\MSXML.DLL

Etter å ha klikket på Create Unit-knappen, vil MSXML_TLB-grensesnittmodulen bli opprettet, som vil tillate oss å bruke XML DOM-objekter: DOMDocument, XMLDocument, XMLHTTPRequest og en rekke andre implementert i MSXML.DLL-biblioteket. En referanse til MSXML_TLB-modulen må være oppført i brukslisten.

XML DOM-enhet

Dokumentobjektmodellen representerer et XML-dokument som en trestruktur bestående av grener. XML DOM-programmeringsgrensesnitt lar applikasjoner navigere i dokumenttreet og manipulere grenene. Hver gren kan ha en spesifikk type (DOMNodeType), i henhold til hvilken overordnede og underordnede grener bestemmes.

I de fleste XML-dokumenter finner du grener som element, attributt og tekst. Attributter er en spesiell type gren og er ikke barnegrener. Attributter manipuleres ved hjelp av spesielle metoder levert av XML DOM-objekter.

I tillegg til å implementere World Wide Web Consortium (W3C) anbefalte grensesnitt, inneholder Microsoft XML DOM metoder som støtter XSL, XSL Patterns, Namespaces og datatyper. For eksempel lar SelectNodes-metoden deg bruke XSL Pattern Syntax for å finne grener innenfor en spesifikk kontekst, og TransformNode-metoden støtter bruken av XSL for å utføre transformasjoner.

Test XML-dokument

Empire Burlesque Bob Dylan USA 10.90 1985 Bonnie Tylor Storbritannia CBS Records 9.90 1988 ... Joe Cocker Bob Dylan EMI 8.20 1987

Nå er vi klare til å begynne å se på XML DOM-objektmodellen, som vi starter med XMLDOMDocument-objektet.

XML-dokument - XMLDOMDocument-objekt

Arbeid med et XML-dokument begynner med å laste det inn. For å gjøre dette bruker vi Load-metoden, som bare har én parameter som indikerer URL-en til dokumentet som skal lastes. Når du laster filer fra en lokal disk, spesifiseres kun hele filnavnet (fil:///-protokollen kan utelates i dette tilfellet). Hvis XML-dokumentet er lagret som en streng, bør du bruke LoadXML-metoden for å laste dokumentet.

For å kontrollere hvordan dokumentet lastes (synkront eller asynkront), bruk egenskapen Async. Som standard er denne egenskapen satt til True, noe som indikerer at dokumentet lastes asynkront og kontroll returneres til applikasjonen før dokumentet er fullstendig lastet. Ellers lastes dokumentet synkront, og da må du sjekke verdien til ReadyState-egenskapen for å finne ut om dokumentet er lastet inn eller ikke. Du kan også opprette en OnReadyStateChange-hendelsesbehandler som vil motta kontroll når verdien til ReadyState-egenskapen endres.

Følgende viser hvordan du laster et XML-dokument ved å bruke Load-metoden:

Bruker ... MSXML_TLB ... prosedyre TForm1.Button1Click(Sender: TObject);

var XMLDoc: IXMLDOMDocument;

begin XMLDoc:= CoDOMDocument.Create;

XMLDoc.Async:= False;

XMLDoc.Load('C:\DATA\DATA.xml');

// // Her er koden som manipulerer // XML-dokumentet og dets grener // XMLDoc:= Null;<>slutt;

Når dokumentet er lastet inn, kan vi få tilgang til egenskapene. Dermed vil NodeName-egenskapen inneholde verdien #document, NodeTypeString-egenskapen vil inneholde verdidokumentet, og URL-egenskapen vil inneholde verdien file:///C:/DATA/DATA.xml.

Empire Burlesque Bob Dylan USA 10.90 1985

Feilhåndtering .

Node: IXMLDOMNode;

XMLDoc:= CoDOMDocument.Create; XMLDoc.Async:= False;