如何在 Delphi FireDAC SQLite 中将 blob 保存到文件中

Question

我的 Delphi 10.4.2 项目使用以下代码将 .WAV 文件的内容存储在 SQLite3 数据库 blob 字段中：

fSQLite3Query: TFDQuery;

fSQLite3Query.ParamByName(kSQLFieldMultimediaFileContents).LoadFromFile(MultimediaFileName, ftBlob);

SELECT * 查询成功后，使用什么代码将该字段的内容保存回文件中？

Answer 1

您可以使用TBlobField 的SaveToFile 来执行此操作。显然，如果您在 Delphi IDE 中设置持久 TField，包括相关字段上的 TBlobField，这是最简单的。

见http://docwiki.embarcadero.com/Libraries/Sydney/en/Data.DB.TBlobField.SaveToStream

MyBlobField.SaveToFile('c:\temp\somewavfile.wav');

更新我从您的评论中得知，您在将我所说的内容与您的代码联系起来时遇到了问题，所以我会尽可能清楚地解释这一点。

当您使用 Sql 查询打开 FDQuery 时，除非您采取措施使 FDQuery 表现不同，否则它将在 Sql 的结果集中为每列创建一个 TField-descendant 字段。 FireDAC 使用来自服务器的元数据来确定它为每个 Sql 列创建的 TField 后代（例如 TIntegerField、TStringField、TBlobField）。只要您在 FDQuery 上调用 .Close()，FDQuery 就会释放字段。

另一种工作方式是创建“持久”字段，即使关闭 FDQuery 也会继续存在。这样做的主要原因是为了让您在设计时知道结果集的每一列使用哪种类型的 TField-descendant 并设置某些行为（如字段的显示格式）。要设置持久 TField，您可以这样做：

• 在 IDE 中，右键单击 FDQuery，然后单击弹出窗口中的Fields editor...。
• 然后，您将看到Fields editor 弹出窗口。
• 右键单击它并从上下文菜单中选择Add all fields。
• Fields editor 然后将为 Sql 结果集中的每一列填充一个字段。 （此时您还可以根据需要手动添加计算字段和查找字段）。

完成所有这些后，您会发现字段显示在对象检查器中，每个字段都有一个组件名称，该名称基于 FDQuery 的名称和 Sql 查询的相关列名称的组合。希望对于您包含 .WAV 文件的专栏， 字段类型将是一个 MemoField。如果是的话，你就回家了。如果不是，请右键单击Fields editor，记下 WAV 数据字段名称，删除 WAV 数据列并右键单击以手动创建一个 TMemoField 并将其 FieldName 属性设置为您刚刚记下的名称。

然后您可以在刚刚创建的 MemoField 上使用SaveToFile。