powered by simpleCommunicator - 2.0.35     © 2025 Programmizd 02
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / FastReport Как узнать реальный размер длина-ширина изображения?
8 сообщений из 8, страница 1 из 1
FastReport Как узнать реальный размер длина-ширина изображения?
    #39190695
Ivan_Pisarevsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Приветствую! Вроде бы тривиальный вопрос, но что-то в доке не нашел.

Есть блоб в базе, там картинка, хочу печатать оный блоб на страничку, в основном будут ландшафтной ориентации, но иногда могут попасться и портретные. Собственно эти портретные и хочется развернуть на 90 градусов.
Сейчас в базе не храню длину и ширину, это сделать можно, но лениво.

Как узнать реальный размер изображения?
picture1.height и picture1.width дают размер объекта картинка, а надо размер jpg-a.
Чтоб в OnBeforPrint его и крутануть.

Как?
...
Рейтинг: 0 / 0
FastReport Как узнать реальный размер длина-ширина изображения?
    #39190710
Фотография buser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ivan_Pisarevsky, либо см спеку, либо System.Drawing.Image
...
Рейтинг: 0 / 0
FastReport Как узнать реальный размер длина-ширина изображения?
    #39190712
Фотография buser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ivan_Pisarevsky, про фаст репорт как-то просмотрел, но сути это не меняет...
...
Рейтинг: 0 / 0
FastReport Как узнать реальный размер длина-ширина изображения?
    #39190718
Ivan_Pisarevsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как это сделать на дельфи я знаю, нет желания тянуть картинку в дельфи, там ее окучивать и потом пихать в отчет. Хочется поменьше промежуточных звеньев.
...
Рейтинг: 0 / 0
FastReport Как узнать реальный размер длина-ширина изображения?
    #39190788
Ivan_Pisarevsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что-то с наскоку проблема казалась совсем плевой, но
https://www.fast-report.com/en/forum/index.php?showtopic=7214

похоже надо на записи блобов еще попутно писать длину-ширину или признак разворота и фастрепу скармливать уже готовое. 2 страницы одна в портрете, вторая в ландшафте и отбирать отдельными запросами блобы по признакам.
...
Рейтинг: 0 / 0
FastReport Как узнать реальный размер длина-ширина изображения?
    #39225387
Евгений, Екатеринбург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ivan_PisarevskyКак узнать реальный размер изображения?
picture1.height и picture1.width дают размер объекта картинка, а надо размер jpg-a.
Чтоб в OnBeforPrint его и крутануть.
Как?
По сути Вам надо узнать не точные размеры изображения, а их соотношения.
...
Рейтинг: 0 / 0
FastReport Как узнать реальный размер длина-ширина изображения?
    #39225390
Евгений, Екатеринбург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Евгений, Екатеринбург,

Я делал так - на первом проходе вписывал изображение в компонент, так чтобы он растягивался по высоте и анализируя размеры компонента на втором уже делал то что мне надо.
...
Рейтинг: 0 / 0
FastReport Как узнать реальный размер длина-ширина изображения?
    #39225404
Евгений, Екатеринбург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ivan_Pisarevsky,
Мне нужен был код, который растягивает картинку по заданной ширине компонента, а высоту подбирает из правильного соотношения сторон исходного изображение (которое может быть различным).
Насколько я понял - в FastReport можно либо вписать изображение в компонент, т.е. растянуть изображение до размеров компонента, либо подогнать высоту. Мне надо было чтобы один размер компонента был фиксированный, а другой подгонялся.
Насчет проходов ошибся - делал это сразу.
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
procedure Picture1OnAfterData(Sender: TfrxComponent);
var
PicHeight, PicWidth: Extended;                                                                           
begin
  Picture1.AutoSize:=true;    
  PicHeight:=Picture1.Height;
  PicWidth:=Picture1.Width;
  Picture1.AutoSize:=false;
  Picture1.Height:=Round(3.784*(75)*PicHeight/PicWidth);              
  Picture1.Width:=283.5;      
end;
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / FastReport Как узнать реальный размер длина-ширина изображения?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]