图片另存为的问题,请指点!TKS!

sunriseknits 2008-05-19 03:59:20
通过查询,显示出所需的图片,想把图片另存为下来。
不知用什么方法,请高手们指点一二,TKS!
...全文
94 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
gzmhero 2008-05-19
  • 打赏
  • 举报
回复

SaveDialog1.Execute;
Image1.Picture.SaveToFile(SaveDialog1.FileName);
sunriseknits 2008-05-19
  • 打赏
  • 举报
回复
问题是想启用TSaveDialog控件将已查询好的图片以JPEG或BMP格式保存到桌面。
gzmhero 2008-05-19
  • 打赏
  • 举报
回复
var
bsTemp:TADOBlobstream;
jpg:tjpegimage;
begin
bsTemp := TADOBlobstream.Create(Adoquery1pic, bmRead);
try
bsTemp.Position:=0;
jpg:=TJpegImage.Create;
jpg.LoadFromStream(bsTemp);
Image1.Picture.Graphic:=jpg;
jpg.Free;
end;
finally
bsTemp.Free
end;

保存:
Image1.Picture.SaveToFile(。。。
sunriseknits 2008-05-19
  • 打赏
  • 举报
回复
从数据库查询出来。BMP,JPEG的都有。
gzmhero 2008-05-19
  • 打赏
  • 举报
回复
从哪里查询出来图片?数据库?什么格式图片?..........

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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