Сжатие картинки

@Борис_С · Регистрация: 29.03.2015

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

Всем добрый день.

Нужно сжать картинку в формате jpg. Нашел процедуру в интернете при помощи GDI+:

Delphi

uses
 ...
 GDIPAPI,
 GDIPOBJ;
 
procedure OnPaint(DC: HDC);
var
 graphics : TGPGraphics;
 Image, pThumbnail: TGPImage;
begin
 graphics := TGPGraphics.Create(DC);
 Image:= TGPImage.Create('..\..\Media\FRUIT.JPG');
 
 pThumbnail := image.GetThumbnailImage(60, 48, nil, nil);
 graphics.DrawImage(pThumbnail, 10, 10, pThumbnail.GetWidth, pThumbnail.GetHeight);
 
 Image.Free;
 pThumbnail.Free;
 graphics.Free;
end;

Не понимаю, как вызывать эту процедуру. Что за параметр DC: HDC
Может кто подскажет.
Спасибо.

@Борис_С · 12.04.2017, 19:11 **[ТС]**

Отличная идея. Проблема только в одном: я никогда не работал с этим редактором и не знаю его возможностей. Похоже придется начать. Спасибо за идею.

Добавлено через 21 час 31 минуту
Мне нужно напечатать таблицу jpg файлов. Отчет во вложении в предыдущем сообщении. Я посмотрел редактор Rave, поставляемый вместе с Delphi.
1. Там есть только один компонент для печати изображений Bitmap. Он не позволяет работать с jpg файлами.
2. Изображения в отчёте (на принтере) должны быть размером не более 41 мм - по ширине , и 29 мм - по высоте.
3. Нужно обеспечить переход на новую страницу, когда изображение не помещается на текущей странице.
4. Нужно отследить, чтобы изображение не выходило за пределы листа справа.
Можно ли это сделать в Rave?

@krapotkin · 13.04.2017, 05:31

ответ Fast Report
есть даже бесплатный

@Борис_С · 13.04.2017, 20:53 **[ТС]**

Отличная идея. Сегодня скачал FastReport и начал его осваивать.

@Борис_С · 26.04.2017, 18:51 **[ТС]**

Нигде не смог найти Help по компонентам FastReport. Нашел только Руководство пользователя и Руководство разработчика по FastReport.
Может кто знает, где найти такой файл. Спасибо.

@krapotkin · 26.04.2017, 23:01

это и есть help

@Борис_С · 27.04.2017, 14:57 **[ТС]**

А нормальный Help, где перечислены все классы FastReport, свойства и методы объектов, существует?

@krapotkin · 27.04.2017, 16:05

Руководство пользователя
Руководство программиста
Руководство разработчика

это довольно неплохой комплект.
чего еще не хватило?

скрипты там не очень описаны, но жить можно

@Борис_С · 02.05.2017, 14:54 **[ТС]**

Хотелось бы иметь варианта Help'а, который можно подключить к Delphi и, нажимая на объекты, получать по ним справки.
Есть такой Help в природе?

@krapotkin · 02.05.2017, 15:21

нет. и не будет никогда
хотя технологии официально придумывались и существуют, но никогда до ума не доводились

@Борис_С · 02.05.2017, 15:30 **[ТС]**

Жаль. А как узнать, какие свойства и методы есть у класса? По исходникам? Но они неоткомментированы.

@krapotkin · 02.05.2017, 16:24

но они зато не называются Label1, edit15 и memo7

будет проще помочь, если вы зададите конкретный вопрос

@Борис_С · 02.05.2017, 17:08 **[ТС]**

Мне нужно выравнять картинки по нижней границе. Какие свойства TfrxPictureView мне нужно задать?

Добавлено через 17 минут
Все получилось. Для этого задал
AutoSize:=false;
Stretched:=false;
Center:=false;
Но проблема с Help'ом осталась. Как я понимаю, нормального Help'а нет.

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	13.04.2017, 05:31	22
	ответ Fast Report есть даже бесплатный 1

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	26.04.2017, 23:01	25
	это и есть help 0

@Борис_С 2 / 2 / 0 Регистрация: 29.03.2015 Сообщений: 199
	02.05.2017, 14:54 [ТС]	28
	Хотелось бы иметь варианта Help'а, который можно подключить к Delphi и, нажимая на объекты, получать по ним справки. Есть такой Help в природе? 0

@Борис_С 2 / 2 / 0 Регистрация: 29.03.2015 Сообщений: 199
	02.05.2017, 17:08 [ТС]	32
	Мне нужно выравнять картинки по нижней границе. Какие свойства TfrxPictureView мне нужно задать? Добавлено через 17 минут Все получилось. Для этого задал AutoSize:=false; Stretched:=false; Center:=false; Но проблема с Help'ом осталась. Как я понимаю, нормального Help'а нет. 0

@Борис_С 2 / 2 / 0 Регистрация: 29.03.2015 Сообщений: 199
	12.04.2017, 19:11 [ТС]	21
	Отличная идея. Проблема только в одном: я никогда не работал с этим редактором и не знаю его возможностей. Похоже придется начать. Спасибо за идею. Добавлено через 21 час 31 минуту Мне нужно напечатать таблицу jpg файлов. Отчет во вложении в предыдущем сообщении. Я посмотрел редактор Rave, поставляемый вместе с Delphi. 1. Там есть только один компонент для печати изображений Bitmap. Он не позволяет работать с jpg файлами. 2. Изображения в отчёте (на принтере) должны быть размером не более 41 мм - по ширине , и 29 мм - по высоте. 3. Нужно обеспечить переход на новую страницу, когда изображение не помещается на текущей странице. 4. Нужно отследить, чтобы изображение не выходило за пределы листа справа. Можно ли это сделать в Rave? 0

@Борис_С 2 / 2 / 0 Регистрация: 29.03.2015 Сообщений: 199
	13.04.2017, 20:53 [ТС]	23
	Отличная идея. Сегодня скачал FastReport и начал его осваивать. 0

@Борис_С 2 / 2 / 0 Регистрация: 29.03.2015 Сообщений: 199
	26.04.2017, 18:51 [ТС]	24
	Нигде не смог найти Help по компонентам FastReport. Нашел только Руководство пользователя и Руководство разработчика по FastReport. Может кто знает, где найти такой файл. Спасибо. 0

@Борис_С 2 / 2 / 0 Регистрация: 29.03.2015 Сообщений: 199
	27.04.2017, 14:57 [ТС]	26
	А нормальный Help, где перечислены все классы FastReport, свойства и методы объектов, существует? 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	27.04.2017, 16:05	27
	Руководство пользователя Руководство программиста Руководство разработчика это довольно неплохой комплект. чего еще не хватило? скрипты там не очень описаны, но жить можно 1

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	02.05.2017, 15:21	29
	нет. и не будет никогда хотя технологии официально придумывались и существуют, но никогда до ума не доводились 0

@Борис_С 2 / 2 / 0 Регистрация: 29.03.2015 Сообщений: 199
	02.05.2017, 15:30 [ТС]	30
	Жаль. А как узнать, какие свойства и методы есть у класса? По исходникам? Но они неоткомментированы. 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	02.05.2017, 16:24	31
	но они зато не называются Label1, edit15 и memo7 будет проще помочь, если вы зададите конкретный вопрос 0