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

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

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

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

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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'а нет.

Новые блоги и статьи Все статьи Все блоги /
[golang] Breadth-First Search alhaos 19.05.2026 BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .

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

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,675 Записей в блоге: 21
	13.04.2017, 05:31
	ответ Fast Report есть даже бесплатный 1

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

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

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,675 Записей в блоге: 21
	26.04.2017, 23:01
	это и есть help 0

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

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

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

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

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

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

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