Tergantung pada siapa Anda berbicara, blog adalah buku harian Web pribadi, kumpulan diskusi pendek, bertanggal dengan komentar, atau cara penerbitan berita dan informasi. Yah, halaman Beranda Tentang Pemrograman Delphi bertindak sebagai blog.
Agar dapat menampilkan berita utama terbaru di dalam proyek Delphi, Anda harus mengunduh file XML terlebih dahulu. Karena file XML ini diperbarui setiap hari pada dasar (entri baru ditambahkan) Anda akan memerlukan kode yang dirancang untuk menyimpan konten dari URL yang ditentukan ke file.
Buat proyek Delphi baru dan letakkan komponen TListView (Name: 'LV') pada formulir. Tambahkan TButton (Nama: 'btnRefresh') dan TXMLDocument (Nama: 'XMLDoc'). Selanjutnya, tambahkan tiga kolom ke komponen ListView (Judul, Tautan dan Deskripsi). Terakhir, tambahkan kode untuk mengunduh file XML, parsing dengan TXMLDocument dan tampilkan di dalam ListView di event handler OnClick.
Properti DocumentElement dari XMLDoc menyediakan akses ke simpul akar dokumen. Simpul root ini adalah elemen. Selanjutnya, ChildNodes. Pertama mengembalikan satu-satunya simpul anak ke elemen, yang merupakan simpul. Sekarang, ChildNodes. FindNode ('item') menemukan simpul "daging" pertama. Setelah kita memiliki simpul pertama, kita cukup mengulangi semua "daging" node dalam dokumen. Metode NextSibling mengembalikan anak berikutnya dari simpul orangtua.
Itu dia. Pastikan Anda mengunduh sumber lengkap. Dan tentu saja, merasa bebas dan terdorong untuk mengirim komentar ke artikel ini di Forum Pemrograman Delphi kami.