如何保存“记录数组”到 TMemoryStream（然后存储在 sqlite BLOB 字段中）？

Question

最终我的目标是能够将记录数组数据结构保存在 sqlite BLOB 字段中，但在此期间我尝试序列化记录数组并将其存储在 TMemoryStream 中。如果可能相关，我正在使用 Tim Anderson 的 sqlite 包装器（unicode） Delphi 2010。

这是我的记录数组声明：

type
  TPerson = array of packed record
    sCountry: string[50];
    sFullName: string[100];
    sAddress: string[100];
    sCity: string[30];
    sEmployer: string[100];
  end;

var
  MyPeople       : TPerson;

这是我当前用于将此记录数组序列化到 TMemoryStream 的代码。问题是它不起作用：

var
  i : integer;
  ms : TMemoryStream:
  ms2 : TMemoryStream;    
  TestPeople : TPerson;
  sldb              : TSQLiteDatabase;
begin
    ms := TMemoryStream.Create;
    ms2 := TMemoryStream.Create;
    sldb := TSQLiteDatabase.Create(slDBPath); //sldBPath is a global variable with path to sqlite db
    try
        i := Length(MyPeople);
        ms.Write(i, 4);
        ms.Write(pointer(MyPeople)^, i * sizeOf(MyPeople));
        ///
        ms2.Read(i, 4);  
        SetLength(ms2, i);
        ms2.Read(pointer(TestPeople)^, i * sizeOf(TestPeople));

        WriteLn('#############' + ms2[0].sFullName); //check if we can read data back

        sQuery := 'UPDATE PersonDirectory SET fldPersonBlob = ? WHERE id = "' + 42 + '";';
        sldb.UpdateBlob(sQuery, ms);

    finally
      ms.Free;
      ms2.Free;
      sqldb.Free;
    end;
end;

关于如何将记录数组序列化到 TMemoryStream，或者在 sqlite BLOB 字段中存储记录数组的更好方法，有什么想法吗？

Answer 1

使 TPerson 成为打包记录，并将 TPersons 声明为 TPerson 数组。

type
  TPerson = packed record
    sCountry: string[50];
    sFullName: string[100];
    sAddress: string[100];
    sCity: string[30];
    sEmployer: string[100];
  end;
  TPersons = array of TPerson;
var
  MyPeople: TPersons;

这允许您获取 SizeOf(TPerson) 来获取记录的正确大小，而 Length(MyPeople) 将为您提供数组的长度。将它们相乘即可得到总字节大小。这应该可以帮助你开始。

另请注意，某些读取和写入操作从流的开头开始，而其他操作则在当前位置继续。有时需要在将一个流的内容复制到另一个流之前将 position 设置为 0。文档中会提到这一点。

Answer 2

也许我错了，但你是用 ms 编写并从 ms2 读取的。

ms2 是一个内存流，但不要指向 ms 所指向的相同内存内容。我认为如果您不更改代码，ms2 将不会读取 ms 的内容。

如果您需要将ms的内容放入ms2中，

ms2.LoadFromStream(ms);

请在开始阅读内容之前尝试一下。

当然，您需要知道单个记录的大小才能进行正确的计算。

Answer 3

您可以使用带有纯字符串的记录数组，然后使用我们的 TDynArray 包装器将它们保存到流中。

它将比短字符串使用更少的空间，因为它只会写入字符串使用的字符。例如，定义为 string[100] 的 sEmployer 在直接存储时将始终使用 101 个字节。而对于我们的 TDynArray，它只会使用字符数加一。

适用于 Delphi 6 至 XE。

type
  TPerson = packed record
    sCountry: string;
    sFullName: string;
    sAddress: string;
    sCity: string;
    sEmployer: string;
  end;
  TPersons = array of TPerson;

var
  MyPeople: TPersons;

(...)
procedure SavePeopleToStream(Stream: TMemoryStream);
begin
  DynArray(TypeInfo(TPersons),MyPeople).SaveToStream(Stream);
end;

在 TDynArray 中，您可以使用反向 LoadFromStream 方法以及更多功能。
请参阅此博客获取此包装器的条目。

附加说明：很有趣，这是同一个功能我要添加我们的 ORM：将动态数组内容存储在 BLOB 字段中，编码为二进制。但在我们的例子中，由于 Delphi RTTI，一切都将实现自动化。还有一个客户端/服务器层，使用 JSON 进行传输，使其更加符合 n-Tier 标准。