Witam
Usiłuje napisać kod do wiadomości RSS. Kod działa dobrze jednak po załadowaniu wiadomości do memo na końcu pojawiają się informacje o stronie źródłowej np.
np.
"W górnych partiach Bieszczad zmala³o zagro¿enie lawinowe; jego stopieñ obni¿ono z trzeciego do drugiego w piêciostopniowej, rosn¹cej skali - poinformowa³ rano ratownik dy¿urny bieszczadzkiej grupy GOPR, Dariusz Czech.
wiêcej>> pogoda.wp.pl"
Moje pytanie jak usunąć cala herezje która co następuje po
poniżej kod.
Z góry dziękuje za pomoc.
const
ADPXMLBLOG = 'http://pogoda.wp.pl/rss.xml';
var
ADPLocalFile : TFileName;
StartItemNode : IXMLNode;
News : IXMLNode;
STitle, sDesc, sLink : widestring;
begin
LinkNewsa := TStringList.Create;
TrescNewsa := TStringList.Create;
ADPLocalFile := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 'temp.adpheadlines.xml';
Screen.Cursor:=crHourglass;
try
if not DownloadURLFile(ADPXMLBLOG, ADPLocalFile) then
begin
log('Nie mogê pobrac wiadomosci RSS. Sprawdz polaczenie z internetem.',0);
Exit;
end;
ListBox1.Clear;
XMLDoc.FileName := ADPLocalFile;
XMLDoc.Active:=True;
StartItemNode:=XMLDoc.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item');
News := StartItemNode;
repeat
sTitle := news.ChildNodes['title'].Text;
sLink := news.ChildNodes['link'].Text;
sDesc := news.ChildNodes['description'].Text;
//add to list view
ListBox1.Items.Add(STitle);
TrescNewsa.Add(sDesc);
news := news.NextSibling;
until news = nil;
finally
DeleteFile(ADPLocalFile);
Screen.Cursor:=crDefault;
end;
end;
