Hallo Leute,
Bin dabei ein Programm zu entwickeln das RSS Feeds bearbeitet.
Die bearbeitung passiert unter anderem durch die SimpleRSS Komponente.
Beim erststart des Programms wird die Komplette
XML Datei(650 Eintraege) vom Server geholt, bearbeitet und in einer Listview(OwnerData=False) angezeigt.
Delphi-Quellcode:
For i := 0 to SimpleRSS.Items.Count - 1 do
Begin
z := CreateStrings(SimpleRSS.Items.Items[i].Description);
listitem := listview.Items.add;
listitem.Caption := IntToStr(Succ(i));
///Zeit vom Datum trennen///
z.Values['Added'] := Parse(' ', z.Values['Added'], 1);
///Datum anzeigen///
listitem.SubItems.add(z.Values['Added']);
listitem.SubItems.add(z.Values['Category']);
listitem.SubItems.add(SimpleRSS.Items.Items[i].Title);
listitem.SubItems.add(z.Values['Size']);
listitem.SubItems.add(z.Values['Status']);
listitem.SubItems.add(z.Values['Speed']);
listitem.SubItems.Add(SimpleRSS.Items.Items[i].Link);
listitem.SubItems.Add(z.Values['Download']);
Anzahl.Caption := 'Anzahl: ' + IntTostr(SimpleRSS.Items.Count);
z.Free;
end;
Das klappt alles wunderbar und jetzt moechte ich folgendes realisieren, ich moechte mir eine Vergleichsdatei anlegen mittels einer TStringListe die nur die Namen der Eintraege beinhaltet
sl.Add(SimpleRSS.Items.Items[i].Title);
Die wird dann beim beim naechsten Update des RSS Feeds mit
die ersten 30 Eintraege verglichen
Delphi-Quellcode:
simplerss.LoadFromHTTP('http://www.meineurl/rss.php');
For i := 30 downto SimpleRSS.Items.Count -1 do
Wie kann ich das am besten machen, denn die SubItems(z.Values['Added'], z.Values['Category'], z.Values['Size'], z.Values['Status'], z.Values['Speed'], SimpleRSS.Items.Items[i].Link, z.Values['Download']) sollen dabei nicht verloren gehen und wenn es Neue Eintraege gibt mit in der Listview angezeigt werden.
Ich nehme mal an mit TStringListen.
Erstmal recht herzlichen Dank.
Lucius.