delphi如何实现图片的另存为
3个回答
展开全部
是需要右键另存为吗？
你可以加入一个PopMenu（第1个选项卡-standard的第3个），就是右键菜单，上面加入‘图片另存为’选项。
然后加入一个SaveDialog（第17个选项卡-Dialogs里第2个）。
双击‘图片另存为’选项新建事件，在里面写SaveDialog1.Execute;
EG.
Procedure TForm1.SaveAs1Click(Sender:Object);
begin
SaveDialog1.execute;
end;
就可以了！
你可以加入一个PopMenu（第1个选项卡-standard的第3个），就是右键菜单，上面加入‘图片另存为’选项。
然后加入一个SaveDialog（第17个选项卡-Dialogs里第2个）。
双击‘图片另存为’选项新建事件，在里面写SaveDialog1.Execute;
EG.
Procedure TForm1.SaveAs1Click(Sender:Object);
begin
SaveDialog1.execute;
end;
就可以了！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
OPEN查询到图片资料后。
TBlobField(Query1.FieldByName('photo')).SaveToFile('C:\1.jpg');
TBlobField(Query1.FieldByName('photo')).SaveToFile('C:\1.jpg');
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
SaveToFile()
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
