XML в DATASET

[BARNEY]

Коллеги наткнулся в С# на замечательный код

private void btnFile_Click(object sender, System.EventArgs e)
{
    string myXMLfile = "C:\\MySchema.xml";
    DataSet ds = new DataSet(); 
    try
    {
        ds.ReadXml(myXMLfile);
        dataGrid1.DataSource = ds;
        dataGrid1.DataMember = "Cust";
    }
    catch (Exception ex)
    {
        MessageBox.Show(ex.ToString());
    }
}

Подумал.... а чего в delphi такое нельзя... оказалось можно...
даже нагуглил что есть компонент ClientDataSet1.
Но как в него загрузить XML так и не понял. Может кто работал с этим компонентом и знает как получить таблицу из XML. Особенно если у XML 3-4 вложения.

[Аватар]

+ XMLTransform нужно смотреть

[BARNEY]

В поиске компонентов не нашёл такого в XE5, может его из какотой библиотеке подгрузить надо? если да.. не подскажите из какой?

[Аватар]

В XE5 не знаю, возможно там другие средства. Это в D7

[BARNEY]

оказываются лежат в файле dclwbm190.bpl , но у меня почему то нет в дистрибутиве.
Может у кого есть?


добавлено
p.s. лежат теперь в unit Xmlxform

[BARNEY]

Всё получилось. код

 
XMLTransform1.SourceXMLFile:='L.xml';
XMLTransform1.TransformationFile:='L.xtr';  // Создал XMLMapping 
ClientDataSet1.XMLData:=XMLTransform1.Data;

Теперь вопрос как обратиться в цикле к вложенным полям (отображаются DATASET), или как к ним обратиться как к таблице отдельной?

выглядит это так
[IMG][/IMG]


===== на учился считывать 1 вложенное значение ..как пробежаться по всем я не понял

while not ClientDataSet1.Eof do
 begin
  Memo1.Lines.Add( TObjectField(ClientDataSet1.FieldByName('DOST')).Fields.FieldByName('DOST').AsString);
  ClientDataSet1.Next;
 end;

[BARNEY]

Нет не у кого идей как пробежаться по вложениям?

Так я только получаю доступ к 1 строчке. Я понимаю что нужен вложенный цикл но не получается его написать.

while not ClientDataSet1.Eof do
 begin
  Memo1.Lines.Add( TObjectField(ClientDataSet1.FieldByName('DOST')).Fields.FieldByName('DOST').AsString);
  ClientDataSet1.Next;
 end;

[Slym]

передполагаю что ClientDataSet1.FieldByName('DOST') - такой же TClientDataSet
так что как то так:

while not ClientDataSet1.Eof do
begin
  with TClientDataSet(ClientDataSet1.FieldByName('DOST')) do
  while not Eof do
    begin
      Memo1.Lines.Add(Fields.FieldByName('DOST').AsString);
      Next;
    end;
  ClientDataSet1.Next;
end;

[BARNEY]

Спасибо попробовал..не получилось на любой из закоментированых строчек вываливается ошибка acces viotetion

 while not ClientDataSet1.Eof do
begin
  if ClientDataSet1.FieldByName('ID_PAC').AsString='ED6ABFA7-F546-463A-B0FB-A6F813C931F5' then
  while not TClientDataSet(ClientDataSet1.FieldByName('DOST')).Eof do
    begin
   //  TClientDataSet(ClientDataSet1.FieldByName('DOST')).Last;
   // TClientDataSet(ClientDataSet1.FieldByName('DOST')).FieldByName('DOST').AsString;
   //  TClientDataSet(ClientDataSet1.FieldByName('DOST')).RecordCount;
     // Memo1.Lines.Add(TClientDataSet(ClientDataSet1.FieldByName('DOST')).Fields.FieldByName('DOST').AsString);
   //   TClientDataSet(ClientDataSet1.FieldByName('DOST')).Next;
    end;
  ClientDataSet1.Next;
end;

[Аватар]

for i:=0 to ClientDataSet1.Fields.Count-1 do
  if ClientDataSet1.Fields.Fields[i].DataType=ftDataSet	then begin
    СlientDataSet2.DataSetField:=TDataSetField(ClientDataSet1.Fields.Fields[i]);
    Break;
  end;

В СlientDataSet2 в свою очередь могут быть свои поля типа ftDataSet. Зависит от устройства xml

ADD Добавил небольшой пример

ADD Удалил вложение - не досмотрел за содержимым xml из примера

ADD Убрал из XML приватные данные и снова залил