procedure TForm1.Button1Click(Sender: TObject); var R: TRMView; begin R := RMReport1.FindObject('Picture1'); if (R <> nil) and (R is TRMPictureView) then begin with R as TRMPictureView do begin BlobType := 1; Picture.LoadFromFile('c:\a.jpg'); end; end; RMReport1.ShowReport; end;
var
R: TRMView;
begin
R := RMReport1.FindObject('Picture1');
if (R <> nil) and (R is TRMPictureView) then
begin
with R as TRMPictureView do
begin
BlobType := 1;
Picture.LoadFromFile('c:\a.jpg');
end;
end;
RMReport1.ShowReport;
end;
我这边是指定图片的格式,1代表JPG