не могу сохранить изображение (делфи)

[NewLamer&Programer]

Form1.SavePictureDialog1.Execute;
if Form1.SavePictureDialog1.Execute then
Form1.Image1.Picture.SaveToFile(Form1.SavePictureDialog1.FileName);

хоть убей не сохраняется расширение файла (в имени расширение не пишу, но ведь именно для этого и нужен фильтр?)

[kventin_zhuk]

Сообщение от NewLamer&Programer

Form1.SavePictureDialog1.Execute;
if Form1.SavePictureDialog1.Execute then
Form1.Image1.Picture.SaveToFile(Form1.SavePictureDialog1.FileName);

хоть убей не сохраняется расширение файла (в имени расширение не пишу, но ведь именно для этого и нужен фильтр?)

Во первых: зачем два раза SaveDialog1.Execute (один в if а другой перед ним). Одного в If вполне достаточно то. А фильтр только указывает файлы с каким расширением отображать. Добавьте проверку типа: Если в имени файла не найдена точка(а после точки идёт расширение) - прилепить с FileName какое-нибудь расширение.

[Пепел Феникса]

свойство DefaultExt есть(если одно лишь расширение)
+ проверку как сказали выше.

[NewLamer&Programer]

что то вроде этого?

if Form1.SavePictureDialog1.Execute then
if Pos('.', Form1.SavePictureDialog1.FileName) = 0 then

begin
if (form1.SavePictureDialog1.Filter = '*.jpg')
then Form1.image1.Picture.SaveToFile(form1.SavePictureDialog1.FileName+'.jpg');

if (form1.SavePictureDialog1.Filter = '*.jpeg')
then Form1.image1.Picture.SaveToFile(form1.SavePictureDialog1.FileName+'.jpeg');

if (form1.SavePictureDialog1.Filter = '*.bmp')
then Form1.image1.Picture.SaveToFile(form1.SavePictureDialog1.FileName+'.bmp');
end

else Form1.Image1.Picture.SaveToFile(Form1.SavePictureDialog1.FileName);

з.ы. только оно все равно не работает

[NewLamer&Programer]

а все дописал DefaultExt заработало спс

[Count of Toscany]

Куда дописал???

[Stilet]

DefaultExt это свойство SavePictureDialog1, которое по умолчанию подставляет расширение к имени файла.

Р.S. Я правда его не помню в этом компоненте, но не исключено что оно там есть.