Ну так и в примере картинка берется из запроса. В чем проблема?
Набросал пример, у меня работает. только использовал вместо запроса opendialog:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | var
MyBitmap1: TRaveBitmap;
MyPage: TRavePage;
MS:TMemoryStream;
JPG:TJPEGImage;
BMP:TBitMap;
begin
OpenPictureDialog1 . Execute;
MS := TMemoryStream . Create;
JPG := TJPEGImage . Create;
BMP := TBitmap . Create;
ms . LoadFromFile(OpenPictureDialog1 . FileName);
MS . Position := 0 ;
JPG . LoadFromStream(MS);
BMP . Assign(JPG);
RvProject1 . open;
With RvProject1 . ProjMan do
begin
MyPage := FindRaveComponent( 'Report1.Page1' , nil ) as TRavePage;
MyBitmap1:=FindRaveComponent( 'BitMap1' ,MyPage) as TRaveBitmap;
MyBitmap1 . Image . Assign(BMP);
MS . Free;
JPG . Free;
BMP . Free;
end ;
RvProject1 . SelectReport( 'Report1' , True );
RvProject1 . Execute;
RvProject1 . close;
|