Delphi（win32）序列化库

Question

是否有任何Delphi序列化库能够序列化记录和记录数组而不是类？

Answer 1

@Max您可以使用JEDI中的TJvAppXMLFileStorage组件来序列化记录或记录数组。

您可以使用名为WriteBinary的过程来存储数据，并使用ReadBinary来读取。

遗憾的是，这个组件没有太多文档，所以这里有一个非常简单的例子来存储单个记录（对于一个记录数组，你可以轻松地修改这个源代码）。

记录结构

type
  MyRecord= record
      Field1 : Integer;
      Field2 : Double;
      Field3 : String[20];
      Field4 : String[20];
  end;

保存记录

Procedure SaveMyRecord(Rec : MyRecord);
var
  MyStore: TJvAppXMLFileStorage;
begin
  MyStore:= TJvAppXMLFileStorage.Create(nil);
  try
    MyStore.FileName:='C:\temp\record.xml'; 
    //this component supports store multiples objects to the same file, so you need use an identifier for you particular object, in this case i'm use the Dummy name.
    MyStore.WriteBinary('Dummy', @Rec,sizeof(Rec));
    MyStore.Xml.SaveToFile(MyStore.FileName);
  finally
    MyStore.Free;
  end;
end;

此过程创建这样的XML文件，数据以十六进制格式编码。

<?xml version="1.0" encoding="iso-8859-1"?>
<Configuration>
  <Dummy>84030000000000003333333333331F400D737472696E6720746573742031000000000000000D737472696E672074657374203200000000000000000000000000</Dummy>
</Configuration>

阅读持久数据

Procedure LoadMyRecord(var Rec : MyRecord);
var
  MyStore: TJvAppXMLFileStorage;
begin
  MyStore:= TJvAppXMLFileStorage.Create(nil);
  try
    MyStore.FileName:='C:\temp\record.xml';//point to the same file
    MyStore.Xml.LoadFromFile(MyStore.FileName); //load the file
    MyStore.ReadBinary('Dummy', @Rec,sizeof(Rec));//use the Dummy identifier and pass the record as an pointer
  finally
    MyStore.Free;
  end;
end;

检查这个完整的项目（在Delphi 7中测试）

program ProjectPersistRecord;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  JvAppXMLStorage;

type
  MyRecord= record
      Field1 : Integer;
      Field2 : Double;
      Field3 : String[20];
      Field4 : String[20];
  end;

Procedure SaveMyRecord(Rec : MyRecord);
var
  MyStore: TJvAppXMLFileStorage;
begin
  MyStore:= TJvAppXMLFileStorage.Create(nil);
  try
    MyStore.FileName:='C:\temp\record.xml';
    MyStore.WriteBinary('Dummy', @Rec,sizeof(Rec));
    MyStore.Xml.SaveToFile(MyStore.FileName);
  finally
    MyStore.Free;
  end;
end;

Procedure LoadMyRecord(var Rec : MyRecord);
var
  MyStore: TJvAppXMLFileStorage;
begin
  MyStore:= TJvAppXMLFileStorage.Create(nil);
  try
    MyStore.FileName:='C:\temp\record.xml';
    MyStore.Xml.LoadFromFile(MyStore.FileName);
    MyStore.ReadBinary('Dummy', @Rec,sizeof(Rec));
  finally
    MyStore.Free;
  end;
end;


Var
    Rec :  MyRecord;
begin
  //Fill the record
  Rec.Field1:=900;
  Rec.Field2:=7.8;
  Rec.Field3:='string test 1';
  Rec.Field4:='string test 2';
  SaveMyRecord(Rec); //save the record
  FillChar(Rec,SizeOf(Rec),#0); //clear the record variable
  LoadMyRecord(Rec);//restire the record data
  //show the loaded data
  Writeln(rec.field1);
  Writeln(rec.field2);
  Writeln(rec.field3);
  Writeln(rec.field4);
  Readln;
end.

Answer 2

另一个解决方案，从Delphi 5到XE2，可在我们的OpenSource单元中使用 。

实际上，它实现了：

• 一些用于处理记录类型的低级RTTI函数： RecordEquals, RecordSave, RecordSaveLength, RecordLoad ;
• 一个专用的TDynArray对象，它是任何动态数组的包装器，能够在任何动态数组周围显示类似TList的方法，甚至包含记录，字符串或其他动态数组。 它能够序列化任何动态数组。

序列化使用优化的二进制格式，并能够将任何记录或动态数组保存并加载为RawByteString 。 您还有JSON序列化，包括自定义布局 - 请参阅记录的sustom JSON序列化 。

Answer 3

如果你有Delphi 2010，你可能想看看DeHL 。 它包含一个可以处理几乎任何数据类型的序列化库。

Answer 4

作为一个记录，如果你没有属性，我不相信你会更进一步，试图使用任何持久性框架（如DeHL）。

在技​​术上正确的情况下，接受的答案在实际效用中是可疑的，并且如果您在生产中使用它，则会有许多长期支持 - 噩梦场景。 不要做。

如果你的程序只是一点点特别的话，我可以谦虚地建议你用一个“记录文件”摇滚老派，这是一种经典的Turbo Pascal技术仍然适用。