Отображение изображений из базы данных

Posted by obzor under Delphi

Нужна помощь в отображение изображений из базы данных Access. Я смог только 1 изображение вывести с помощь события AfterScroll, но есть необходимость выводить их больше.

xxbesoxx

У вась таблице в поле ‘Image1’ есть картинки форматов .jpg который можно отображать компоненте Image так

procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
var
  S: TStream;
  jpg: TJPEGImage;
begin
  if not ADOQuery1.FieldByName('Image1').IsNull then
  begin
    S := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('Image1'), bmRead);
    jpg := TJPEGImage.Create;
    try
      S.Position := 0;
      jpg.Assign(ADOQuery1.FieldByName('Image1'));
      Image1.Picture.Assign(jpg);
    finally
      jpg.Free;
      S.Free;
    end;
  end else
    Image1.Picture := nil;
end;

тема на форуме

Похожие статьи

• Сумма для динамического количества столбцов в DbGrid
• Подключение к БД Firebird в локальной сети
• Столбцы в DBGrid
• Подстановка данных сразу из 4 таблиц в одну в С++ Builder 6
• «Контроль версий» в структуре БД
• MS SQL SERVER: ограничение CHECK и регулярные выражения
• Пример работы Ado с oracle
• Когда добавляю новую колонку в базу, хочу чтобы ее сразу можно было увидеть в DBGrid
• Как сделать маску времени и даты для ввода в БД?