将文件放入数据库,操作TBlobField

最新推荐文章于 2024-11-25 15:10:47 发布

abin30

最新推荐文章于 2024-11-25 15:10:47 发布

阅读量7.7k

点赞数

文章标签：数据库 dataset table image

本文链接：https://blog.youkuaiyun.com/abin30/article/details/1471819

版权

本文介绍了如何使用Delphi中的TMemoryStream类来读取和插入Blob字段数据。具体包括从数据库字段读取Blob数据到TMemoryStream实例以及将图片数据保存为TMemoryStream并加载到数据库Blob字段的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

读取:
var
MS:TMemoryStream;
begin
........
........
MS:=TMemoryStream(DataSet1.CreateBlobStream(DataSet.FieldByName('Field1),bmRead));
.....
现在已经将Field1字段转换成TMemoryStream类型了，保存在MS中了，
希望对你有所帮助。
插入:
TBlobField(Table.FieldbyName('xxx')).LoadFromFile();
也可以用LoadFromStream
例：
var
      MS:   TMemoryStream;
begin
      //如果不在修改或增加状态，改变状态
      if   not   (table1.State   in   [dsInsert,   dsEdit])   then
          table1.Insert;
      MS   :=   TMemoryStream.Create();
      try
          Image1.Picture.Bitmap.SaveToStream(MS);
          TBlobField(Table.FieldbyName('xxx')).LoadFromStream(MS);
      finally
          MS.Free;
      end;
      Table1.Post;   //提交数据
end;