X11
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
D2007, DevExpress, FibPlus.
Почему-то TcxGridDBTableView не выводит изображения в колонке типа Image.
Сделал так.
В базе (Firebird) создал blob поле в таблице. В pFibDataSet`е, к которому привязан грид, добавил это поле.
Теперь в событии OnGetText этого нового blob-поля заполняю его.
Идею взял отсюда>>
Вот мой код.
Код: procedure TDM.fibdsArendaSearchDOCGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
Var
sFN_Photo: string;
Stream, DataStream: TStream;
begin
sFN_Photo := fmMain.sPhotoArenda + fibdsArendaSearchId.AsString + '\thumb\' + fibdsArendaSearchId.AsString + '.bmp';
if not FileExists(sFN_Photo) then exit;
Stream := TFileStream.Create(sFN_Photo, fmOpenRead);
DataStream := TStringStream.Create('');
try
DataStream.CopyFrom(stream, 0);
Text := TStringStream(DataStream).DataString;//эта строка выполняется
finally
Stream.free;
DataStream.free;
end;
end; |
Посмотрел в отладчике, параметр Text содержит данные:
Цитата:| 'BM6'#0'б'#0#0#0#0#0'6'#0#0#0'('#0#0#0#0#$A#0#0'Ђ'#7#0#0#1#0#$18#0#0#0#0#0#0#0'б'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'¦°№ҐЇё¤'#$AD'¶Ј¬µЎ«ґЎ«ґЎ«ґЎ'... |
А в cxGridDBTableView колонка типа Image или Blob вместо картинки выводит текст (picture) или пустоту.
Как нужно правильно настроить колонку грида, чтобы она выводила картинку?
----------
/не мы такие, жизнь такая/ |
|
