Загрузка файла с диска в событии OnGetText - БД в Delphi

X11 · 28.08.2011, 21:39

Почему-то TcxGridDBTableView не выводит изображение в колонке, где Properties имеет значение Image или Blob.

Сделал так.
В базе (Firebird) создал blob поле в таблице. В датасете TpFibDataSe, к которому привязан грид (cxGrid), добавил это blob-поле.

Теперь в событии OnGetText этого нового blob-поля хочу загрузить картинку с диска, чтобы потом отобразить в cxGrid`е.
Идею взял отсюда>>

Вот мой код.

Код:

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) или пустоту.

Как нужно правильно настроить колонку грида, чтобы она выводила картинку? Или я что-то неправильно делаю при загрузке картинки в поле?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Перемещение файла из диска на диск	Alex1991	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	4	20.03.2011 21:21
Загрузка с диска.	krokusfs	Безопасность, Шифрование	1	31.05.2010 23:39
Проблема такова: язык:Delphi7; сохранения файла; загрузка файла в String Grid	lightdevil	Общие вопросы Delphi	3	06.03.2009 23:10
Загрузка файла	AVer	Работа с сетью в Delphi	0	11.02.2007 17:22

28.08.2011, 21:39	#1
X11 Пользователь Регистрация: 20.01.2010 Сообщений: 54	Загрузка файла с диска в событии OnGetText Почему-то TcxGridDBTableView не выводит изображение в колонке, где Properties имеет значение Image или Blob. Сделал так. В базе (Firebird) создал blob поле в таблице. В датасете TpFibDataSe, к которому привязан грид (cxGrid), добавил это blob-поле. Теперь в событии OnGetText этого нового blob-поля хочу загрузить картинку с диска, чтобы потом отобразить в cxGrid`е. Идею взял отсюда>> Вот мой код. Код: 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) или пустоту. Как нужно правильно настроить колонку грида, чтобы она выводила картинку? Или я что-то неправильно делаю при загрузке картинки в поле?