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;
 

相关阅读 >>

Delphi暴力关机代码

Delphi 一行一行读取txt文件

Delphi android 关闭应用程序对话框询问

Delphi xe 跨平台（windows、android安卓、苹果macos、苹果ios）写法

Delphi读取一个access数据库中的表名

base64.pas

Delphi 过卡巴2009和沙盘启发杀毒的Delphi源代码

Delphi 申请内存空间 内存分配 缓冲区

Delphi xe2模拟键盘按键

Delphi 取bmp图片宽高

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

转载请注明出处：木庄网络博客 » delphi 存储文件到数据库