Hallo,
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
MyPage : TRavePage;
MyText : TRaveText;
MyMemo : TRaveMemo;
MyBitmap : TRaveBitmap;
Buffer : PChar;
begin
RvProject1.Open;
with RvProject1.ProjMan do begin
// Look for components we want to update
MyPage := FindRaveComponent('RepThomas.Page1', nil) as TRavePage;
MyText := FindRaveComponent('Text1', MyPage) as TRaveText;
MyMemo := FindRaveComponent('Memo1', MyPage) as TRaveMemo;
MyBitmap := FindRaveComponent('Bitmap2', MyPage) as TRaveBitmap;
// Modify Text and font color of 'Text2' in report
MyText.Text := 'Hallo Delphi-Praxis.net!';
MyText.Color := clRed;
// Typecasting of Delphi Memo1 into RaveMemo language
GetMem(Buffer,Length(Memo1.Text) + 1);
StrCopy(Buffer, PChar(Memo1.Text));
MyMemo.Text:=Buffer;
FreeMem(Buffer);
// Assignation of Delphi Image1 to Rave Bitmap
MyBitmap.Image.Assign(Image1.Picture.Bitmap);
end;
RvProject1.ExecuteReport('RepThomas');
RvProject1.Close;
end;
aber evtl. ist der Weg über Parameter bzw. CustomConnection einfacher/sinnvoller......
-take care
thomas, TeamNevrona