Программирование Delphi

Для добавления и чтения изображения из базы данных нужно проделать следующее:

Как поместить изображение в базу данных

Table1.Insert;
TBlobField(Table1.FieldByName('my_pic1')).LoadFromFile (OpenDialog1.FileName);
TBlobField(Table1.FieldByName('my_pic2')).Assign(Image1.Picture);
Table1.Post;

Класс TBlobField служит для работы с полями базы данных, представленных в виде большого количества бинарных данных (binary large object-BLOB).

Связь с таблицей базы данных осуществляется с помощью объекта Table1, для добавления новой записи служит команда Insert.

В поля таблицы my_pic1 и my_pic2, которые имеют тип BLOB(или binary для таблицы Paradox), загружаем изображения двумя способами: из файла (с помощью объекта OpenDialog1) и из объекта Image1.

Как считать картинку из базы данных

Считать картинку из базы данных также не составляет труда. Это можно осуществить с помощью объекта TDBImage или командой:

Image2.Picture.Assign(TBlobField(Table1.FieldByName('my_pic1')));