Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

RSS XMLDoc не обновляется :(   Найти похожие ветки 

 
jcrush ©   (2005-07-14 08:28) [0]

Вот код dll которая должна парсить инетовский RSS через XMLDocument, косяк в том, что первый раз я документ получаю правильно, далее нажимаю на другую RSS ссылку но она не открывает, единственное если форму уничтожить и создать тогда список предыдущего RSS локумента очищается и загружается тот что надо, но это не дело, не могу понять почему :(

uses ExtActns; //to be able to iuse TDownLoadURL

function DownloadURLFile(const ADPXMLBLOG, ADPLocalFile : TFileName) : boolean;
begin
 Result:=True;

 with TDownLoadURL.Create(nil) do
 try
   URL:=form1.bdmemo.SelText;
   Filename:=ADPLocalFile;
   try
     ExecuteTarget(nil);
   except
     Result:=False;
   end;
 finally
   Free;
 end;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);

var
 ADPLocalFile : TFileName;

 StartItemNode : IXMLNode;
 ANode : IXMLNode;
 STitle, sDesc, sLink : widestring;
begin

 ADPLocalFile := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + "temp.adpheadlines.xml";

 Screen.Cursor:=crHourglass;
 try
   if not DownloadURLFile(form1.bdmemo.SelText, ADPLocalFile)  then
   begin
     Screen.Cursor:=crDefault;
     Raise Exception.CreateFmt("Unable to connect to the Internet, make sure you are connected!",[]);
     Exit;
   end;

   if not FileExists(ADPLocalFile) then
   begin
     Screen.Cursor:=crDefault;
     raise exception.Create("Can""t locate the *headlines* file?!");
     Exit;
   end;

   form1.lv.Clear;
   form1.XMLDoc.FileName := ADPLocalFile;
     form1.XMLDoc.Active:=True;

   StartItemNode:=  form1.XMLDoc.DocumentElement.ChildNodes.First.ChildNodes.FindNode("item");
   ANode := StartItemNode;
   repeat
     STitle := ANode.ChildNodes["title"].Text;
     sLink := ANode.ChildNodes["link"].Text;
     sDesc := ANode.ChildNodes["description"].Text;

     //add to list view
     with   form1.LV.Items.Add do
     begin
       Caption := STitle;
       SubItems.Add(sLink);
       SubItems.Add(sDesc)
     end;

     ANode := ANode.NextSibling;
   until ANode = nil;
 finally
  DeleteFile(ADPLocalFile);
   Screen.Cursor:=crDefault;
 end;
end;


 
jcrush ©   (2005-07-14 12:14) [1]

что никто не подскажет?



Страницы: 1 вся ветка

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
14-1120557953
Kerk
2005-07-05 14:05
2005.07.31
Мюзиклы


14-1120716122
vajo
2005-07-07 10:02
2005.07.31
Есть адрес сетевой карты, нужен ее IP


14-1121018881
Kerk
2005-07-10 22:08
2005.07.31
Откуда брать QReport?


14-1120219494
WondeRu
2005-07-01 16:04
2005.07.31
Дано: 2 видеокамеры... 1 объект...


8-1111825300
Alegfdg
2005-03-26 11:21
2005.07.31
opengl