如何将图片保存到数据库中?

xiaobai2007 2007-05-02 10:33:54
实现这项功能的代码如何编写?
...全文
478 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
knowledge_Is_Life 2008-05-01
  • 打赏
  • 举报
回复
等待牛人来答.
UltraBejing 2008-04-30
  • 打赏
  • 举报
回复
有问题请先GOOGLE,BAIDU
Kesan6 2007-05-29
  • 打赏
  • 举报
回复
//将Image1中的图片保存到数据库
var
bmpStream : TMemoryStream;
begin
bmpStream := TMemoryStream.Create;
Image1.Picture.Bitmap.SaveToStream(bmpStream);
bmpStream.Position:=0;
AdoQuery.Edit;
(AdoQuery.FieldByName('BGBmp') as TBlobField).LoadFromStream(bmpStream);
AdoQuery.Post;
bmpStream.Free;
end;
Kesan6 2007-05-29
  • 打赏
  • 举报
回复
//显示图片
var
bmpStream : TMemoryStream;
begin
bmpStream := TMemoryStream.Create;
(AdoQuery.FieldByName('BGBmp') as TBlobField).SaveToStream(bmpStream);
bmpStream.Position:=0;
Image1.Picture.Bitmap.LoadFromStream(bmpStream);
bmpStream.Free;
end;
xiaobai2007 2007-05-03
  • 打赏
  • 举报
回复
还是不明白,我是在SQL Server里建的数据库,zp00为照片字段,是image类型,我在窗体中添加了一个dbimage、button、openpicturedialog控件,我想通过单击button来选择图片,并把图片显示在dbimage中,然后保存到数据库中。
button的click事件代码如下:
dbimage1.DataField:='zp00';
//选择图像
if openpicturedialog1.Execute then
begin
fdm.q_student.Edit;
dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);

fdm.q_student.Post;
end;
可是怎么也不能显示图片和保存图片,有具体代码吗?
Bear_hx 2007-05-02
  • 打赏
  • 举报
回复
使用Blob字段把文件存进数据库,然后再读出来,加载到图象控件中。

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧