图像显示问题

Question

如何把dbgrid中的图像调入image中显示    在双击dbgrid 时
谢谢了

Answer 1

      try           //显示图片
        try
          m_jpegStream:=TMemoryStream.Create;
          TBlobField(fieldbyname('pic')).SaveToStream(m_JpegStream);
          m_JpegStream.Position:=0;
          try
            pic_img.Picture.Graphic:=nil;
            pic_img.Picture.Graphic:=TJpegImage.Create;
            pic_img.Picture.Graphic.LoadFromStream(m_JpegStream);  //读Jpeg
          except
            pic_img.Picture.Graphic:=nil;
          end;
        except
          showmessage('读取图片出错！');
        end;
      finally
        m_JpegStream.Free;
      end;

Answer 2

      m_jpegStream:=TMemoryStream.Create;
      try           //显示图片
        try
          TBlobField(fieldbyname('pic')).SaveToStream(m_JpegStream);
          m_JpegStream.Position:=0;
          try
            pic_img.Picture.Graphic:=nil;
            pic_img.Picture.Graphic:=TJpegImage.Create;
            pic_img.Picture.Graphic.LoadFromStream(m_JpegStream);  //读Jpeg
          except
            pic_img.Picture.Graphic:=nil;
          end;
        except
          showmessage('读取图片出错！');
        end;
      finally
        m_JpegStream.Free;
      end;