Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Firebird, Interbase > Blob-поле!


Автор: lotos 22.1.2004, 22:16
Как записать в Blob поле файл *.jpg таким образом чтобы он потом мог просмотреться в DbImage при блуждание по записям. notify.gif

Автор: Vit 22.1.2004, 23:33
в DbImage? Скорее всего никак, или довольно сложно...

Вот примеры кода:

Загрузка файла из TImage:
Код
     QAll.Edit;
     QAll.FieldByName('Logo').assign(Image.Picture);
     QAll.post;




Чтение файла из таблицы в TImage:

Код
 Image.Picture.assign(QAll.FieldByName('Logo'));




Загрузка данных в поле:

Код
(Table1.DataSource2.Fields.Field[01] As TBlobField).LoadFromStream


Загрузка данных через параметры:

Запрос
Код
Insert into MyTable (MyBlobField)
Values (:Something)



В коде:

Код
(Query1.parameters.parambyname('Something') as TBlobField).LoadFromFile ...
(Query1.parameters.parambyname('Something') as TBlobField).LoadFromStream ...
(Query1.parameters.parambyname('Something') as TBlobField).assign ...

Автор: x77 22.1.2004, 23:34
Повесить событие на OnScroll таблицы, в котором приводить jpeg к битмапу и засовывать в обычный TImage

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)