DBGrid и картинка в поле

[alexkam]

Вопрос простой? Как в DBGrid вывести картинку поле в ДБ имеет BLOB тип.
Используя
img := TBitmap.Create;
img.Assign(Field);
(где Field - BLOB поле)
возникает ошибка.

[v-t-l]

Код: Выделить всё

img.Assign(Field);

- несовместимость типов TBitmap и TField.
Должно быть что-то вроде:

Код: Выделить всё

var
  img: TBitmap;
  stm: TStream;
begin
  stm := Field.DataSet.CreateBlobStream(Field, bmRead);
  img := TBitmap.Create;
  img.LoadFromStream(stm);
  // Здесь должен быть код прорисовки на грид...
  img.Free;
  stm.Free;
end;


[alexkam]

Возникает ошибка WRONG IMAGE FORMAT

[Vadim]

...WRONG IMAGE FORMAT

Ну тогда скажите, в каком формате у Вас картинки?

[alexkam]

bmp - формат

Добавлено спустя 4 минуты 9 секунд:
Пожалуйста, покажите кто-нибудь рабочий пример.

[Vadim]

Ну что-то типа такого:

Код: Выделить всё

img.Assign(TBLOBField(Таблица.FieldByName('имя_поля').Value));

[alexkam]

Ошибка: Cannot assign a TBlobField to TBitMap

[Vadim]

alexkam
А попробуйте так:

Код: Выделить всё

img.Assign(TBitmap(TBLOBField(Таблица.FieldByName('имя_поля').Value)));

[alexkam]

Я перепробовал все варианты. Ничего не выходит. Нужен рабочий пример. Помогите...

[svk12]

А как насчёт TDBImage ?

Или как-то так:

Код: Выделить всё

img.Picture.Bitmap.Assign(TBitmap(TBLOBField(Таблица.FieldByName('имя_поля').Value)));