Рассмотрим пример работы с графикой в среде программирования Delphi
1. Как поместить изображение (картинку) в базу данных.
Приведу сразу пример:
Table1.;
TBlobField(Table1.FieldByName('my_pic1')).LoadFile(OpenDialog1.FileName);
TBlobField(Table1.FieldByName('my_pic2')).Assign(Image1.Picture);
Table1.Post;
|
А теперь пояснения:
Класс TBlobField служит для работы с полями базы данных, представленных в виде большого количества бинарных данных (binary large object - BLOB).
Связь с таблицей базы данных осуществляется с помощью объекта Table1, для добавление новой записи служит команда .
В поля таблицы my_pic1 и my_pic2, которые имеют тип BLOB (или binary
для таблицы Paradox), загружаем изображения двумя способами: из файла
(с помощью объекта OpenDialog1) и из объекта Image1.
2. Как считать картинку из базы данных.
Считать картинку из базы данных также не составляет труда. Это можно
осуществить с помощью объекта TDBImage или нижеследующей командой:
Image2.Picture.Assign(TBlobField(Table1.FieldByName('my_pic1')));
| 
