![]() |
|
#6
|
||||
|
||||
![]() Ну так и в примере картинка берется из запроса. В чем проблема?
Набросал пример, у меня работает. только использовал вместо запроса opendialog: Код:
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; Последний раз редактировалось TOJluK, 11.03.2010 в 15:39. |