VPF::xmld - Форум программистов

bagos

Дата 10.2.2008, 15:18 (ссылка)

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

Загрузка ...

Опытный

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

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

толи лыжи не едут то ли я...
забираю rss xml:
XMLD:=CoDoc.Create ;
XMLD.async:=false;
XMLD.load('http://www.securityfocus.com/rss/vulnerabilities.xml');
except
end;
memo1.Clear;
r:=XMLD.documentElement;
FNode:= r.SelectSingleNode('//rss');
if FNode.attributes.getNamedItem('version').text<>'2.0'
then
begin
Memo1.Lines.Add('Ошибка - эта версия программы поддерживает RSS версии ТОЛЬКО 2.0');
Exit;
end;

все работало нормально, пока не попытался взять xml с
http://www.securityfocus.com/rss/vulnerabilities.xml

ошибка!

потом пробовал просто взять файл с инета обычным idhttp, вылетает
10061, че за бред.

посмотрите пожалуйста. а то я не в понятках почему такой лаг :(

bagos

Дата 10.2.2008, 15:41 (ссылка)

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

Загрузка ...

Опытный

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

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

сделал проверку типа

Код


 Doc := coDoc.Create;  
    Doc.load('www.securityfocus.com/rss/vulnerabilities.xml');  
    Memo1.Text:=Doc.xml;

возращает пустой текст хм...
у кого какие мысли по этому поводу???

Qu1nt

Дата 11.2.2008, 12:56 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  CoDoc : CoDOMDocument;
  XMLD  : DOMDocument;
begin
  XMLD := coDoc.Create;
  XMLD.async := False;
  XMLD.load('http://www.securityfocus.com/rss/vulnerabilities.xml');
  Memo1.Text := XMLD.xml;
end;

Ы?

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