fastreport 打印图片 及 简单数据

procedure TForm4.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
  obj: TObject;
begin
  obj := Sender.FindObject('Picture1');
  if obj <> nil then
    TfrxPictureView(obj).Picture.Assign(img1.Picture);
end;

procedure TForm4.frxReport1GetValue(const VarName: string; var Value: Variant);
begin
  CodeSite.Send(VarName);
  if VarName = 'uName' then
    Value := '李';
  if VarName = 'uSex' then
    Value := '男';
end;