Ik wil dus deze twee xml-files parsen:
http://www.tweakers.net/turbotracker.dsp
http://www.athena.fokzine.net/~danny/remote.xml
Maar nu zag ik net dat die van FOK! eraf lag en ik kreeg dus een error, maar pas na een hele tijd.
Ik wil dus (als het mogelijk is) een timeout inbouwen, maar ik heb geen idee hoe.
Ik hoop dat jullie me kunnen helpen. Alvast bedankt.
Ik gebruik deze code:
Code:
procedure GetFOKHeadlines;
var i: Integer;
ListItem: TListItem;
begin
frmMain.xmlHeadlines.FileName := 'http://www.athena.fokzine.net/~danny/remote.xml';
try
frmMain.xmlHeadlines.Active := True;
For i := 0 To frmMain.xmlHeadlines.DocumentElement.ChildNodes.Count -1 Do
begin
If frmMain.xmlHeadlines.DocumentElement.ChildNodes[i].NodeName = 'nieuws' Then
begin
ListItem := frmMain.listFOK.Items.Add;
ListItem.Caption := frmMain.xmlHeadlines.DocumentElement.ChildNodes[i].ChildNodes['titel'].Text;
ListItem.SubItems.Add(Copy(frmMain.xmlHeadlines.DocumentElement.ChildNodes[i].ChildNodes['time'].Text, Pos(' ', frmMain.xmlHeadlines.DocumentElement.ChildNodes[i].ChildNodes['time'].Text) +1, Length(frmMain.xmlHeadlines.DocumentElement.ChildNodes[i].ChildNodes['time'].Text) -Pos(' ', frmMain.xmlHeadlines.DocumentElement.ChildNodes[i].ChildNodes['time'].Text)));
ListItem.SubItems.Add(frmMain.xmlHeadlines.DocumentElement.ChildNodes[i].ChildNodes['reacties'].Text);
ListItem.SubItems.Add(frmMain.xmlHeadlines.DocumentElement.ChildNodes[i].ChildNodes['id'].Text);
end;
end;
frmMain.xmlHeadlines.Active := False;
except
ShowMessage('Error');
end;
end;
Chimera.
Bookmarks