关于SavePictureDialog 图片保存如何能提示重名覆盖?

xuyanjiao1800 2007-12-27 10:15:22

使用 SavePictureDialog 保存图片时如何使有重名时询问是否覆盖原图片点是覆盖否从新选择图片名字

尽量写出代码谢谢各位！！

...全文

207 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

xuyanjiao1800 2007-12-27

打赏
举报

确实是您说的那个问题~~

还有一点不解就是我把 DefaultExt 里面填上 .jpg

保存图片后程序会崩溃报错呵呵好像我问得太多了呵呵

stherix 2007-12-27

打赏
举报

SaveDialog有个DefaultExt 如果不输入扩展名他会自动加上这个
还有Filter也会有影响

你看看是不是这个问题

xuyanjiao1800 2007-12-27

打赏
举报

用jerry8 的方法也是可以钻这个漏洞但是还是不能正确保存不过谢谢2位百忙中帮我解答！！

xuyanjiao1800 2007-12-27

打赏
举报

我试了一下确实是不询问是否覆盖但是即使点了保存图片并非真的保存了二是没有保存！

stherix 2007-12-27

打赏
举报

我这里不会啊...
你看下扩展名是不是一样

xuyanjiao1800 2007-12-27

打赏
举报

先谢谢 stherix 改了后确实询问是否覆盖了但还是有一个问题就是我点取消后删除输入框中的名字在从新输入一个同名名字就不询问直接覆盖了！！！

例如我的图片叫 0001 桌面上已经存在一个 0001 的图片文件了我点保存提示覆盖我点取消把输入框中的 0001删除

重新输入 0001 点击保存不询问是否而直接覆盖。。。请问这正常么？还是我哪里设定不对了？

jerry8 2007-12-27

打赏
举报

3楼的简单实用学习了

jerry8 2007-12-27

打赏
举报

if SavePictureDialog1.Execute then
if FileExists(SavePictureDialog1.FileName) then
if Application.MessageBox('文件已经存在,是否要覆盖?', '提示', MB_ICONQUESTION + MB_YESNO) = IDYes then
image1.Picture.SaveToFile(SavePictureDialog1.FileName);

stherix 2007-12-27

打赏
举报

Options
ofOverwritePrompt

xuyanjiao1800 2007-12-27

打赏
举报

这是我的图片保存代码执行后就算图片存在也不会询问是否覆盖你输入了名字无论同名在于不在都会覆盖！

procedure TForm1.Save1Click(Sender: TObject);
begin
if Self.SavePictureDialog1.Execute then
begin
Image1.Picture.Bitmap.SaveToFile(SavePictureDialog1.FileName + '.bmp');
end;
end;