Создание сложной структуры XML

[artemavd]

Как и с помощью чего можно в Delphi создать такую структуру XML файла? Подскажите пожалуйста, дайте примеры. Заранее спасибо.

[Stilet]

Вот здесь я Алене давал пример формирования XML из базы найподручнейшеми средствами http://www.programmersforum.ru/showthread.php?t=105336
У тебя похожее. Посмотри и поправь под себя процедуру adotoxmlp.

[artemavd]

А что лучше: пробовать формировать этот XML прямо на основе файлов, которые у меня в папке? Или грузить их список в ListBox и работать с ним?

[Stilet]

Пф...
Та по-моему никакой разницы нет... Хотя второе медленнее должно быть.

[maxionans]

а зачем ADO? почему бы не использовать XmlDoc, на мой взгляд он в данном случае более уместен.

[artemavd]

maxionans, а можете подсказать начало кода формирования дерева на прримере одного файла?

[maxionans]

пожалуйста:

procedure BuildTree(const ARootDir : String; ANode : IXmlNode);
var
  Path : String;
  SearchRec : TSearchRec;
  ObjNode : IXmlNode;
begin
  Path := IncludeTrailingPathDelimiter( ARootDir );
  if FindFirst( Path + '*', faAnyFile, SearchRec ) = 0 then
    try
      repeat
        if ( SearchRec.Name = '.' ) or ( SearchRec.Name = '..' ) then Continue;

        ObjNode := ANode.AddChild( 'item' );
        ObjNode.Text := SearchRec.Name;

        if SearchRec.Attr and faDirectory <> 0 then
          begin
            ObjNode.SetAttributeNS( 'type', '', 'folder' );
            BuildTree( ARootDir + SearchRec.Name, ObjNode );
          end
        else
          ObjNode.SetAttributeNS( 'type', '', 'file' );
      until FindNext( SearchRec ) <> 0;
    finally
      FindClose( SearchRec );
    end;
end;

procedure SaveFolderTree(const AFolder, AFileName : String);
var
  Doc : IXMLDocument;
  RootNode : IXmlNode;
begin
  Doc := NewXMLDocument;
  try
    Doc.Options := [ doNodeAutoIndent ];
    Doc.Active := True;

    RootNode := Doc.AddChild( 'Items' );
    BuildTree( AFolder, RootNode );

    Doc.SaveToFile( AFileName );
  finally
    Doc := nil;
  end;
end;

в uses необходимо добавить XmlIntf и XmlDoc, а так же не забыть выполнить CoInitialize перед работой с XML.

[Stilet]

а зачем ADO?

А причем тут ADO? Присмотрись Хорошенько как я формирую XML.
Там ADOй даже не пахнет.

[maxionans]

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

А причем тут ADO? Присмотрись Хорошенько как я формирую XML.
Там ADOй даже не пахнет.

да, это круто

[Stilet]

Ниче там крутого нет. Обычный текстовый файл...