Из XML в Delphi

[IzIFRag]

Здравствуйте. У меня следующая проблема: нужно из документа формата xml взять n столбцов длинною m строк, при этом они стоят не рядом и отослать на печать. Как через делфи работать с этим документом ? пробежался по форуму, не нашел чего либо подходящего. Жду советов, или ссылок на faq. Заранее спасибо.

[Stilet]

документа формата xml

Но это не совсем экзеловский формат. Может ты имел ввиду xls?

[IzIFRag]

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

Но это не совсем экзеловский формат. Может ты имел ввиду xls?

Блин точно, не заметил, просто он открыт в excele, вот и написал на автомате. Нет, именно xml.

[IzIFRag]

Документ в виде таблицы, я пробую открыть его как файл базы данных. Использую ClientDataSet. При попытке изменить Activate c False на True выдает mismatch in datapacket. Я чего то не понимаю... как его открытью. может через какой нить другой компонент из ADO ? Подскажите плиз.

[IzIFRag]

ставлю на форму ClientDataSet1 указываю в имени файла файл xml и и делаю его активным. Выдается ошибка:
Mismatch in datapacket. В файле много строк и столбцов, как я понял ClientDataSet просто не сможет открыть его... Как обойти это ?

[IzIFRag]

Вот нашел пример, на форме лежит Button1 и XMLDocument1.
Этот код копирует целиком xml документ из 22 в 2222:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    XMLDocument1: TXMLDocument;
    procedure Button1Click(Sender: TObject);
    procedure ReadNodInfo(XmlNode:ixmlnode);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
   i:integer;
begin
 XMLDocument1.FileName:='C:22.xml';
 XMLDocument1.Active:=true;
  for i:=0 to XMLDocument1.ChildNodes.Count-1 do
    begin
      ReadNodInfo(XMLDocument1.Node.ChildNodes.Get(i));
    end;
 XMLDocument1.SaveToFile('C:2222.xml');
end;

procedure TForm1.ReadNodInfo(XmlNode:ixmlnode);
var
   CurNod:ixmlnode;
   CountNod, CountChild : integer;
   NameNode, ValueNode, temp: WideString;

begin
       temp:=XmlNode.XML;
       if XmlNode.ChildNodes.Count > 1 then
           begin
            for CountChild:=0 to XmlNode.ChildNodes.Count-1 do
               begin

                  temp:=XmlNode.XML;
                  ReadNodInfo(XmlNode.ChildNodes.Get(CountChild));
               end;
           end
         else
           begin
            NameNode:=XmlNode.NodeName;
            if XmlNode.IsTextElement then
              begin
                ValueNode:=XmlNode.NodeValue;
                ShowMessage(NameNode+' '+ValueNode);
              end
           end;
end;



end.

Подскажите пожалуйста, как здесь обращаться к конкретным ячейкам, чтобы копировать только заданные столбцы/строки.

[IzIFRag]

Вот нашел пример, на форме лежит Button1 и XMLDocument1.
Этот код копирует целиком xml документ из 22 в 2222:
Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    XMLDocument1: TXMLDocument;
    procedure Button1Click(Sender: TObject);
    procedure ReadNodInfo(XmlNode:ixmlnode);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
   i:integer;
begin
 XMLDocument1.FileName:='C:22.xml';
 XMLDocument1.Active:=true;
  for i:=0 to XMLDocument1.ChildNodes.Count-1 do
    begin
      ReadNodInfo(XMLDocument1.Node.ChildNodes.Get(i));
    end;
 XMLDocument1.SaveToFile('C:2222.xml');
end;

procedure TForm1.ReadNodInfo(XmlNode:ixmlnode);
var
   CurNod:ixmlnode;
   CountNod, CountChild : integer;
   NameNode, ValueNode, temp: WideString;

begin
       temp:=XmlNode.XML;
       if XmlNode.ChildNodes.Count > 1 then
           begin
            for CountChild:=0 to XmlNode.ChildNodes.Count-1 do
               begin

                  temp:=XmlNode.XML;
                  ReadNodInfo(XmlNode.ChildNodes.Get(CountChild));
               end;
           end
         else
           begin
            NameNode:=XmlNode.NodeName;
            if XmlNode.IsTextElement then
              begin
                ValueNode:=XmlNode.NodeValue;
                ShowMessage(NameNode+' '+ValueNode);
              end
           end;
end;



end.

Подскажите пожалуйста, как здесь обращаться к конкретным ячейкам, чтобы копировать только заданные столбцы/строки.
Добавил сам файл xml.