[hatsub]

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

Код:

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

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

Код:

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:

Код:

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;

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

Код:

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]

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