首先 uses中加入RpRave, RVClass, RVProj, RVCsStd;
以下内容你懂的:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
MyPage:TRavePage;
Mybitmap:TRaveBitmap;
begin
RvProject1.Open;
RvProject1.SelectReport('bmptest.PAGE1',TRUE) ;
With RvProject1.ProjMan do
begin
MyPage := FindRaveComponent('test.Page1',nil) as TRavePage; /查找PAGE
MYbitmap := FindRaveComponent('Bitmap1',MyPage) as TRaveBitmap; / //查找Bitmap
//FindRaveComponent('DataText1',MyPage) as TRaveText;//text文本
MYbitmap.FileLink := 'QrCode2.bmp'; //动态调用图片文件
end; { with }
RvProject1.ExecuteReport('bmptest.') ;
RvProject1.Close;
end;
//另外设置参数parameters中的值,最简便方法为: RvProject1.SetParam('custname','Tvm-ERP最好的纺织服装ERP');