Как сохранить картинку в папку с программой?

@crazugun · Регистрация: 06.06.2015

Author24 — интернет-сервис помощи студентам

В папке с программой имеется папка Фото.Как по нажатию кнопки сохранить туда картинку открытую в image,под именем введённым в эдит. Причём путь к этой папке фото не должен сбиватся. Чтоб сохранение работало и на другом компе.

@Hikari · 15.06.2016, 20:32

С коленки

Delphi

1	.SaveToFile(ExtractFilePath(ParamStr(0))+'\Фото\'+Edit1.Text);

@Puporev · 15.06.2016, 20:42

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.SaveToFile('Фото\Edit1.Text'+'.jpg');
end;

Добавлено через 4 минуты
Ой, не так.

Delphi

1	Image1.Picture.SaveToFile('Фото\'+Edit1.Text+'.jpg');

@crazugun · 16.06.2016, 07:02 **[ТС]**

Image1.Picture.SaveToFile('Фото\'+Edit1.Text+'.jpg'); Почему то ругается.

Добавлено через 4 минуты
Image1.Picture.SaveToFile('Фото\'+Edit13.Text+'.bmp');
Сделал так но при попытке сохранения пишет системе не удаётся найти указанный путь.

Добавлено через 4 минуты
сделал так ругается на эдит
Image1.Picture.SaveToFile(ParamStr(0))+'Фото\'+edit13.text+'.bmp');

@Puporev · 16.06.2016, 07:19

У меня все сохраняет.

@crazugun · 16.06.2016, 07:41 **[ТС]**

О спасибо разобрался.Может вопрос не в тему но не подскажете как сделать в лэйбле выравнивание по центру?

Добавлено через 3 минуты
не могу подключить jpeg выдаёт на него ошибку.

Добавлено через 5 минут
Программу запускает но при попытке сохранения выдаёт ошибку на путь.Допустим имя картинки 123.bmp он выдаёт ошибку.d:\....фото\123.bmp не найден по данному пути.Может быть это важно картинка открывается через опендиалог.

@Hikari · 16.06.2016, 07:44

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

как сделать в лэйбле выравнивание по центру?

Свойство Alignment вроде за выравнивание отвечает.

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

не могу подключить jpeg выдаёт на него ошибку.

Какую ошибку?

@Puporev · 16.06.2016, 07:49

crazugun, Вы напишите точно и подробно что Вы пытаетесь делать и что хотите получить, хватит уже гадать нам.

@crazugun · 16.06.2016, 08:19 **[ТС]**

На форме есть поле эдит,2 кнопки,Опендиалог и image.По нажатию первой кнопки в image открываю картинку выбранную в опендиалог.По нажатию второй кнопки картинку сохраняю в папку фото расположенную в папке с программой. Картинка должна сохранится с именем введённым в эдит. Вот что я хочу чтоб получилось.

Добавлено через 17 минут
Не точно выразился как вывести текст в лайбле строго по центру лэйбла. Тоесть чтоб текст разной длинны выведенный в лайбэл всегда располагался в центре.

@Puporev · 16.06.2016, 08:23

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

,Опендиалог

А зачем? Картинки выбирают в OpenPictureDialog

@crazugun · 16.06.2016, 08:40 **[ТС]**

Поменял но ничего не изменилось

@Puporev · 16.06.2016, 08:53

У меня что-то через диалоги не получается, выдает ошибки, почему по малограмотности своей не знаю.
Без диалогов с ручной загрузкой все нормально.

@crazugun · 16.06.2016, 08:58 **[ТС]**

А мне бы желательно через диалог.

Добавлено через 2 минуты
Остались 2 проблемы в мой программе это картинки и текст в лэйблах по центру.

@Puporev · 16.06.2016, 09:30

Я сделал сохранение так.
указал местоположение и название папки проекта.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Picture.SaveToFile('D:\сохранить изображение в папку\Фото\'+Edit1.Text+'.jpg');
end;

Добавлено через 8 минут
Текст в Лабел вроде так.

Delphi

1
2
3

Label1.Caption:='Это загруженная картинка';
Label1.Autosize:=False;
Label1.Alignment:=taCenter;

@crazugun · 16.06.2016, 09:30 **[ТС]**

А при смене местопложения работать будет?

@Puporev · 16.06.2016, 09:34

Ну если положишь папку с программой в корень дика D, то наверное, проверить не на чем.

@crazugun · 16.06.2016, 09:42 **[ТС]**

Image1.Picture.SaveToFile(ExtractFilePath(ParamStr(0))+'\Фото\'+Edit13.Text); вот так сохраняет,но без формата.При попытке сделать так Image1.Picture.SaveToFile(ParamStr(0))+'Фото\'+edit13.text+'.bmp'); ругается на эдит.
incompatible types string and procedure untyped pointer or untyped parameter

@qwertehok · 16.06.2016, 09:45

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

Image1.Picture.SaveToFile(ParamStr(0))+'Фото\'+edit13.text+'.bmp');

тут
ParamStr(0))
лишняя скобка в конце

@Puporev · 16.06.2016, 09:46

Ну вводи формат в Эдит, типа "Изображение.bmp"

@crazugun · 16.06.2016, 09:50 **[ТС]**

Мне нужно чтоб в эдит было только название и ничего больше.На формат не ругается убрал лишнюю скобку.Запустилось,при попытке сохранения снова ругается на путь.
Image1.Picture.SaveToFile(ParamStr(0)+'Фото\'+edit13.text+'.bmp');

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.06.2016, 08:23	10
	Сообщение от crazugun ,Опендиалог А зачем? Картинки выбирают в OpenPictureDialog 1

@crazugun 0 / 0 / 0 Регистрация: 06.06.2015 Сообщений: 88
	16.06.2016, 08:40 [ТС]	11
	Поменял но ничего не изменилось 0

@qwertehok 5486 / 4401 / 1076 Регистрация: 29.08.2013 Сообщений: 27,576 Записей в блоге: 3
	16.06.2016, 09:45	18
	Сообщение от crazugun Image1.Picture.SaveToFile(ParamStr(0))+'Фото\'+edit13.text+'.bmp'); тут ParamStr(0)) лишняя скобка в конце 1

@crazugun 0 / 0 / 0 Регистрация: 06.06.2015 Сообщений: 88
	16.06.2016, 07:02 [ТС]	4
	Image1.Picture.SaveToFile('Фото\'+Edit1.Text+'.jpg'); Почему то ругается. Добавлено через 4 минуты Image1.Picture.SaveToFile('Фото\'+Edit13.Text+'.bmp'); Сделал так но при попытке сохранения пишет системе не удаётся найти указанный путь. Добавлено через 4 минуты сделал так ругается на эдит Image1.Picture.SaveToFile(ParamStr(0))+'Фото\'+edit13.text+'.bmp'); 0

@crazugun 0 / 0 / 0 Регистрация: 06.06.2015 Сообщений: 88
	16.06.2016, 07:41 [ТС]	6
	О спасибо разобрался.Может вопрос не в тему но не подскажете как сделать в лэйбле выравнивание по центру? Добавлено через 3 минуты не могу подключить jpeg выдаёт на него ошибку. Добавлено через 5 минут Программу запускает но при попытке сохранения выдаёт ошибку на путь.Допустим имя картинки 123.bmp он выдаёт ошибку.d:\....фото\123.bmp не найден по данному пути.Может быть это важно картинка открывается через опендиалог. 0

@Hikari Хитрая блондиночка $) 1472 / 988 / 399 Регистрация: 21.12.2015 Сообщений: 3,785
	16.06.2016, 07:44	7
	Сообщение от crazugun как сделать в лэйбле выравнивание по центру? Свойство Alignment вроде за выравнивание отвечает. Сообщение от crazugun не могу подключить jpeg выдаёт на него ошибку. Какую ошибку? 1

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.06.2016, 07:49	8
	crazugun, Вы напишите точно и подробно что Вы пытаетесь делать и что хотите получить, хватит уже гадать нам. 1

@crazugun 0 / 0 / 0 Регистрация: 06.06.2015 Сообщений: 88
	16.06.2016, 08:19 [ТС]	9
	На форме есть поле эдит,2 кнопки,Опендиалог и image.По нажатию первой кнопки в image открываю картинку выбранную в опендиалог.По нажатию второй кнопки картинку сохраняю в папку фото расположенную в папке с программой. Картинка должна сохранится с именем введённым в эдит. Вот что я хочу чтоб получилось. Добавлено через 17 минут Не точно выразился как вывести текст в лайбле строго по центру лэйбла. Тоесть чтоб текст разной длинны выведенный в лайбэл всегда располагался в центре. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.06.2016, 08:53	12
	У меня что-то через диалоги не получается, выдает ошибки, почему по малограмотности своей не знаю. Без диалогов с ручной загрузкой все нормально. 1

@crazugun 0 / 0 / 0 Регистрация: 06.06.2015 Сообщений: 88
	16.06.2016, 08:58 [ТС]	13
	А мне бы желательно через диалог. Добавлено через 2 минуты Остались 2 проблемы в мой программе это картинки и текст в лэйблах по центру. 0

@crazugun 0 / 0 / 0 Регистрация: 06.06.2015 Сообщений: 88
	16.06.2016, 09:30 [ТС]	15
	А при смене местопложения работать будет? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.06.2016, 09:34	16
	Ну если положишь папку с программой в корень дика D, то наверное, проверить не на чем. 1

@crazugun 0 / 0 / 0 Регистрация: 06.06.2015 Сообщений: 88
	16.06.2016, 09:42 [ТС]	17
	Image1.Picture.SaveToFile(ExtractFilePath(ParamStr(0))+'\Фото\'+Edit13.Text); вот так сохраняет,но без формата.При попытке сделать так Image1.Picture.SaveToFile(ParamStr(0))+'Фото\'+edit13.text+'.bmp'); ругается на эдит. incompatible types string and procedure untyped pointer or untyped parameter 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.06.2016, 09:46	19
	Ну вводи формат в Эдит, типа "Изображение.bmp" 1

@crazugun 0 / 0 / 0 Регистрация: 06.06.2015 Сообщений: 88
	16.06.2016, 09:50 [ТС]	20
	Мне нужно чтоб в эдит было только название и ничего больше.На формат не ругается убрал лишнюю скобку.Запустилось,при попытке сохранения снова ругается на путь. Image1.Picture.SaveToFile(ParamStr(0)+'Фото\'+edit13.text+'.bmp'); 0

Как сохранить картинку в папку с программой?

Решение