var
MeinBitmap: TRaveBitmap;
MeineSeite: TRavePage;
sPdfFileName :
string;
begin
// Zieldateiname festlegen
sPdfFileName := sLokalerAnwendungsSystemPfad + '
willi.pdf';
// Report öffnen
RvProject1.Open;
// Text zuweisen
RvProject1.SetParam('
Label_001', '
Hallo Welt');
// Grafik zuweisen
with RvProject1.ProjMan
do
begin
MeineSeite := FindRaveComponent('
Report1.Page1',
nil)
as TRavePage;
MeinBitmap := FindRaveComponent('
Bitmap1', MeineSeite)
as TRaveBitmap;
MeinBitmap.Image.Assign(imgBarCode.Picture.Bitmap);
end;
// Ausgabe vorbereiten
RvSystem1.DefaultDest := rdFile;
RvSystem1.DoNativeOutput := false;
RvSystem1.RenderObject := RvRenderPDF1;
RvSystem1.OutputFileName := sPdfFileName;
RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
// PDF anlegen
RvProject1.ExecuteReport('
Report1');
// Wenn vorhanden anzeugen oder Fehlemeldung
if (fileexists(sPdfFileName) = true)
then
begin
// Aufrufen des erzeugten Reportes
ShellExecute(
Handle, '
open', pchar(sPdfFileName), '
',
nil, SW_SHOW);
end
else
begin
// negative Abschlußmeldung
ShowMessage('
Der Report konnte nicht erstellt werden.');
end;