我正在尝试将 TBitmap 图像数组添加到 ClientDataSet 的不同记录(在 ftBlob 字段中),然后将这些记录保存到 SQLite 数据库。 BLOB 字段 (DocImage) 是数据库中的必填字段。
但是,我的代码似乎根本没有将位图保存到 ClientDataSet 中的 blob 字段......所以当我调用BdmMain.cdsTrxDoc.ApplyUpdates(0)
,我收到错误:“字段‘DocImage’必须有一个值。”
我在调用之前和之后检查了 BlobStream (BlobStream.Size) 的大小FTrxPhotoValue[i].SaveToStream(BlobStream)
它的大小确实增加了,但 BlobField 的数据大小仍然为 0。
这是代码片段:
FTrxIDValue: Integer;
FTrxDocIDValue: array of Integer;
FTrxPhotoValue: array of TBitmap;
// ...
for i := 0 to Length(FTrxPhotoValue) do
begin
BdmMain.cdsTrxDoc.Insert;
BdmMain.cdsTrxDoc['TrxID'] := FTrxIDValue;
BdmMain.cdsTrxDoc['DocID'] := FTrxDocIDValue[i];
BlobField := BdmMain.cdsTrxDoc.FieldByName('DocImage');
BlobStream := BdmMain.cdsTrxDoc.CreateBlobStream(BlobField, bmWrite);
FTrxPhotoValue[i].SaveToStream(BlobStream);
end;
// ...
BdmMain.cdsTrxDoc.ApplyUpdates(0);
你应该Free
调用后的流SaveToStream
。流只会在以下期间更新底层字段:Destroy
.
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)