Рассмотрим пример работы с графикой в среде программирования 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')));