delphi 存储文件到数据库


本文整理自网络,侵删。

 

procedure loadfromdb
var
  PicStream: TMemoryStream;
begin

  PicStream := TMemoryStream.Create;
  TBlobField(FDQuery1.FieldByName('fujian')).SaveToStream(PicStream);
  PicStream.Position := 0;
  PicStream.SaveToFile('x:\1.jpg');
  PicStream.Free;

end;


procedure savetodb;
var
  PicStream: TMemoryStream;
begin
    PicStream := TMemoryStream.Create;
    Image1.Picture.Bitmap.SaveToStream(PicStream);
    TBlobField(FDQuery1.FieldByName('fujian')).LoadFromStream(PicStream);
    PicStream.Free;

end;

相关阅读 >>

汇编基础知识

Delphi多线程学习:多线程数据库查询(ado)

Delphi读取webbrowse中的图片显示在image中

Delphi xe5 重启 关闭 windows 8

Delphi中move 函数额用法

Delphi 怎么计算一个memo中输入的汉字数目

Delphi 常用api 函数

Delphi fdmemtable1建立缓存表 模糊查询

Delphi 英文单词第一个字母大写

Delphi 创建一个文本文件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...