XdbxAnalysis

Tree: TXdbxAnalysis;

FDataStream: TMemoryStream;

{FDataStream:= TMemoryStream.Create;
    FDataStream.LoadFromFile('D:\4.txt');
    Tree:=TXdbxAnalysis.Create;
    Tree.deserialize(FDataStream.Memory,FDataStream.Size);
    Root:=Tree.root;  }

doc: TTBXDocument;
  element,root: TTBXElement;
  tmpInt: Int64;

stream, data: TMemoryStream;

{doc := TTBXDocument.Create('');
  root := doc.CreateElement('request');
  element := root.CreateElement('description');
  element.SetAttribute('system',3);
  element.SetAttribute('type',1);

element := element.CreateElement('operator');
  element.SetAttribute('name','zc');
  element.SetAttribute('id','3GW1D3FC8F');

element := root.CreateElement('data');

stream := TMemoryStream.Create;
  data := TMemoryStream.Create;
  doc.SaveToStream(data,pfXDBX);

tmpInt := 1;
  stream.Write(tmpInt,4);
  stream.Write(tmpInt,8);
  tmpInt := data.Size;
  stream.Write(tmpInt,4);
  //stream.CopyFrom(data,0);

data.SaveToFile('D:\3.txt');