cxGrid 显示文件图片

qry_pro(Query组件):的 SQL
select *,'' as test from tablename
然后对qry_pro 进行 Fields Editor 添加所有字段
将 test 的 FindKind 设置为 fkInternalCalc
cxGrid1DBTableView1Image 设置字段为 test 类型 Image

procedure TMainForm.FormCreate(Sender: TObject);
var
  tmpMemStream: TMemoryStream;
  tmpSize: LongInt;
  tmpStr: String;
  path,pic:string;
begin
  if not qry_pro.Active then
  qry_pro.Active:=true;
  qry_pro.first;
  while not qry_pro.Eof do
  begin
    path := VarToStr(qry_pro.FieldValues['path']);
    pic := VarToStr(qry_pro.FieldValues['pic']);
    tmpMemStream := TMemoryStream.Create;
    tmpMemStream.LoadFromFile(path+pic);
    tmpSize := tmpMemStream.Size;
    SetLength(tmpStr, tmpSize);
    tmpMemStream.Read(tmpStr[1], tmpSize);
    tmpMemStream.Free;
    cxGrid1DBTableView1.DataController.SetValue(cxGrid1DBTableView1.DataController.RecNo-1, cxGrid1DBTableView1Image.Index, tmpStr);
    qry_pro.Next;
  end;
end;