VPF::it doesnt refresh the listview !!! - Форум программистов

muratboy31

Дата 4.3.2010, 12:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

i download xml file from internet and list nodes to listview but it doesnt refresh the list if i download from anoter link !!! why is that ?

Код


procedure TForm1.GoClick(Sender: TObject);
var
  ADPLocalFile : TFileName;
  StartItemNode : IXMLNode;
  ANode : IXMLNode;
  STitle, sDesc, sLink, ADPXMLBLOG : widestring;
  Num:integer;
begin
  ADPXMLBLOG := Combobox1.Text;
  if ADPXMLBLOG <> '' then
 begin
  ADPLocalFile := 'rss.xml';
  try
    if not DownloadURLFile(ADPXMLBLOG, ADPLocalFile)  then
    begin
      Raise Exception.CreateFmt('Wrong Link or No Connection ! ',[]);
      Exit;
    end;
     if not FileExists(ADPLocalFile) then
    begin
      raise exception.Create('No Headers  ! ');
      Exit;
    end;
    lv.Clear;

    XMLDoc.FileName := ADPLocalFile;
    XMLDoc.Active:=True;

    StartItemNode:=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;
      with LV.Items.Add do
      begin
        Caption := STitle;
        SubItems.Add(sLink);
        SubItems.Add(sDesc)
      end;
       ANode := ANode.NextSibling;
    until ANode = nil;
  finally
        DeleteFile(ADPLocalFile);
  end;
 end;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »