Lees en manipuleer XML-lêers (RSS-feeds) Met Delphi
Lees en manipuleer XML-lêers (RSS feeds) met Delphi
Afhangende van wie jy praat, is 'n blog 'n persoonlike webdagboek, 'n versameling kort, gedateerde besprekings met kommentaar, of 'n manier om nuus en inligting te publiseer. Wel, die About Delphi Programming Tuisblad tree op as 'n blog.
Die bladsy Bly op datum hou die skakel na die XML-lêer wat vir Really Simple Syndication (RSS) gebruik kan word.
Oor Delphi Programming Blog Feed
Die * Huidige nuus * -blad bied u 'n manier om byvoorbeeld die nuutste opskrifte direk by u Delphi IDE te kry.
Gaan nou oor die XML-lêer wat die nuutste toevoegings tot hierdie werf bevat.
Hier is die basiese beginsels van die About Delphi Programming RSS:
Dit is XML. Dit beteken dat dit goed gevorm moet wees, insluitend 'n proloog en DTD, en alle elemente moet gesluit wees.
Die eerste element in die dokument is die element. Dit sluit 'n verpligte weergawe kenmerk in.
Die volgende element is die element. Dit is die hoof houer vir alle RSS-data.
Die element is die titel, een van die hele werf (indien dit bo is) of van die huidige item (indien dit binne 'n) is.
Die element dui op die URL van die webblad wat ooreenstem met die RSS-voer, of as dit binne 'n, die URL van daardie item is.
Die element beskryf die RSS-toevoer of die item.
Die element is die vleis van die voer. Dit is al die opskrifte (), URL () en beskrywing () wat in u feed sal wees.
Om die nuutste nuus in 'n Delphi-projek te kan vertoon, moet u eers die XML-lêer aflaai. Aangesien hierdie XML-lêer op 'n daaglikse basis opgedateer word (nuwe inskrywings bygevoeg) benodig jy kode wat ontwerp is om die inhoud van 'n gespesifiseerde URL na 'n lêer te stoor.
Sodra u die XML-lêer plaaslik gestoor het, kan ons dit aanval deur gebruik te maak van Delphi. Op die Internet-bladsy van die palet Komponent vind jy die TXMLDocument-komponent. Die hoofdoel van hierdie komponent is om 'n XML-dokument voor te stel. TXMLDocument kan 'n bestaande XML-dokument van 'n lêer lees, dit kan geassosieer word met 'n goed geformateerde string (in XML-terme) wat die inhoud van 'n XML-dokument is, of dit kan 'n nuwe, leë XML-dokument skep.
In die algemeen is hier die stappe wat beskryf hoe TXMLDocument gebruik moet word:
Voeg 'n TXMLDocument-komponent by jou vorm.
As die XML-dokument in 'n lêer gestoor word, stel die lêernaam-eiendom in die naam van die lêer.
Stel die aktiewe eiendom na True.
Die data XML verteenwoordig is beskikbaar as 'n hiërargie van nodusse. Gebruik metodes wat ontwerp is om terug te keer en te werk met 'n nodus in 'n XML-dokument (soos ChildNodes.First).
Parsing XML, Delphi manier
Skep 'n nuwe Delphi-projek en laat 'n TListView (Naam: 'LV') komponent op 'n vorm. Voeg 'n TButton (Naam: 'btnRefresh') en 'n TXMLDocument (Naam: 'XMLDoc'). Voeg dan drie kolomme by die ListView-komponent (Titel, Skakel en Beskrywing). Laastens, voeg die kode by om die XML-lêer te laai, ontleed dit met TXMLDocument en vertoon binne die ListView in die knoppie se OnClick-gebeurtenis hanteerder.
Hieronder vind u die gedeelte van die kode.
> Var StartItemNode: IXMLNode; ANode: IXMLNode; Stitle, sDesc, sLink: WideString; begin ... / / wys na die plaaslike XML-lêer in die "oorspronklike" kode XMLDoc.FileName: = 'http://0.tqn.com/6/g/delphi/b/index.xml'; XMLDoc.Active:=True; StartItemNode: = XMLDoc.DocumentElement.ChildNodes.First.ChildNodes.FindNode ('item'); ANode: = StartItemNode; herhaal STITle: = ANode.ChildNodes ['title']. Teks; sLink: = ANode.ChildNodes ['skakel']. Teks; sDesc: = ANode.ChildNodes ['description']. Teks; // voeg by die lys aansig met LV.Items.Add doen begin onderskrif: = STitle; SubItems.Add (sLink); SubItems.Add (sDesc) end ; ANode: = ANode.NextSibling; tot ANode = nul ;
Volle Bron Kode
Ek dink die kode is min of meer maklik om te verstaan:
Maak seker dat die File Name-eienskap van die TXMLDocument verwys na ons XML-lêer.
Stel Aktief na True
Vind die eerste ("vleis") knoop
Iterateer deur al die nodes en gryp die inligting wat hulle inhou.
Voeg elke node se waarde by ListView
Miskien is slegs die volgende lyn verwarrend: StartItemNode: = XMLDoc.DocumentElement.ChildNodes.First.ChildNodes.FindNode ('item');
Die dokumentElement-eiendom van die XMLDoc bied toegang tot die hoofknoop van die dokument. Hierdie wortelknoop is die element. Volgende, ChildNodes.First gee terug die enigste kinderknoop na die element, wat die node is. Nou, ChildNodes.FindNode ('item') vind die eerste "vleis" knoop. Sodra ons die eerste node het, herhaal ons eenvoudig deur al die "vleis" nodusse in die dokument. Die NextSibling-metode gee die volgende kind van 'n nodus se ouer terug.
Dis dit. Maak seker dat jy die volle bron aflaai. En natuurlik, voel vry en moedig om enige kommentaar op hierdie artikel op ons Delphi Programmeringsforum te plaas.