Chart и savepicturedialog

[a1ias]

Как сохранить изображение с charta с помощью savepicturedialog
c условием дописывания расширения из списка фильтра?

[mihali4]

Да как обычно (пусть в jpg):

if SaveDialog1.Execute then
Chart1.SaveToMetafile(SaveDialog1.FileName);

[a1ias]

такой код не сохраняет расширения, если его не прописывать в имени файла.
Есть такой код программы... немного дополненный

SavePictureDialog1.DefaultExt := GraphicExtension(TJpegImage);
if SavePictureDialog1.Execute then
Chart1.SaveToMetafile(SavePictureDialog1.FileName);

Но! Первое сохранение идет на отл! А когда пробуешь сохранить изображение еще раз... он открывает ту же директорию и выдает ошибку "Jpeg Error #53".
Насколько я понял из других источников это ошибка битого файла, или файла с дописанным расширением(не знаю как обьяснить... это как тхт файлу дать расширение mp3 - то его же не будет проигрывать программа).

В uses прописал Jpeg.

В чем ошибка не пойму.

(подозреваю что SaveToMetafile не сохраняет в формат jpeg)

[mihali4]

подозреваю что SaveToMetafile не сохраняет в формат jpeg

Отлично сохраняет, я же опробовал, прежде чем советовать...
В инспекторе объектов в поле DefaultExt впишите jpg безо всяких кавычек и прочего...
Будете указывать только имя файла, расширение подставится.

[a1ias]

Конечно все хорошо...
Но в вашем примере вы использовали стандартный диалог - SaveDialog
А мне надо использовать стандартный диалог сохранения изображений - SavePictureDialog
Вот в нем то вылетает ошибка "Jpeg Error #53". При повторном сохранении

[SERG1980]

Я сохранял Chart вот так

 form1.SavePictureDialog1.FileName:=f_name;
 form1.SavePictureDialog1.InitialDir:=ExtractFilePath(Application.ExeName)+'Image';
 if form1.SavePictureDialog1.Execute then
 begin
  case form1.SavePictureDialog1.FilterIndex of
   1:form1.Chart1.SaveToBitmapFile(form1.SavePictureDialog1.FileName);
   2:form1.Chart1.SaveToMetafileEnh(form1.SavePictureDialog1.FileName);
   3:form1.Chart1.SaveToMetafile(form1.SavePictureDialog1.FileName);
  end;
 end;