动态保存CxGrid图像列：Jpg图片与Clipboard操作源码

//关于CxGrid图像列动态保存Jpg图片源码
//作者：土豆散 2018-04-23

procedure TFrmJCStoreModelMrg.BtnCopyClick(Sender: TObject);
var
  RecIdx: Integer;
  aMap: TBitmap;
  aJpg: TJpegImage;
  aStream: TMemoryStream;
  GoodsPicture: Variant;
begin
  if IsClipboardFormatAvailable(CF_BITMAP) then//貌似从Exel拷贝出来的图片都是 BitMap 格式
  //if IsClipboardFormatAvailable(CF_PICTURE) then
  begin
    aMap := TBitmap.Create;
    aJpg := TJpegImage.Create;
    aStream := TMemoryStream.Create;
    try
      aMap.Assign(Clipboard);
      aJpg.Assign(aMap);//把 Bmp 图片格式转换成 Jpg 格式
      //ImgPicture.Picture.Bitmap.Assign(aMap);
      ImgPicture.Picture.Assign(aJpg);
      RecIdx := cxGrid1TableView1.DataController.FocusedRecordIndex;
      if (RecIdx <> -1) then
      begin
        ImgPicture.Picture.Graphic.SaveToStream(aStream);//在 CxImage控件上黏贴显示图片
        //ImgPicture.Picture.Bitmap.SaveToStream(aStream);
        GoodsPicture := StreamToVariant(aStream);//把图片流转成可变类型
        cxGrid1TableView1.DataController.BeginFullUpdate;
        cxGrid1TableView1.DataController.Values[RecIdx, 26] := GoodsPicture;//注意：第25列是图片列（TCxGridColumn 类型），这列的数据类型为 BLOB，并为该列的 Properties属性指定 Image 值，并且设定 Image 的 GraphicClassName 为 TJPEGImage