Работа с Blob полями в FireMonkey с FireBird

@Ethernet_095 · Регистрация: 28.05.2013

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

Здравствуйте, уважаемые пользователи форума.
У меня возникла проблема при работе с FireMonkey 2.0 в RAD Studio XE3.
Суть проблемы заключается в том, что я не могу взять изображение с клиента и добавить его в BLOB поле базы данных.

Я пользуюсь:
Компоненты FIBPlus 7.4, SQL запросы произвожу через pFIBDataSet;
База данных - FireBird 2.5.2;
СУБД - IBExpert;
Редактор - Embercadero RAD Studio XE3, пишу на кроссплатформенной системе FireMonkey (FMX).

SQL запросы в pFIBDataSet:
SelectSQL

SQL
1
SELECT * FROM VOENCHAST

InsertSQL

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
INSERT INTO VOENCHAST (
                 ID_C,
                 NAME,
                 RV,
                 KRAY,
                 CITY,
                 NUMBER,
                 GERB)
VALUES (
                 :ID_C,
                 :NAME,
                 :RV,
                 :KRAY,
                 :CITY,
                 :NUMBER,
                 :GERB)

UpdateSQL

SQL
1
2
3
4
5
6
7
8
9
10
UPDATE VOENCHAST
SET
         NAME = :NAME,
         RV = :RV,
         KRAY = :KRAY,
         CITY = :CITY,
         NUMBER = :NUMBER,
         GERB = :GERB
WHERE
         ID_C = :OLD_ID_C

Так же имеются хранимые процедуры в IBExpert. Они ни чем не отличаются от вышеуказанных.

Собственно вот и подошёл к главному. Как я понял, в FireMonkey нет типа TBlob или я не указал библиотеку в которой она содержится. Пытался взять изображения следующими способами:

Delphi
1
2
3
4
if not OpenDialog1.Execute then exit;
if not DM.dsVC.FieldByName('GERB').IsNull then
  TBlobField(DM.dsVC.FieldByName('GERB')).LoadFromFile(OpenDialog1.FileName)
else MessageBox(Handle,'Данная запись уже содержит символику военной части','Ошибка добавления изображения',MB_OK + MB_ICONERROR);

FireMonkey не распознает процедуру TBlobField.

Delphi
1
DM.dsVC.ParamByName('GERB').LoadFromFile(OpenDialog1.FileName);

RAD Studio не находит параметр GERB.

А работать через DM.dsVC.FieldByName('GERB') или DM.dsVC.Fields[6] бесполезно. Я не могу их задать как .AsBlob или .AsStream. Таких типов нет. Работал как с .Value, все без толку.

Пробовал добавлять в Image и пересохранять в GERB, ничего из этого не вышло.

Delphi
1
2
3
4
imBlob.Bitmap.LoadFromFile(OpenDialog1.FileName);
imBlob.Bitmap.SaveFromFile(DM.dsVC.FielByName('GERB').Value); // или же...
//imBlob.Bitmap.SaveFromStream(DM.dsVC.FielByName('GERB').Value); // Ещё и так...
//DM.dsVC.FieldByName('GERB').Value := imBlob.Bitmap // Это полный бред, но все равно попробовал

Кто работал FireMonkey, посоветуйте, пожалуйста, как работать с BLOB полями, как с графическими, так и с текстовыми данными.

Благодарю за внимание.

arni · 28.05.2013, 07:23

Delphi
1
DM.dsVC.FieldByName('GERB').LoadFromFile(OpenDialog1.FileName)

и мне кажется вы напутали с not в строке 2

@Ethernet_095 · 28.05.2013, 10:29 **[ТС]**

Действительно, во второй строке напутал с not, но проблема не в этом.

Пробовал таким способом, жалуется на LoadFromFile(OpenDialog1.FileName)
Если быть точнее, то он вообще не видит эту процедуру в DM.dsVC.FieldByName('GERB')

Есть ещё какие-нибудь способы?

arni · 28.05.2013, 11:53

а так?

Delphi
1
2
3
uses FIBDataSet
...
TFIBBlobField(DM.dsVC.FieldByName('GERB')).LoadFromFile(OpenDialog1.FileName)

@Ethernet_095 · 28.05.2013, 14:55 **[ТС]**

Delphi
1
uses pFIBDataSet, FIBDataSet;

Пробовал, так же не хочет работать.
FireMonkey не хочет распознавать TBlobField или же TBlob. По этой причине я и обратился на форум.

Может необходимо подгрузить библиотеку, которая отвечает за TBlob? Если да, то не могли бы подсказать наименование данной библиотеки?

arni · 28.05.2013, 15:12

Не понимаю при чем тут FM (визуальная библиотека), если мы работаем с набором данных.
Ошибка какая?

@Ethernet_095 · 28.05.2013, 18:21 **[ТС]**

arni, прошу меня извинить. Твой совет с TFIBBlobField помог. Просто я не сразу заметил в написании TFIB.
Большое тебе человеческое спасибо!

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@Ethernet_095 2 / 2 / 1 Регистрация: 28.05.2013 Сообщений: 27
	28.05.2013, 10:29 [ТС]
	Действительно, во второй строке напутал с not, но проблема не в этом. Пробовал таким способом, жалуется на LoadFromFile(OpenDialog1.FileName) Если быть точнее, то он вообще не видит эту процедуру в DM.dsVC.FieldByName('GERB') Есть ещё какие-нибудь способы? 0

arni 914 / 879 / 62 Регистрация: 06.01.2010 Сообщений: 2,367 Записей в блоге: 6
	28.05.2013, 15:12
	Не понимаю при чем тут FM (визуальная библиотека), если мы работаем с набором данных. Ошибка какая? 1

@Ethernet_095 2 / 2 / 1 Регистрация: 28.05.2013 Сообщений: 27
	28.05.2013, 18:21 [ТС]
	arni, прошу меня извинить. Твой совет с TFIBBlobField помог. Просто я не сразу заметил в написании TFIB. Большое тебе человеческое спасибо! 0