自动保存图片问题？请高手指教。

Question

如何在delphi中把处理过的图片自动的保存到我指定的文件夹中。请高手指点，最好给个原码，让我参考一下。谢谢！！

Answer 1

是啊。什么叫自动啊。。
还是用手动吧SAVEAS（FILENAME） ；

Answer 2

设置SavePictureDialog中的文件属性，指定目录，具体看帮助

Answer 3

自动是什么意思啊，是指不弹出对话框，暗箱操作吗？
在处理完图片后，加行保存的代码行吗？
image1.picture.savetofile('保存路径');

Answer 4

procedure SaveToFile(const FileName: string);抱歉，抱歉，瞎说了。
savetofile的参数是带路径的完整的文件名，不是路径。你在处理之前应该可以拿到它的名字，那时你保存起来，这里再用就ok了，如果每有名字的话，就自己随便给它加个名字存里。

Answer 5

我的意思正如killlaoli大哥所说的在处理完图片后，加行保存的代码，使图片保存到指定目录。在处理之前我已拿到图片的名字，问题是保存。
在此我先谢谢大哥们的支持！！

Answer 6

那就用savetofile不就行了吗?举个例子，不知道恰当不恰当
const
  defaultpath = 'd:\mypicture\';
  .......................
//对放在image1里的图片进行了处理，之后保存
  // 处理动作
  ........................
  // 保存到指定路径
  image1.picture.savetofile(defaultpath + yourpicturename);
  ..................
  

Answer 7

killlaoli大哥，CopyFileTo 函数可以用吗？

Answer 8

一直没太懂你的意思，我是理解为你用image放一个图片，自己做处理，然后保存到某一目录，按这个思路，用copyfileto的话
const
  DEFPATH = 'd:\';implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  //处理图片 
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  if CopyFileTo(OpenPictureDialog1.FileName,
    DEFPATH + ExtractFileName(OpenPictureDialog1.FileName)) then
    ShowMessage('Copy Success')
  else
    ShowMessage('Copy Failed');
end;