oтобразить картинки JPG - формата в Lazreport-e

Модератор: Модераторы

Аватара пользователя
alexs
долгожитель
Сообщения: 4069
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь
Контактная информация:

Сообщение alexs »

Работает нормально. Только что проверил
Простейший отчёт:
Страница отчёта
Страница с данными
На странице с данными (Dialog1) расположил запрос (quSpr3), в котором извлекается изображение в поле spr_3_image
На странице отчёта расположен Picture, в поле DataField прописал значение [Dialog1.quSpr3."spr_3_image"]
В обработчике Dialog1.OnClick написал Dialog1.quSpr3.Open
Всё работает норм.
Аватара пользователя
Xenar
постоялец
Сообщения: 158
Зарегистрирован: 08.06.2011 12:54:07

Сообщение Xenar »

Картинка сама хоть записывается напрямую из базы на жесткий диск ??
Во пример кода:

Код: Выделить всё

var
  jp:TJPEGImage;
  SQLQuery: TZQuery;
begin
SQLQuery := TZQuery.Create(nil);
 try
  SQLQuery.Connection := ZConnection1;
  SQLQuery.Active:=false;
  SQLQuery.SQL.Clear;
  SQLQuery.SQL.add('SELECT image FROM imags WHERE id="111" LIMIT 1;');
  SQLQuery.Open;

  jp:=TJPEGImage.Create;
  jp.LoadFromStream(TStringStream.Create(SQLQuery.FieldByName('image').AsString));
  jp.SaveToFile('/tmp/scan.jpg');
  finally
   jp.free;
   SQLQuery.Free;
  end;
igelOOO
новенький
Сообщения: 10
Зарегистрирован: 28.08.2015 17:01:57

Сообщение igelOOO »

alexs писал(а):Работает нормально. Только что проверил
Простейший отчёт:
Страница отчёта
Страница с данными
На странице с данными (Dialog1) расположил запрос (quSpr3), в котором извлекается изображение в поле spr_3_image
На странице отчёта расположен Picture, в поле DataField прописал значение [Dialog1.quSpr3."spr_3_image"]
В обработчике Dialog1.OnClick написал Dialog1.quSpr3.Open
Всё работает норм.


спасибо завтра еще раз попытаюсь
Ответить