Как отобразить картинку (blob) из таблицы/запроса Firebird в поле DBGrid?

@SeGun · Регистрация: 23.05.2015

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

Приветствую.
Умею показывать картинку из ImageList в поле DBGrid.
На D7 делел это так:

{Рисуем наличие документов в гриде}

Delphi
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
procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
 Im1: TBitmap;
 R: TRect;
 MEMOZ: TDBMemo;
begin
 Im1:=TBitmap.Create;
if  (Column.FieldName='DOCYN') then begin
with  DBGrid2.Canvas do begin
Brush.Color:=clWhite;
FillRect(Rect);
if (DM1.QDBOOK.FieldByName('DOCYN').Value='0') then
begin
ImageList1.GetBitmap(0,Im1);
end
else
if (DM1.QDBOOK.FieldByName('DOCYN').Value='1') then
begin
ImageList1.GetBitmap(1,Im1)
end
else
 begin
ImageList1.GetBitmap(2,Im1);
 end;
 
 Draw(round((Rect.Left+Rect.Right-Im1.Width)/2),Rect.Top,Im1);
end;

Теперь стоит задача показать картинки из полей blob в полях DBGrid.
Подскажите как это можно реализовать?

@SeGun · 04.12.2024, 17:05 **[ТС]**

Сообщение от krapotkin

дело вообще не в объемах, дело в том, что в базу кроме Делфи, могут еще и другие системы обращаться!
например, я несколько старых приложений переводил потихоньку на веб, с той же базой

А вот тут, скорее всего прийдётся вынимать сокровища из сундука.
Насколько я понял, ваш вышеприведенный код именно это и делает.

@krapotkin · 04.12.2024, 17:33

типа того, при этом информацию о сокровищах и их типе оставляет себе на память, ни с кем не делится))

Новые блоги и статьи Все статьи Все блоги /
SUNO Ai - Река Без Дна zorxor 31.07.2026 Автор стихотворения - астрофизик Марина Катыс Ссылка на сгенерированную музыкальную композицию: https:/ / suno. com/ song/ 6f6e5464-b290-4650-be6c-44c85f8d8013 Я говорю, что Время- как вода течет. . .	Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .
тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	04.12.2024, 17:33
	типа того, при этом информацию о сокровищах и их типе оставляет себе на память, ни с кем не делится)) 0