[hatsub]

Добрый день жители форума.
Хотелось бы сделать проверку на то, существует ли xml-лента по URL-адресу(переменная host), до того как программа выпадет в ошибку.
Помогите с реализацией. Код ниже работает, но проверки нет.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

var   host:string; XMLHTTP: Variant; xmldomdocument: IXMLDOMDocument; xmldomnodelist: IXMLDOMNodeList;   code:   XMLHTTP:=CreateOleObject('Microsoft .XMLHTTP'); XMLHTTP.open('GET',host, False); XMLHTTP.send('');   if XMLHTTP.status=200 then begin xmldomdocument:=(IUnknown(XMLHTTP.r esponseXML) as IXMLDOMDocument); xmldomnodelist:=xmldomdocument.getE lementsByTagName('title'); for i:=0 to 11 do if xmldomnodelist[i].parentNode.nodeName='item' then Listbox2.Items.Add(xmldomnodelist.i tem[i].text); end;

Админ: Пользуемся тегами для оформления кода!

[NumLock]

IXMLHTTPRequest все-равно что загружать.

responseXML Property

Remarks

The property is read-only. For security reasons, the parser validation features are always turned off to prevent Microsoft® XML Core Services (MSXML) from attempting to download a document type definition (DTD) or XML-Data definition. If the response entity body is not valid XML, this property returns DOMDocument that was parsed so that you can access the error. This property does not return IXMLDOMParseError itself, but it is accessible from DOMDocument.

http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx

а почему асинхронный режим не используешь?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TFormMain.Get; begin   try     XMLHTTP.open('GET', 'http://www.delphisources.ru/forum/external_mod.php?type=RSS2', True);     XMLHTTP.send('');   except   end;   Timer.Enabled:=True; end;   procedure TFormMain.TimerTimer(Sender: TObject); begin   if XMLHTTP.readyState=4 then   begin     Timer.Enabled:=False;     if XMLHTTP.status=200 then     begin

http://data.cod.ru/99571

[hatsub]

Пишу:

PHP код:

try
    XMLHTTP:=CreateOleObject('Microsoft.XMLHTTP');
    XMLHTTP.open('GET',host, true);
    XMLHTTP.send('');
  except
    showmessage('Error');
  end;

  if XMLHTTP.readyState=4 then
  begin
   if XMLHTTP.status=200 then
   begin
     xmldomdocument:=(IUnknown(XMLHTTP.responseXML) as IXMLDOMDocument);
     xmldomnodelist:=xmldomdocument.getElementsByTagName('title');
     for i:=0 to xmldomnodelist.length-1 do
      if xmldomnodelist[i].parentNode.nodeName='item' then Listbox2.Items.Add(xmldomnodelist.item[i].text);
   end
   else showmessage('Error');
  end; 


Не срабатывает, в чем проблема и каким образом все-таки реализовать проверку.

[NumLock]

процедура GetRSSLinks возвращает в AStrings все ленты для URL:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

uses   msxml,   ComObj,   procedure GetRSSLinks(URL: String; AStrings: TStrings); var   XMLHTTP: IXMLHttpRequest;   response: String;   i: Integer;   s: String; begin   AStrings.Clear;   XMLHTTP:=CreateOleObject('Microsoft.XMLHTTP') as IXMLHttpRequest;   try     XMLHTTP.open('GET', URL, False, '', '');     XMLHTTP.send('');     if XMLHTTP.status=200 then     begin       response:=XMLHTTP.responseText;       i:=Pos('<link', response);       while i>0 do       begin         s:=Copy(response, i, Length(response));         response:=Copy(response, i+5, Length(response));         i:=Pos('>', s);         if i>0 then         begin           s:=Copy(s, 1, i);           if Pos('application/rss+xml', s)>0 then           begin             i:=Pos('href="', s);             if i>0 then             begin               s:=Copy(s, i+6, Length(s));               i:=Pos('"', s);               if i>0 then AStrings.Add(Copy(s, 1, i-1));             end;           end;         end;         i:=Pos('<link', response);       end;     end;   finally     XMLHTTP:=nil;   end; end;

использование:

Код:

1 2 3 4 5 6 7 8 9 10 11

type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     procedure Button1Click(Sender: TObject);   procedure TForm1.Button1Click(Sender: TObject); begin   GetRSSLinks('http://www.delphisources.ru/forum/', Memo1.Lines); //  GetRSSLinks('http://www.nwcod.com/', Memo1.Lines); end;

[hatsub]

Огромное спасибо