[Gudzik11]

Здравствуйте! Облазил весь интернет но так и не нашёл понятного для меня метода . Пожалуйста помогите вывести в Label3 значение
<cloud> но не из категории <day date="2011-11-29" hour="15">
а к примеру <day date="2011-11-29" hour="21">

[NumLock]

выводит cloud за все date и hour:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  ComObj,
  Variants,
  msxml;

var
  XMLHttpRequest: IXMLHttpRequest;
  XMLDOMDocument: IXMLDOMDocument;
  DayList: IXMLDOMNodeList;
  DayElement: IXMLDOMElement;
  i: Integer;

begin
  OleInitialize(nil);
  XMLHttpRequest:=CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;
  XMLHttpRequest.open('GET', 'http://xml.weather.co.ua/1.2/forecast/19?dayf=5&userid=yoursite_com', False, EmptyParam, EmptyParam);
  XMLHttpRequest.send(EmptyParam);
  if XMLHttpRequest.status=200 then
  begin
    XMLDOMDocument:=XMLHttpRequest.responseXML as IXMLDOMDocument;
    DayList:=XMLDOMDocument.getElementsByTagName('day');
    for i:=0 to DayList.length-1 do
    begin
      DayElement:=DayList.item[i] as IXMLDOMElement;
      if DayElement.getAttribute('date')<>Null then
        Writeln('date = '+DayElement.getAttribute('date')+' hour = '+DayElement.getAttribute('hour')+' cloud = '+DayElement.getElementsByTagName('cloud').item[0].text);
        if (DayElement.getAttribute('date')='2011-11-29') and (DayElement.getAttribute('hour')='21') then Writeln('^^ - this');
    end;
  end;
  Writeln('Press any key...');
  Readln;
end.

[Gudzik11]

выдаёт ошибку

Exception class EInOutError with message 'I/O error 105'

[NumLock]

а это http://data.cod.ru/133859 ?

[Gudzik11]

Сообщение от NumLock

а это http://data.cod.ru/133859 ?

эта работает

[NumLock]

Сообщение от Gudzik11

эта работает

а какая Delphi?

Сообщение от Gudzik11

ты использовал сторонний компонент?

нет, я использовал родные интерфейсы

[Gudzik11]

ты использовал сторонний компонент?