MSSQL Image字段 保存与显示

smkf225 2021-3-1 462

小白 东抄抄西写写 累呀
控件  Image_TouX: TscGPImage;
相应的Var变量没有贴出来
显示部份代码如下:

  if not FieldByName('VIPImg').IsNull then //也可以使用 not VarisNull(FieldValues['VIPImg'])
  begin
    try  //当值错误的时候
      Image_TouX.ClipFrame := scgpcfRoundedRect;
      try
        MemoStream := TMemoryStream.Create;
        Jpg := TJPEGImage.Create;
        TBlobField(FieldByName('VIPImg')).SaveToStream(MemoStream);
                      // 显示的转换为BlobField并保存到内存流
        MemoStream.Position := 0;
        Jpg.LoadFromStream(MemoStream); // 加载图片
        Image_TouX.Picture.Assign(Jpg);
      finally
        MemoStream.Free;
        Jpg.Free;
      end;
    except
      Image_TouX.ClipFrame := scgpcfNone;
    end;
  end;

保存时

 if Image_TouX.Picture.Graphic <> nil then //不为空,默认为:Null
    begin
      try
        MemoStream := TMemoryStream.Create;
        Image_TouX.Picture.Graphic.SaveToStream(MemoStream);
        TBlobField(FDQryNew.FieldByName('VIPImg')).LoadFromStream(MemoStream);
      finally
        MemoStream.Free;
      end;
    end;

DelphiTop论坛申明 1、本网站名称:DelphiTop论坛  网址:www.DelphiTop.com
2、专注于互联网分享精神,专注收藏与分享。你薅网友,我就薅你。
3、本站资源,如发现链接失效,可联系QQ 16643506进行反馈,我们会第一时间更新。
最新回复 (4)
  • 风神 2021-3-1 0
    2
    不错,很有用,很多小白用得到的代码
  • aluwest 2021-3-1 0
    3
    学习了,要用火神中间件吗
  • smkf225 2021-3-7 0
    4
    你用可以不用可以。
    但一般不建议把图片放到MSSQL数据库中
  • 566 2021-4-15 0
    5

    好资源学习啦!

返回