delphi 存储文件到数据库
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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.039772033691406 seconds