Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > xmld

Автор: bagos 10.2.2008, 15:18

толи лыжи не едут то ли я...
забираю 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

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

Код


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

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

Автор: Qu1nt 11.2.2008, 12:56

Код


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;

Ы?