XML操作

 

procedure TForm1.btnDat2XmlClick(Sender: TObject);
var
  XMLDoc: TXMLDocument;
  Node1: IXMLNode;
  Node2: IXMLNode;
  MyStream: TMemoryStream;
  i: integer;
begin
  if FileExists('.\GoodsSale_Tw.dat') then begin
    XMLDoc := TXMLDocument.Create(nil);
    XMLDoc.Active := True;
    XMLDoc.Version := '1.0';
    XMLDoc.Encoding := 'GB2312';
    XMLDoc.Options := [doNodeAutoCreate, doNodeAutoIndent, doAttrNull, doAutoPrefix, doNamespaceDecl];
    XMLDoc.DocumentElement := XMLDoc.CreateNode('table');
    myStream := TMemoryStream.Create;
    myStream.LoadFromFile('.\GoodsSale_Tw.dat');
    Count := (myStream.Size - 40) div 10;
    //myStream.ReadBuffer(Head[0], 10);
    MyStream.Position := 10;
    for i := 0 to Count - 1 do
    begin
      new(Pgshop);
      MyStream.Read(Pgshop^, sizeof(gshop_info));
      Node1 := XMLDoc.DocumentElement;
      Node2 := Node1.AddChild('row');
      if ((i + 1) mod 2) <> 0 then begin
        Node2.SetAttributeNS('大类', '', Pgshop^.a1 xor $72);
        Node2.SetAttributeNS('位置', '', Pgshop^.a2 xor $67);
        Node2.SetAttributeNS('物品ID', '', Pgshop^.a3 xor $AA13);
        Node2.SetAttributeNS('折叠数量', '', Pgshop^.a5 xor $86);
        Node2.SetAttributeNS('价格', '', Pgshop^.a6 xor $DFB0);
        Node2.SetAttributeNS('功能1', '', Pgshop^.a8 xor $C2);
        Node2.SetAttributeNS('功能2', '', Pgshop^.a9 xor $C8);
        Node2.SetAttributeNS('标识', '', Pgshop^.a10 xor $9D);
      end else begin
        Node2.SetAttributeNS('大类', '', Pgshop^.a1 xor $4E);
        Node2.SetAttributeNS('位置', '', Pgshop^.a2 xor $B0);
        Node2.SetAttributeNS('物品ID', '', Pgshop^.a3 xor $D103);
        Node2.SetAttributeNS('折叠数量', '', Pgshop^.a5 xor $BC);
        Node2.SetAttributeNS('价格', '', Pgshop^.a6 xor $8E05);
        Node2.SetAttributeNS('功能1', '', Pgshop^.a8 xor $07);
        Node2.SetAttributeNS('功能2', '', Pgshop^.a9 xor $92);
        Node2.SetAttributeNS('标识', '', Pgshop^.a10 xor $80);
      end;
    end;
    //myStream.ReadBuffer(LastRecord, 10);
    //myStream.ReadBuffer(Bottom[0], 20);
    XMLDoc.SaveToFile('.\GoodsSale_Tw.xml');
    XMLDoc.Free;
    myStream.Free;
  end;
end;

procedure TForm1.btnXml2DatClick(Sender: TObject);
var
  XMLDoc: TXMLDocument;
  Node, Node1: IXMLNode;
  MyStream: TMemoryStream;
  i, Count: integer;
begin
  if FileExists('.\GoodsSale_Tw.xml') then begin
    XMLDoc := TXMLDocument.Create(Application);
    XMLDoc.LoadFromFile('.\GoodsSale_Tw.xml');
    XMLDoc.Active := True;
    Node := XMLDoc.DocumentElement;
    Count := Node.ChildNodes.Count;
    myStream := TMemoryStream.Create;
    myStream.Write(Head[0], Length(Head));
    for i := 0 to Count - 1 do begin
      Node1 := XMLDoc.DocumentElement.ChildNodes[i];
      new(Pgshop);
      if ((i + 1) mod 2) <> 0 then begin
        Pgshop^.a1 := Byte(StrToInt(Node1.Attributes['大类'])) xor $72;
        Pgshop^.a2 := Byte(StrToInt(Node1.Attributes['位置'])) xor $67;
        Pgshop^.a3 := StrToInt(Node1.Attributes['物品ID']) xor $AA13;
        Pgshop^.a5 := Byte(StrToInt(Node1.Attributes['折叠数量'])) xor $86;
        Pgshop^.a6 := StrToInt(Node1.Attributes['价格']) xor $DFB0;
        Pgshop^.a8 := Byte(StrToInt(Node1.Attributes['功能1'])) xor $C2;
        Pgshop^.a9 := Byte(StrToInt(Node1.Attributes['功能2'])) xor $C8;
        Pgshop^.a10 := Byte(StrToInt(Node1.Attributes['标识'])) xor $9D;
      end else begin
        Pgshop^.a1 := Byte(StrToInt(Node1.Attributes['大类'])) xor $4E;
        Pgshop^.a2 := Byte(StrToInt(Node1.Attributes['位置'])) xor $B0;
        Pgshop^.a3 := StrToInt(Node1.Attributes['物品ID']) xor $D103;
        Pgshop^.a5 := Byte(StrToInt(Node1.Attributes['折叠数量'])) xor $BC;
        Pgshop^.a6 := StrToInt(Node1.Attributes['价格']) xor $8E05;
        Pgshop^.a8 := Byte(StrToInt(Node1.Attributes['功能1'])) xor $07;
        Pgshop^.a9 := Byte(StrToInt(Node1.Attributes['功能2'])) xor $92;
        Pgshop^.a10 := Byte(StrToInt(Node1.Attributes['标识'])) xor $80;
      end;
      myStream.Write(Pgshop^, SizeOf(gshop_info));
    end;
    myStream.Write(LastRecord[0], Length(LastRecord));
    myStream.Write(Bottom[0], Length(Bottom));
    myStream.SaveToFile('.\GoodsSale_Tw1.dat');
    myStream.Free;
  end; 
end;