如题,希望介绍的详细一些。

解决方案 »

  1.   

    var
      MS: TMemoryStreamTBlobField(YourField).SaveToStream(MS));QrIMage1.Picture.Graphic.LoadFromStream(Ms);
      

  2.   

    var
      MS: TMemoryStreamTBlobField(YourField).SaveToStream(MS));QrIMage1.Picture.Graphic.LoadFromStream(Ms);
    上面多一个括号。
      

  3.   

    这样就行了么,不是说qrimage对jpg的支持不是很好吗?
      

  4.   

    var
      bs : TMemoryStream;
      jp : TjpegImage;  jp.Assign(Your Field);
      jp.SaveToStream(bs);
      if bs.Size  > 0 then begin
        qrimage1.Picture.Assign(jp);
      end;