Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Загрузка изображений с диска в отчёт Fastreport 
:(
    Опции темы
Akella
  Дата 15.3.2009, 20:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329



Задача такая: требуется показать в отчёте изображения хранящиеся на диске.

Есть мастер бэнд. Туда выводится информация из одной записи. Есть детальный бэнд. Туда требуется загрузить несколько изображений.
Изображения хранятся на диске. Я загружаю в другой (детальный) набор данных (датасет) пути к изображениям (к файлам.)
Знаю, что у TfrxPictureView есть свойство FileLink.
Как можно "прикрутить" поле датасета, где хранятся пути на файлы к этому свойству, чтобы в отчёт вывелись все изображения, их несколько.

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

Это сообщение отредактировал(а) Akella - 15.3.2009, 20:41
PM MAIL   Вверх
vovk
Дата 15.3.2009, 21:28 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 157
Регистрация: 28.2.2008

Репутация: 6
Всего: 6



В FeleLink чтото вроде этого можно разместить работать будет
[Trim(<frxDBDataset1."Name">)]
 (по крайней мере если в поле Nаme полный путь к файлу точно будет работать), а несколько изобрвжений в 1 TfrxPictureView помоему никак.



Это сообщение отредактировал(а) vovk - 15.3.2009, 21:29
PM MAIL   Вверх
Akella
Дата 16.3.2009, 10:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329



vovk, извини конечно, но что полезного можно почепнуть из твоего ответата? Если моешь, напиши поточнее, в каком событии нужно присваивать.
PM MAIL   Вверх
vovk
Дата 16.3.2009, 14:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 157
Регистрация: 28.2.2008

Репутация: 6
Всего: 6



В отчёте ложиш в бенд Picture и в его свойстве filelink пишеш поле нужное
PM MAIL   Вверх
Akella
Дата 16.3.2009, 15:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329



Положить я и сам могу, и в дизайне написать ссылку  к файлу тоже. Но как это сделать во время исполнения программы, да к тому же файлов может быть больше одного.

Я загружаю в отдельный набор данных (датасет) пути к файлам. Этот набор данных виден в отчёте и дизайнере.
PM MAIL   Вверх
vovk
Дата 16.3.2009, 17:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 157
Регистрация: 28.2.2008

Репутация: 6
Всего: 6



Так ? 
Код

var
Picture: TfrxPictureView;
band:TfrxDataBand;
begin
band:=frxReport1.FindObject('Masterdata1') as TfrxDataBand;
Picture := TfrxPictureView.Create(Band);
Picture.AutoSize:=true;
Picture.Top:=30;
Picture.FileLink:='[Trim(<frxDBDataset1."Name">)]';
frxReport1.ShowReport();


Если нужно, могу подробнее smile 

Правда если пути к файлам не в разных филдах а в одном тут надоть ещё поработать.

Это сообщение отредактировал(а) vovk - 16.3.2009, 17:15
PM MAIL   Вверх
Akella
Дата 16.3.2009, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329



удалил, пока разбираюсь

Добавлено через 2 минуты и 28 секунд
Кто знает, есть ли поддержка PNG? А то вроде как работает (файлы грузятся), а картинок в отчёте нет, только пустые места.

Добавлено через 3 минуты и 55 секунд
Странно и BMP не выводятся.

Добавлено через 7 минут и 4 секунды
блин  smile  я забыл про
Код

    Picture.Height := 200;
    Picture.Width := 200;


я же указал
Цитата

   Picture.AutoSize := false;


Добавлено через 9 минут и 52 секунды
vovk,  smile  smile  smile ураааа!! Ты спас гиганта мысли, отца русской демократии  smile  smile  smile

Добавлено через 13 минут и 14 секунд
Получается, что перед показом отчёта нужно запросить у пользователя размеры картинки.
PM MAIL   Вверх
Akella
Дата 16.3.2009, 17:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329



Указываю 
Код

Picture.Stretched := true;

но картинка всё равно получается обрезанной, а как бы её поместить полностью в TfrxPictureView?
PM MAIL   Вверх
vovk
Дата 16.3.2009, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 157
Регистрация: 28.2.2008

Репутация: 6
Всего: 6



Код

Picture.Stretched := true; 
указывать вроде не обязательно свойство по умолчанию стоит..
странно у меня показывает часть только если явно указать 
Код

Picture.Stretched := false;


PM MAIL   Вверх
Akella
Дата 17.3.2009, 10:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329



У меня, видать бэнд наезжал на подвал, поэтому и обрезалось изображение.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »


 




[ Время генерации скрипта: 0.0543 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.