(转载)delphi 把图片存入数据库
delphi 把图片存入数据库
procedure TForm1.Button1Click(Sender: TObject); // 插入图片过程
var
Stream:TMemoryStream;
begin
try
Stream := TMemoryStream.Create; // 创建内存流
Image1.Picture.Graphic.SaveToStream(Stream); // 将图片保存到内存流中
adoquery1.Close;
adoquery1.SQL.Clear;
adoQuery1.SQL.Add('Insert into tbltemp (Image) values (:photo)'); // 进行插入操作
adoQuery1.Parameters.ParamByName('photo').LoadFromStream(Stream,ftBlob); // 读取保存的内存图
adoquery1.ExecSQL;
finally
Stream.Free; // 释放内存流
end;
end;
procedure TForm1.Button2Click(Sender: TObject); //读取图片过程
var
Stream:TMemoryStream;
Jpg:TjpegImage;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='SELECT * FROM tbltemp'; // 查询图片
ADOQuery1.Open;
if not ADOQuery1.FieldByName('Image').IsNull then
begin
Stream:=TMemoryStream.Create ;
Jpg:=TjpegImage.Create ;
TBlobField(ADOQuery1.FieldByName('Image')).SaveToStream(Stream); // 显示的转换为BlobField并保存到内存流
Stream.Position :=0;
jpg.LoadFromStream(Stream); // 加载图片
image2.Picture.Assign(Jpg);
end
else
begin
image2.Picture :=nil;
end;
end;
转载于:https://www.cnblogs.com/angelbd/p/3373087.html
- 点赞
- 收藏
- 分享
- 文章举报
- (转载)Delphi StringGrid常用属性和常用操作
- (转载)EhLib 在 Delphi 7 下的安装方法
- (转载)Delphi TStringList的用法
- Microsoft Agent技术在Delphi中的应用
- delphi 7.0生成的AgentObjects_TLB.pas出错导至Ms Agent不能发声
- Delphi XLgrid 动态创建下拉框列
- Delphi XE10.3.1 使用心得-2019-12-08
- Delphi10 Android程序 对话框(dialogmessage, showmessage)等的汉化
- TCP中间件_Delphi_client
- DELPHI编模拟鼠标,键盘操作,比键盘鼠标录制软件更强
- glassfish 部署 Delphi for PHP 程序 use_unit 的问题
- delphi安装 Tclientsocket, Tserversocket控件
- Delphi调用分布存储过程
- Delphi7对XML的支持分析
- delphi学习中.
- Delphi之Windows编程
- delphi Memo 的当前行、当前列与当前字符
- Delphi数据库开发之TTable篇1
- Delphi数据库开发之TTable篇2
- Delphi数据库开发之TBDEDataSet.CachedUpdates