如果是bmp很容易实现;
但因为是JPG格式的,要用流的形式读出来,不知道这段代码怎么写,
是写在frReportGetValue事件里面吗?
请各位老大指点!

解决方案 »

  1.   

    可以在frReport1BeforePrint事件里面写
      if View.Name = 'Picture1' then
      begin
        MyJPEG:=TJPEGIMage.Create;
        MS:=TMemoryStream.Create;
        try
          TBlobField(ADOQuery1.FieldByName('照片')).savetostream(MS);
          MS.position:=0;
          MyJPEG.LoadFromStream(MS);
          TfrPictureView(View).Picture.Assign(MyJPEG);
        finally
          MyJPEg.free;
          MS.free;      
        end;