Сохранение изображения в подпапку с программой

[XerSon]

Есть TImage, в который пользователем грузится изображение с помощью стандартного OpenPictureDialog. После нажатия на определенную кнопку нужно сохранять это изображение, но обязательно в подпапку, где находится программа. Проблема в том, что если использовать SaveToFile('Temp\' + test.jpg) то по умолчанию сохраняется оно туда, откуда загружено...

Решил так

SaveToFile(ExtractFilePath(ParamStr(0)) ...);

но увы

var
 PicFile: String;
 JPEG: TJPEGImage;
Begin
    JPEG := TJPEGImage.Create;
  try
    JPEG.Assign(Image.Picture.Graphic);
    JPEG.CompressionQuality := 100;
    JPEG.DIBNeeded;
    JPEG.Compress;
    PicFile := Edit.Text + '.jpg';
    JPEG.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Temp\' + PicFile);
    finally
    JPEG.Free;
  end;
end;

Выдаёт, что системе не удаётся найти указанный путь
Путь пишется с моих документов, тот, от куда был открыт фаил в OpenPictureDialog
C:\Documents and Settings\All Users\Документы\Мои рисунки\Образцы рисунков\ - дописывая мой путь
C:\Documents and Settings\All Users\Документы\Мои рисунки\Образцы рисунков\Temp\test.jpg

И что самое интересное, фаил в папке с программой по указанному пути в папке Temp создается, но лезет мессага об ошибке!

[mihali4]

Проверил.
У меня такая ошибка возникает только, если каталог "Temp" не существует.
Если он создан, то все проходит гладко...

[artemavd]

А если как то так (навскидку, не проверяя):

 CreateDir(ExtractFilePath(Application.Exename) + '\Temp');
 Image1.Picture.SaveToFile(ExtractFilePath(Application.Exename) + '\Temp\test.bmp');

[XerSon]

Сообщение от mihali4

Проверил.
У меня такая ошибка возникает только, если каталог "Temp" не существует.
Если он создан, то все проходит гладко...

Каталог есть, он создаётся при создании приложения:
в onCreate формы...

  // Создаем папку Temp в корневой папке программы
  CreateDir(ExtractFilePath(paramstr(0)) + 'Temp');

12:07

Сообщение от artemavd

А если как то так (навскидку, не проверяя):

 CreateDir(ExtractFilePath(Application.Exename) + '\Temp');
 Image1.Picture.SaveToFile(ExtractFilePath(Application.Exename) + '\Temp\test.bmp');

проверил, тот же результат!

CreateDir(ExtractFilePath(Application.Exename) + '\Temp');

JPEG.SaveToFile(ExtractFilePath(Application.Exename)+ 'Temp\' + PicFile);

есть какие мысли?

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом. Это - флуд.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[Sibedir]

А на какой конкретно строчке ошибка?

есть какие мысли?

Пока пропали.

Можешь скинуть проект?

[Johnson]

Сообщение от XerSon

Каталог есть, он создаётся при создании приложения:
в onCreate формы...

  // Создаем папку Temp в корневой папке программы
  CreateDir(ExtractFilePath(paramstr(0)) + 'Temp');

  // Создаем папку Temp в корневой папке программы
  CreateDir(ExtractFilePath(paramstr(0)) + '\Temp');

Найдите отличие...

[_SERGEYX_]

Неа, для функции ExtractFilePath обратный слеш добавлять не нужно. Только для ExtractFileDir.

showmessage(ExtractFilePath(paramstr(0)) + 'Temp');
showmessage(ExtractFileDir(paramstr(0)) + '\Temp');

[XerSon]

проект в аттаче

Заметил такую багу
Если открывать картинку из папки с прогой то все ок, но как только с раб стола, так ошибка прежняя!

Вопрос, а OpenPictureDialog не может как то хэшировать путь?

[mihali4]

как только с раб стола, так ошибка прежняя!

Это объясняется очень просто - наличием пробелов в полном пути...

[XerSon]

Так как решить даную проблему? Дайте пож направление, куда копать.

Не нужно зря цитировать предыдущее сообщение! Это - флуд.
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
А кроме кнопки "Цитата" внизу есть простое окно для ввода своего сообщения.
Или маленькая кнопочка "Быстрый ответ" справа от кнопки "Цитата".
Попадаете туда же.
Модератор