powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как в Fast Report вывести картинку из базы данных
17 сообщений из 17, страница 1 из 1
Как в Fast Report вывести картинку из базы данных
    #33052107
Alexandr_T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как в Fast Report вывести картинку image таблицы базы данных?
...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #33052139
Винипух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Смотри демки и читай FAQ для 2.54
...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #33053115
Alexandr_T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Смотрел демки по Fast Report но ничего по поводу вывода картинки из базы не нашол.
...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #33053123
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Picture - есть там такой компонент

-- Tygra's --
...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #33053721
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У Picture есть свойство Field (или FieldName - точно не помню).
И в демках есть хорошие примеры.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Как в Fast Report вывести картинку из базы данных
    #33769087
DOINK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
нету там ничо..
мне вот к примеру надо так: я в таблице сохраняю путь к картинке, и я не могу этот пусть использовать для показа картинки

Код: pascal
1.
2.
3.
4.
5.
6.
var img: TfrxPictureView;
begin
 img:=frxReport1.FindObject('img') as TfrxPictureView;
 img.Picture.LoadFromFile(DataModule7.ado_all.fieldbyname('foto').AsString);
 frxReport1.ShowReport;
end;


в поле фото просто путь к файлу. помогите
...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #33769758
msLex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
попробуй в событии OnBeforePrint бэнда загружать нужную картинку
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Как в Fast Report вывести картинку из базы данных
    #39720933
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Извините,что поднимаю старую тому, но просто вопрос по теме.
Как вывести несколько картинок в отчет - тут понятно.
Отчёт выводит их из датасет одну за другой. Много пустого места.

Усложняем.
Может ли отчёт сам выводить картинки не просто одну за другой, а, например, плиткой?
...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #39720940
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
САМ - нет
...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #39720963
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну почему же сразу "нет"? У него, кажется, есть multicolumn отчёты и даже что-то вроде
блока визиток.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #39721175
_Den_Z
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
X11,

Можно, с помощью колонок .
...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #39721268
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Колонки имеют фиксированную ширину, а нужно ПЛИТКОЙ
...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #39721325
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
var i: integer;
    P: TfrxPictureView;                                                             
    L,T, MaxT: extended;                         
  
begin
  DS.First;
  L := 0; T := 0; MaxT := 0;                                                                
  while not DS.Eof do begin
    P := TfrxPictureView.Create(MasterData1);
    P.LoadFromFile('W:\Icons\X\'+IntToStr(<DS."IdDefect">)+'.ico');
    P.AutoSize := true;
    P.Frame.Typ := 15;
    if P.Height > MaxT then MaxT := P.Height;                                                              
    if L+P.Width > Engine.PageWidth then begin
      L := 0;
      T := T + MaxT;
      MaxT := P.Height;          
    end;              
    P.Left := L;
    P.Top := T;                              
    L := L + P.Width;                                          
    DS.Next;                
  end;    
end.


...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #39721433
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_Den_ZМожно, с помощью колонок .

Колонки касаются всего отчёта? Тогда не пойдёт.
У меня master-detail
master - это таблица с данными об одном объекте/объвлении
detail идёт сразу за мастером и там выводятся картинки через TfrxPictureView + TfrxDataBand
в detailMemoryDataSet загружаю пути к картинкам
а потом создаю TfrxPictureView и TfrxDataBand

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Var
 Picture: TfrxPictureView;
 band: TfrxDataBand;
begin
...
...
          band.DataSet := frxDBPhoto;
          Picture := TfrxPictureView.Create(Band);
          Picture.AutoSize  := false;

          Picture.HightQuality := cboxHighQuality.checked;

          Picture.Top  := 1;
          Picture.Left := 1;
          Picture.Height := fmSelSizeCard.edHeight.Value;
          Picture.Width  := fmSelSizeCard.edWidth.Value;
          band.Height    := fmSelSizeCard.edHeight.Value + 5;

          Picture.FileLink := constPictureFileLink;

          Picture.Stretched := cboxStretchPicture.Checked;

...
...

    if frxCard.PrepareReport then
    begin
      frxCard.PreviewOptions.Modal := false;
      frxCard.ShowReport;
    end;
...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #39721449
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DimaBr, спасибо, примерно понял...
мну нужно убрать строку
band.DataSet := frxDBPhoto;
и создавать TfrxPictureView ручками
...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #39721510
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
X11У меня master-detail

Можешь перейти на report-subreport.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Как в Fast Report вывести картинку из базы данных
    #39721932
_Den_Z
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
X11,
У бэнда есть колонки, если картинки в плитке пропорциональные, то легче всего сделать через колонки.
Отчет для FRDemo
https://www.dropbox.com/s/zgx5ym4ju1a6ite/Tile.fr3
...
Рейтинг: 0 / 0
17 сообщений из 17, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как в Fast Report вывести картинку из базы данных
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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