Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.12.2014, 19:36   #1
Daivel
Пользователь
 
Регистрация: 14.12.2014
Сообщений: 22
По умолчанию Сохранение из Image

Доброго времени суток!
Столкнулся с такой проблемой. Есть MDI программа для работы с картинками(*.bmp). При помощи OpenPictureDialog открывается картинка и помещается в компонент Image который находится на дочерней форме. Дальше по нажатию на клавишу "Save", которая находиться на родительской форме, картинка которая открыта на компоненте Image должна сохраниться в папку с программой.
Для этого использую вот такой код на событие нажатия на клавишу:
Код:
Form3.Image1.Picture.Bitmap.SaveToFile(ExtractFilePath(Application.ExeName)+ExtractFileName(Name));
На при попутке сохранения выскакивает сообщение об ошибке:

Кто может подсказать в чём проблема. Ну или предложить другой способ данного действия. Самое главное что бы картинка сохранялась без диалоговых окон, в папку с программой, с тем же именем которое у неё в другой папке?

Последний раз редактировалось Daivel; 15.12.2014 в 19:50.
Daivel вне форума Ответить с цитированием
Старый 15.12.2014, 20:35   #2
WinCoder
Заблокирован
 
Регистрация: 24.11.2014
Сообщений: 721
По умолчанию

А если так?
Код:
Form3.Image1.Picture.SaveToFile...
WinCoder вне форума Ответить с цитированием
Старый 15.12.2014, 20:46   #3
Daivel
Пользователь
 
Регистрация: 14.12.2014
Сообщений: 22
По умолчанию

если просто убрать Bitmap, то происходит тоже самое(
Daivel вне форума Ответить с цитированием
Старый 15.12.2014, 20:48   #4
WinCoder
Заблокирован
 
Регистрация: 24.11.2014
Сообщений: 721
По умолчанию

А как картинка "помещается" в image?
WinCoder вне форума Ответить с цитированием
Старый 15.12.2014, 20:49   #5
Daivel
Пользователь
 
Регистрация: 14.12.2014
Сообщений: 22
По умолчанию

Код:
procedure TForm1.Open1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  with TForm3.Create(Application) do
  begin
    Caption:= OpenPictureDialog1.FileName;
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  end;
end;
Daivel вне форума Ответить с цитированием
Старый 15.12.2014, 20:51   #6
WinCoder
Заблокирован
 
Регистрация: 24.11.2014
Сообщений: 721
По умолчанию

Тогда смотрите правильность пути сохранения
Код:
ShowMessage(ExtractFilePath(Application.ExeName)+ExtractFileName(Name));
WinCoder вне форума Ответить с цитированием
Старый 15.12.2014, 20:54   #7
Daivel
Пользователь
 
Регистрация: 14.12.2014
Сообщений: 22
По умолчанию

Можно подробней, а то я что то не понял(
Daivel вне форума Ответить с цитированием
Старый 15.12.2014, 20:59   #8
WinCoder
Заблокирован
 
Регистрация: 24.11.2014
Сообщений: 721
По умолчанию

Строку вставляете в свой код выше той строки, что написали в первом сообщении, и проверяете правильность работы (правильность пути).
WinCoder вне форума Ответить с цитированием
Старый 15.12.2014, 21:06   #9
Daivel
Пользователь
 
Регистрация: 14.12.2014
Сообщений: 22
По умолчанию

Код:
ShowMessage(ExtractFilePath(Application.ExeName)+ExtractFileName(Name));
  Form3.Image1.Picture.Bitmap.SaveToFile(ExtractFilePath(Application.ExeName)+ExtractFileName(Name));
При таком варианте он мне после нажатия на клавишу показывает путь до формы 1 и после этого опять та же ошибка(
Daivel вне форума Ответить с цитированием
Старый 15.12.2014, 21:09   #10
WinCoder
Заблокирован
 
Регистрация: 24.11.2014
Сообщений: 721
По умолчанию

А должен показывать по логике путь + имя файла. Верно?
WinCoder вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
сохранение Image в ADOTable Alexsandr БД в Delphi 14 15.03.2012 18:44
сохранение картинки с компонента Image Karina89 Помощь студентам 7 25.05.2011 20:37
Сохранение Image через канвас (Bitmap) Dj_SheLL Помощь студентам 2 18.08.2010 18:52
Сохранение изображения из канвы image. koshel Мультимедиа в Delphi 4 08.05.2010 13:31
Сохранение изображения с Image brutos Мультимедиа в Delphi 7 19.05.2009 12:26