VPF::Вставка JPEG в ячейки DBGrid. - Форум программистов

huminclouds

Дата 17.7.2011, 18:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 8.7.2009

Репутация: нет
Всего: нет

При попытке заполнить ячейки колонки DBGrid картинками JPEG из БД вылетает ошибка "JPEG error #42".
БД - PostgreSQL 8.4, картинки хранятся в поле BYTEA.
Для вставки картинки использую код:

Код


var
  photoStream: TMemoryStream;
begin
  // Сохранить изображение в БД
  photoStream := TMemoryStream.Create;
  photoStream.LoadFromFile(Edit1.Text);
  photoStream.Seek(0, soFromBeginning);

  DM.Query2.SQL.Text := 'UPDATE workers SET photo = :photo WHERE id = :id';
  DM.Query2.ParamByName('id').AsInteger := DM.Query1.FieldByName('id').AsInteger;
  DM.Query2.ParamByName('photo').DataType := ftBlob;
  DM.Query2.ParamByName('photo').LoadFromStream(photoStream, ftBlob);
  DM.Query2.ExecSQL;
  photoStream.Free;
end;

Для заполнения ячеек:

Код


procedure TFrmMain.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var
  stream: TStream;
  photo: TJPEGImage;
begin
  if Column.FieldName = 'photo' then
    with DBGrid.Canvas, DM.Query1 do begin
      photo := TJPEGImage.Create;
      stream := CreateBlobStream(FieldByName(Column.FieldName), bmRead);
      try
        photo.LoadFromStream(stream);
        Draw(Rect.Left, Rect.Top, photo);
      finally
        stream.Free;
        photo.Free;
      end;
    end;
end;

С BMP и TBitmap по аналогии все проходит гладко.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »