Карта сайтаСсылкиКонтакты

Как вывести изображение из базы данных в TImage

PDF Печать
Статьи

Если у Вас в базе данных имеются BLOB поля, в которых содержатся изображения, то их можно вывести не только в компонент DBImage, но и, например, в TImage.

Ниже будет приведен пример, как это можно сделать. Для демонстрации этого, поместите компоненты TQuery (Query1), TButton (Button1) и TImage (Image1) на форму TForm (Form1).

Для компонента Query1 установите свойства: Active равным False, DatabaseName установите не демонстрационную базу, которая идет вместе со всеми версиями Delphi (DBDEMOS). Далее запишите этот код в событие OnClick кнопки:


procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Active:= false;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT Graphic FROM Biolife WHERE Category="Cod"');
  Query1.Active:= true;
  Image1.Picture.Assign(TBlobField(Query1.FieldByName('Graphic')));
end;

В этом случае динамически выбираем запись из базы данных, которое соответствует критериям выборки. Можно также в режиме разработки присвоить свойство SQL компоненту TQuery.


 

Добавить комментарий


Защитный код
Обновить