[Algplux]

Всем привет. Ребят помогите пожалуйста, не могу получить данные из xml, смотрел кучу примеров, не могу разобраться. Что не так?

Код:

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 47 48 49 50 51

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, xmldom, XMLIntf, StdCtrls, Menus, msxmldom, XMLDoc;   type   TForm1 = class(TForm)     MainMenu1: TMainMenu;     XMLDocument1: TXMLDocument;     N1: TMenuItem;     N2: TMenuItem;     N3: TMenuItem;     N4: TMenuItem;     N5: TMenuItem;     N6: TMenuItem;     SaveDialog1: TSaveDialog;     Memo1: TMemo;     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.FormCreate(Sender: TObject); var   xml: TXMLDocument;   i: Integer; dt: string; begin   xml := TXMLDocument.Create(nil);   xml.LoadFromFile('http://rp5.ru/xml/1508/00000/ru');   xml.Active := True;   for i := 0 to xml.DocumentElement.ChildNodes.Count - 1 do   begin     dt := xml.DocumentElement.ChildNodes[i].ChildNodes['datetime'].Text;     Memo1.Lines.Add(dt);   end;   xml.Active := False; end;   end.

[lmikle]

Попробуй так:

Код:

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

procedure TForm1.FormCreate(Sender: TObject); var   xml: IXMLDocument;   i: Integer; dt: string; begin   xml := TXMLDocument.Create(nil);   xml.LoadFromFile('http://rp5.ru/xml/1508/00000/ru');   xml.Active := True;   for i := 0 to xml.DocumentElement.ChildNodes.Count - 1 do   begin     dt := xml.DocumentElement.ChildNodes[i].ChildNodes['datetime'].Text;     Memo1.Lines.Add(dt);   end;   xml.Active := False;   xml := Nil; end;

Там проблема, когда TXMLDocument не лежит на форме.
Почему-то компонент считает, что ссылок больше нет и тихо умирает...

[Algplux]

Спасибо большое, эта проблема решилась, но теперь он выводит пустую строку вместо содержимого узла, буду искать ошибку.