Обрезка фотографий - Мультимедиа в Delphi - Страница 2

mutabor · 26.09.2009, 00:25

Цитата:

А если наше окно перекроет другое, то картинка на паинтбоксе или форме просто исчезнет.

Исчезнет, если не обрабатывать событие перерисовки. Одну строку достаточно в него добавить - вызов функции (своей) обновления изображения.

Просто говорю по своему опыту, я всю графику (на канве) если делаю в Дельфи, делаю через пейнтбокс. Имидж использую только для показа фотографий, иконок-кнопок, и в таком роде статической (не интерактивной) графики.

doniyor · 27.09.2009, 14:17

Цитата:

чет с боксом не вышло, он ся как то странно ведет...рисует только при полной перерисовке окна родительского...
вот на основе имейдж
Вложения квадрат.rar (172.8 Кб, 10 просмотров)

Здорово! Всё внедрил в свой проект и всё получилось. В принципе можно было и поставить точку но...
1. Хотелось бы работать только с JPG форматом. (Выдаёт ошибку если исходное изображение в формате JPG) - как обойти?
2. Прямоугольник (которым выделяется часть исходного изображения) не получается сделать квадратом. А хотелось бы так - квадрат 137 X 137 выделяет аналогичную область, которая потом сохраняется.
Чуть позже выложу исходники.

Пепел Феникса · 27.09.2009, 15:26

1)загрузка JPEG обсуждалась милиарды раз.
делаем через TJPEGImage

2)в моем примере ширина прямоугольника это размеры второго имейджа.
в коже видно где применяются цифры которые по сути и есть эти размеры(сейчас переделать просто свой пример не могу)

mutabor · 27.09.2009, 16:49

переделал пример от П. Феникса

doniyor · 06.10.2009, 16:36

Всем спасибо!
Вот и написал свои программу обрезки фотографий с вашей помощью.
Пожалуйста, оцените её и скажите, plz, почему она (прога) не сохраняет "нормальное" изображение JPG? Фотошоп выкидывает такую ошибку при попытке открыть "обрезаное" изображение.

TwiX · 07.10.2009, 13:00

Имхо, тупо собрана из выложенных исходников и подрисован интерфейс =)
2) Не масштабируется ничего
3) Если закрыть окошко привьева, то его потом не открыть =)

А не открывает, потому что Вы сохраняете BMP, чтобы сохранить в jpeg допишите:

Код:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
  asdq:TJPEGImage;
begin
  asdq:=TJPEGImage.Create;
  asdq.Assign(Form2.Image1.Picture.Bitmap);
Form2.SavePictureDialog1.Execute;
asdq.SaveToFile(Form2.SavePictureDialog1.FileName);
end;

doniyor · 08.10.2009, 13:14

Всем конечно спасибо, но

TwiX ->

Цитата:

тупо собрана из выложенных исходников и подрисован интерфейс

- в программирование я самоучка! Имхо, "тупо" самоучке собрать прогу не получиться - и на это нужны мозги!

TwiX · 08.10.2009, 17:43

Цитата:

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

Имхо, "тупо" самоучке собрать прогу не получиться - и на это нужны мозги!

Ну если стаж не больше месяца, то это похвально, что Вы смогли склеить несколько исходников

Dj_SheLL · 29.10.2009, 19:18

Здравствуйте,уважаемые форумчане.
А как реализовать настройку в ручную размеров канваса на процедуру кнопки?
Я в канвасе понимаю-"ноль".Только месяц программирую.
Я думаю вводить размеры в эдиты("Ширина","Высота") и по нажатию кнопки изменять их.
Т.е. я предполагаю задавать новую переменную intenger и допустим так
mX:=strtoint(sEdit1.Text);
менять размеры.
Но вот что-то у меня не работает,потому что не знаю как правильно.

Пепел Феникса · 29.10.2009, 19:26

изменять размеры чего?

27.09.2009, 15:26	#13
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	1)загрузка JPEG обсуждалась милиарды раз. делаем через TJPEGImage 2)в моем примере ширина прямоугольника это размеры второго имейджа. в коже видно где применяются цифры которые по сути и есть эти размеры(сейчас переделать просто свой пример не могу) Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

07.10.2009, 13:00	#16
TwiX Участник клуба Регистрация: 28.07.2009 Сообщений: 1,510	Имхо, тупо собрана из выложенных исходников и подрисован интерфейс =) 2) Не масштабируется ничего 3) Если закрыть окошко привьева, то его потом не открыть =) А не открывает, потому что Вы сохраняете BMP, чтобы сохранить в jpeg допишите: Код: `procedure TForm1.SpeedButton3Click(Sender: TObject); var asdq:TJPEGImage; begin asdq:=TJPEGImage.Create; asdq.Assign(Form2.Image1.Picture.Bitmap); Form2.SavePictureDialog1.Execute; asdq.SaveToFile(Form2.SavePictureDialog1.FileName); end;` Последний раз редактировалось Stilet; 30.10.2009 в 12:18.

29.10.2009, 19:26	#20
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	изменять размеры чего? Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Проблема с открытием фотографий	artemavd	Операционные системы общие вопросы	6	19.08.2009 19:12
обрезка фона родительского элемента	Love_silense	HTML и CSS	5	14.08.2009 13:01
Обрезка на принтере чеков epson	Родион	Общие вопросы Delphi	0	07.10.2008 18:53
Обрезка видео формата Mpeg	Rembo	Софт	9	27.04.2008 22:20
каталог фотографий	mager	PHP	8	27.03.2008 22:43

29.10.2009, 19:18	#19
Dj_SheLL Форумчанин Регистрация: 14.10.2009 Сообщений: 128	Здравствуйте,уважаемые форумчане. А как реализовать настройку в ручную размеров канваса на процедуру кнопки? Я в канвасе понимаю-"ноль".Только месяц программирую. Я думаю вводить размеры в эдиты("Ширина","Высота") и по нажатию кнопки изменять их. Т.е. я предполагаю задавать новую переменную intenger и допустим так mX:=strtoint(sEdit1.Text); менять размеры. Но вот что-то у меня не работает,потому что не знаю как правильно.