qr中的qrimage如何用？我用它打印access中的用流保存的JPG图片出错？(100分)

代码 begin
JpgPic:=tjpegimage.Create;
stream :=TMemoryStream.Create;
Stream.clear;
tblobfield(DataModule1.ADOQuery1.FieldByName('像片')).savetostream(stream);
Stream.Seek(0,soFrombegin
ning);
JpgPic.loadfromstream(stream);
Image1.Picture.bitmap.assign(JpgPic);
frm_Prt_Lab.QRImage1.Picture.bitmap.FreeImage;
// frm_Prt_Lab.QRImage1.Picture.bitmap.assign(JpgPic);
JpgPic.Free;
Stream.Free;
end;
运行后image1中的图片显示正确，而不注释掉QRImage1提示Stream write error，应怎样
动态使用QRImage?是不是不能用同样的代码使用image和QRimage

关注