Ανάλογα με το ποιος μιλάτε, ένα blog είναι ένα προσωπικό ημερολόγιο στο Web, μια συλλογή από σύντομες συζητήσεις που χρονολογούνται με σχόλια ή έναν τρόπο δημοσίευσης ειδήσεων και πληροφοριών. Λοιπόν, η σελίδα About Delphi Programming Home ενεργεί ως blog.
Για να μπορείτε να εμφανίσετε τους τελευταίους τίτλους μέσα σε ένα έργο Delphi, πρέπει πρώτα να κατεβάσετε το αρχείο XML. Επειδή αυτό το αρχείο XML ενημερώνεται καθημερινά βασικά (νέες καταχωρήσεις που έχουν προστεθεί), θα χρειαστείτε κώδικα σχεδιασμένο για να αποθηκεύσετε τα περιεχόμενα μιας καθορισμένης διεύθυνσης URL σε ένα αρχείο.
Δημιουργήστε ένα νέο έργο Delphi και αφήστε ένα στοιχείο TListView (Όνομα: 'LV') σε μια φόρμα. Προσθέστε ένα TButton (Όνομα: 'btnRefresh') και ένα TXMLDocument (Όνομα: 'XMLDoc'). Στη συνέχεια, προσθέστε τρεις στήλες στο στοιχείο ListView (τίτλος, σύνδεσμος και περιγραφή). Τέλος, προσθέστε τον κώδικα για να κατεβάσετε το αρχείο XML, αναλύστε το με το αρχείο TXMLDocument και εμφανίστε το στο ListView στο χειριστήριο συμβάντος OnClick του κουμπιού.
Η ιδιότητα DocumentElement του XMLDoc παρέχει πρόσβαση στον κόμβο ρίζας του εγγράφου. Αυτός ο κόμβος ρίζας είναι το στοιχείο. Στη συνέχεια, ChildNodes. Πρώτα επιστρέφει το μόνο παιδικό κόμβο στο στοιχείο, το οποίο είναι ο κόμβος. Τώρα, ChildNodes. Το FindNode ('στοιχείο') βρίσκει τον πρώτο κόμβο "κρέατος". Μόλις έχουμε τον πρώτο κόμβο, επαναλαμβάνουμε απλώς όλους τους κόμβους "κρέατος" στο έγγραφο. Η μέθοδος NextSibling επιστρέφει το επόμενο παιδί του γονέα ενός κόμβου.
Αυτό είναι. Βεβαιωθείτε ότι έχετε πραγματοποιήσει λήψη της πλήρους πηγής. Και βεβαίως, αισθανθείτε ελεύθεροι και ενθαρρύνεστε να δημοσιεύσετε σχόλια σε αυτό το άρθρο στο Φόρουμ Προγραμματισμού των Δελφών.