Добавление тегов в заголовок XML

[artemavd]

Вечер добрый всем! Прошу помощи в следующей проблемке. Формирую XML файл таким кодом:

{Построение дерева}
procedure BuildTree_Dilers(const ARootDir : String; ANode : IXmlNode);
var
  ObjNode,ObjNode2 : IXmlNode;
begin
 ObjNode := ANode.AddChild( 'zglv_1' );
// ObjNode2 := ANode.AddChild( 'zglv_2' );
 ObjNode.AddChild('filename').Text:='0000000000';
 ObjNode.AddChild('version').Text:='1.0';
 ObjNode.AddChild('cod').Text:='000';
 ObjNode.AddChild('nrec').Text:='1068999';
// ObjNode2.SetAttributeNS( 'zglv_2', '', '001-001-001 01' );
end;

так сохраняю:

procedure SaveFolderTree_Dilers(const AFolder, AFileName : String);
var
  Doc : IXMLDocument;
  RootNode : IXmlNode;
begin
  Doc := NewXMLDocument;
  try
    Doc.Options := [ doNodeAutoIndent ];
    Doc.Active := True;
    RootNode := Doc.AddChild( 'main_menu' );
    BuildTree_Dilers( AFolder, RootNode );
    Doc.SaveToFile( AFileName );
  finally
    Doc := nil;
  end;
end;

так вызываю последнюю функцию:

procedure TForm1.mniXML2Click(Sender: TObject);
begin
   SaveFolderTree_Dilers('123123333321',ExtractFilePath(Application.ExeName) + 'test.xml');
   Form1.wb1.Navigate(ExtractFilePath(Application.ExeName) + 'test.xml');
end;

В итоге получается такое дерево (скрин "Сейчас"). Проблема с функцией

BuildTree_Dilers

, т.е. не могу добавить второй заголовок. Мне нужно добавить заголовок zglv_2, так, чтобы я мог сформировать такое дерево (скрин "Вариант_1"). А возможно ли сформировать дерево такое как на скрине "Вариант_2"? Прошу помощи по редактированию моего кода. Просьба отвечать по теме. Заранее спасибо.

[Аватар]

 ObjNode := ANode.AddChild( 'zglv_1' );
 ObjNode.AddChild('filename').Text:='0000000000';
 ObjNode.AddChild('version').Text:='1.0';
 ObjNode.AddChild('cod').Text:='000';
 ObjNode.AddChild('nrec').Text:='1068999';
 ObjNode := ANode.AddChild( 'zglv_2' );
 ObjNode.AddChild('number').Text:='1';
 ObjNode.AddChild('number').Text:='2';

а вариант два не соответствует xml-формату записи данных, разве что в виде ObjNode.AddChild('number').Text:='1 ,2,4,9'

[artemavd]

Зачет!). Спасибо). На счет формата я понял. Пара моментов. Как добавить название кодовой страницы рядом с <?xml version="1.0" ? В обычных XML файлах эта страница присутствует. Нужно, по условию задания, чтобы самая верхняя строчка была такой:

<?xml version="1.0" encoding="windows-1251"?>

Вот этот самый encoding="windows-1251" не могу добавить. Полагаю, что за строчку

?xml version="1.0"

отвечает код

    Doc.Options := [ doNodeAutoIndent ];

а вот для кодовой страницы не нашел такого.

И второй момент.
Мне нужно заполнить значения тега number номерами из одного поля БД (DBF). Записей очень много, больше 1 млн. Не пробовал пока, но можно ли организовать что-то типа такого цикла:

procedure BuildTree_Dilers(const ARootDir : String; ANode : IXmlNode);
var
  ObjNode : IXmlNode;
  i: Integer;
begin
 ObjNode := ANode.AddChild( 'zglv' );
 ObjNode.AddChild('filename').Text:='048104RQ01025';
 ObjNode.AddChild('version').Text:='1.0';
 ObjNode.AddChild('cod_pfr').Text:='048';
 ObjNode.AddChild('nrec').Text:='1068999';
 ObjNode := ANode.AddChild( 'snils' );
 Form1.qry1.Active:=False;
 Form1.qry1.SQL.Clear;
 Form1.qry1.SQL.Text:='select * from ' + ExtractFileName(ChangeFileExt(Form1.sStatusBar1.Panels[3].Text,''));
 Form1.qry1.Active:=True;
  Form1.sMemo1.Clear;
  Form1.qry1.First;
  while not Form1.qry1.Eof do
  begin
   Form1.sMemo1.Lines.Add(Form1.qry1.FieldByName('INSNMB').AsString);
   Application.ProcessMessages;
   for i:=0 to Form1.sMemo1.Lines.Count - 1 do
   begin
    Form1.XMLDocument1.AddChild('number',Form1.sMemo1.Lines.Strings[i]);
   end;
   Form1.qry1.Next;
   Application.ProcessMessages;
  end;
end;

??

[BARNEY]

может так лутше, цикл думаю сами в нужном месте реализуете.

procedure TForm1.Button1Click(Sender: TObject);
VAR
Xmldoc:IXMLDocument;
Ninode:IXMLNode;
begin
Xmldoc:=TXMLDocument.Create(nil);
Xmldoc.Active:=True;
Xmldoc.Options:=Xmldoc.Options+[doNodeAutoIndent];
Xmldoc.Version:='1.0';
Xmldoc.Encoding:='Windows-1251';
with Xmldoc do
  begin
     with  AddChild('OPLIST') do
        begin 
           ChildValues['FILENAME']:='';
           ChildValues['SMOCOD']:='';
           ChildValues['PRZCOD']:='';
           ChildValues['NRECORDS']:='';
          with AddChild('OP') do
            begin
              ChildValues['N_REC']:='';
              ChildValues['ID']:='';
              ChildValues['TIP_OP']:='';
              with AddChild('PERSON') do
              begin
                ChildValues['FAM']:='';
                ChildValues['IM']:='';
                ChildValues['OT']:='';
                ChildValues['W']:='';
                ChildValues['DR']:='';
                ChildValues['TRUE_DR']:='';
                ChildValues['C_OKSM']:='';
                ChildValues['SS']:='';
                ChildValues['PHONE']:='';
                ChildValues['EMAIL']:='';
                ChildValues['FOIPR']:='';
                ChildValues['CONTACT']:='';
                ChildValues['DDEATH']:='';
              end;
           end;

        end;
  end;


Xmldoc.SaveToFile('C:\delphi\test\xml\1.xml');

[artemavd]

BARNEY, огромное спасибо за пример построения дерева, в дальнейшем буду стараться использовать его. У меня вопрос в том, как можно (можно ли) ускорить построение 1 млн записей из Memo? А то долго как-то будет наверное.

[BARNEY]

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

[artemavd]

Попробую. Правда долго грузится все сначала в Мемо, 1 мульон же записей, после этого планирую присваивать в значение XML. Или, было бы правильнее результат запроса присваивать сразу в XML?

[Аватар]

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

Или, было бы правильнее результат запроса присваивать сразу в XML?

Это 100%

[BARNEY]

используйте параматезированный запрос для перегонки и будет вам счастье.

[artemavd]

Вот, пытаюсь сделать дерево как в примере "Вариант 1" (сделал тестовую БД с 20 записями):

procedure TForm1.Button1Click(Sender: TObject);
var
 Xmldoc:IXMLDocument;
 Ninode:IXMLNode;
 i: Integer;
begin
 Form1.qry1.Active:=False;
 Form1.qry1.SQL.Clear;
 Form1.qry1.SQL.Text:='select * from ' + ExtractFileName(ChangeFileExt(Form1.sStatusBar1.Panels[3].Text,''));
 Form1.qry1.Active:=True;
 Application.ProcessMessages;
 Form1.sMemo1.Clear;
 Form1.qry1.First;
 Application.ProcessMessages;
 while not Form1.qry1.Eof do
 begin
  Form1.sMemo1.Lines.Add(Form1.qry1.FieldByName('INSNMB').AsString);
  Application.ProcessMessages;
  Form1.qry1.Next;
  Application.ProcessMessages;
 end;
 Application.ProcessMessages;

//============================ôîðìèðóþ äåðåâöå XML==============================
 Xmldoc:=TXMLDocument.Create(nil);
 Xmldoc.Active:=True;
 Xmldoc.Options:=Xmldoc.Options + [doNodeAutoIndent];
 Xmldoc.Version:='1.0';
 Xmldoc.Encoding:='Windows-1251';
 with Xmldoc do
  begin
     with  AddChild('list') do
        begin
          with AddChild('zglv') do
            begin
              ChildValues['filename']:='048101PS01025';
              ChildValues['version']:='1.0';
              ChildValues['cod']:='048';
              ChildValues['nrec']:=Form1.sStatusBar1.Panels[1].Text;
            end;
              with AddChild('number') do
              begin
                for i:=0 to Form1.sMemo1.Lines.Count - 1 do
                begin
                 ChildValues['number']:=Form1.sMemo1.Lines[i];
                end;
              end;
           end;
  end;
 Xmldoc.SaveToFile('C:\1.xml');
 Form1.wb1.Navigate('C:\1.xml');
end;

однако код:

 for i:=0 to Form1.sMemo1.Lines.Count - 1 do
 begin
  ChildValues['snils']:=Form1.sMemo1.Lines[i];
 end;

добавляет только последнюю строчку из Мемо. Как сделать, чтобы добавлялись все строки в тег number из Мемо?