сохранение изображения

[ВалекFCRK]

Допустим у меня есть изображение. 1.jpg . как его програмно сохранить допустим в 1213132.jpg и изменить его размер до 110x110. какие компоненты для этого использовать

[NetSpace]

без компонентов: скопировать и переименовать.
CopyFile и RenameFile
сойдёт?

нет, конечно можно загрузить его на форму, чтоб просмотреть на сам рисунок, через кнопку сохранить его в другом файле...но тогда программа минимум 200Кб будет иметь, а так консольное приложение будет 60 Кб весить... Вам как быстрее или красивее надо?

[Delphi_ProGer]

Можно так:
// это если тебе нужно работать потом с изображением
-подключаем в uses jpeg;
-обявляем переменную типа TJpegImage;
-создаем ёё; ну и потом не забыть free
-image.loadfromfile('1.jpg');
-image.savetofile('12...jpg');
можно и потоком...

[ВалекFCRK]

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

[Delphi_ProGer]

Сообщение от ВалекFCRK

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

То воспользуйся советом NetSpace

[ВалекFCRK]

извините! небольшая поправочка. И ещё при сохранении чтобы изменялся размер например под 110x110

[NetSpace]

сжатие изображения...Тогда надо в Компоненте Image сжимать до нужного и сохранять в файл...

Image1.Stretch:=True;
Iamge1.Picture.Width:=110;
Image1.Picture.Height:=110;
Image1.Picture.SaveAsFile('1213132.jpg ');

[ВалекFCRK]

вот спасибо всем огромное!

[ВалекFCRK]

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

сжатие изображения...Тогда надо в Компоненте Image сжимать до нужного и сохранять в файл...

Image1.Stretch:=True;
Iamge1.Picture.Width:=110;
Image1.Picture.Height:=110;
Image1.Picture.SaveAsFile('1213132.jpg ');

не получается как ты написал. Выводит ошибку в том месте, где написана ширина и высота.

[NetSpace]

исправьте:
Iamge1.Picture.Width:=110;
на
Imаge1.Picture.Width:=110;
просто мысли опережают руки на 20 слов вперёд