我以前收集的资料。希望对你有用。现在我使用 ft了。
问题16:打印JPEG
法一:在RAVE上增加JPEG控件
Bitmap components can only display bitmaps, not jpegs. Youll need the jpeg
add-on thats available from the Nevrona web site,
http://www.nevrona.com/rave/addons.shtml.
Installation instructions for TRaveJPEGImage
--------------------------------------------
1: Extract the files in this archive in your Rave main directory
(normally d:/RAVE5). Make sure to expand with directories so that the source
will be placed in its own directory.
2: Copy the NDCsJPEG.PAS file into the appropriate directory for the version
of Delphi or C++Builder that you are using (for Delphi 6.0 it would normally
be d:/RAVE5/D6).
3: Start Rave, go to the preferences dialog (Edit|Preferences), select the
Packages tab and add the D:/RAVE5/ND_JPEG.BPL package file to the list of
installed package and click OK.
法二,程序中控制,具体参照//www.nevrona.com/rave/tips/rvtip31.html
看下面的：
var
MyPage: TRavePage;
MyRegion: TRaveRegion;
MyBand: TRaveBand;
MyText: TRaveText;
begin
RvPeport.Open;
With RvPeport.ProjMan do begin
mypage:=FindRaveComponent(RePort1.page1,nil) as TRavePage;
MyRegion:= FindRaveComponent(Region1,MyPage) as TRaveRegion;
//showmessage(inttostr(MyRegion.ChildCount));
//MyBand:=FindRaveComponent(BandReportHeard,MyRegion) as TRaveBand;
//showmessage(inttostr(MyBand.ChildCount.ChildCount));
MyBand:=TRaveBand(MyRegion.Child[0]);
//showmessage(inttostr(MyBand.ChildCount));
//showmessage(MyBand.Name);
mytext:=TRaveText(MyBand.Child[66]);
//showmessage(mytext.Name);
//mytext:=FindRaveComponent(text2,MyBand) as TRaveText;
mytext.Text:=LeiMi;
mytext.Color:=clGreen;
end; { with }
RvPeport.ExecuteReport(RePort1);
RvPeport.Close;
