Hi,
ich versuche gerade mit meinem Programm den RDF-Feed der
DP (
http://www.delphipraxis.com/rdf.php) auszulesen.
Die
XML-Datei wird auch korrekt runtergeladen, allerdings kann ich die Items nicht auswählen und ausgeben:
Delphi-Quellcode:
procedure TfrmMain.UpdateList;
var
sContent:
string;
i: integer;
xmlTopics: IXMLDOMNodeList;
begin
sContent := idhDownloader.Get(IDS_FILENAME);
xmlDoc.loadXML(sContent);
// ShowMessage(sContent);
if xmlDoc.parseError.errorCode <> 0
then begin
MessageDlg('
Fehler beim Laden des RDF-Feeds:'+#13#10
+'
Die XML-Datei ist fehlerhaft! Bitte [email]chris@csd-software.net[/email] '+#13#10
+'
kontaktieren.', mtError, [mbOK], 0);
Close();
end;
xmlTopics := xmlDoc.documentElement.selectNodes('
/rdf/item');
for i := 0
to xmlTopics.length-1
do begin
lbTopics.Items.Add(xmlTopics.item[i].selectSingleNode('
title').text);
end;
end;
Die Listbox (
lbTopics) ist aber einfach leer und
xmlTopics.length ist 0. Was mache ich falsch?
Chris