Проблема с сохранением картинок

[Count of Toscany]

Не могу сохранить изображение TImage. При сохранении выдаёт ошибку "Cannot create file "". Системе не удаётся найти указанный путь", а при сохранении как, вылетает "Unknowm Picture File Extension". Вот код

var
img1: TBitmap;
img2: TJpegImage;
img3: TPngObject;

........

//Для открытия файла

procedure TForm1.N2Click(Sender: TObject);
var
extr, FName: string;
begin
If OpenPictureDialog1.Execute then
extr:= ExtractFileExt(OpenPictureDialog1.Filename);
  If extr= '.bmp' then
  begin
  img1.LoadFromFile(OpenPictureDialog1.FileName);
  Image1.Width:=img1.Width;
  Image1.Height:=img1.Height;
  Image1.Canvas.Draw(0,0,img1);
  end;
  If extr= '.jpg' then
  begin
  img2.LoadFromFile(openPictureDialog1.Filename);
  Image1.Width:=img2.Width;
  Image1.Height:=img2.Height;
  Image1.Canvas.Draw(0,0,img2);
  end;
  If extr= '.png' then
  begin
  img3.LoadFromFile(openPictureDialog1.Filename);
  Image1.Width:=img3.Width;
  Image1.Height:=img3.Height;
  Image1.Canvas.Draw(0,0,img3);
  end;
 FName:= OpenPicturedialog1.Filename;

//Для сохранения

procedure TForm1.N3Click(Sender: TObject);
begin
Image1.Picture.SaveToFile(FName);
end;

//Для сохранить как

procedure TForm1.N4Click(Sender: TObject);
begin

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

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

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

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

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

end;

[саша40]

Вопрос: А картинка там есть? Задаст программа. А ваще переводится ошибка так: Не удалось создать файл.

[astecenko]

Во1ых, в методе procedure TForm1.N3Click вы вызываете локальную переменную FName метода procedure TForm1.N2Click, что не может быть так как компилятор бы выдал ошибку "undeclared identifier" (неизвестная переменная)

Во2ых, Вы уверены что в SavePictureDialog1.Filter содержится именно выбранный фильтр (имею в виду обработчик Сохранить как...), по-моему там содержится описание всех фильтров, и соответственно когда Вы не указали расширение все ваши проверки фильтров возвращают False, и ничего не сохранится. Логичнее проверять FilterIndex.

В3их, ругаться "Unknowm Picture File Extension" программа может если Вы задали в качестве расширения имени файла расширение не поддерживаемого формата.

[Count of Toscany]

Спасибо, уже разобрался во всём. Оказывается зря писал всю эту проверку фильтра в SavePictureDialog, нужно было всего-то присвоить DefaultExt сам Filter в инспекторе обьектов))