Tengo un reporte en fast report que relleno imagenes en tiempo de ejecución, además de tardarse en cargarse en la impresión muestra que un documento con 4 imágenes llega a pesar 2.8GB en tamaño,¿WTF?, cada imagen no pesa más de 1mb, ésto es lo que tengo:
procedure TFDatosVME.CreateFotosBox(Sender: TfrxReportComponent); var Cols: Integer; aTop,aLeft: Extended; aPicBox: TfrxPictureView; aRect: TfrxShapeView; aParent: TfrxChild; aPath: String; begin Cols := 0; aPath := Rutinas.getSetting('VME_PATH'); aParent := frxFotos.FindObject('child3') as TfrxChild; aTop := 1.5118; aLeft := 10.96; if QPrintFotos.Active then begin QPrintFotos.First; while not QPrintFotos.Eof do begin if Cols = 2 then begin aLeft := 10.96; Cols := 0; aTop := aTop + 238.110; end; Inc(Cols); aPicBox := TfrxPictureView.Create(nil); aPicBox.Parent := aParent; aPicBox.Height := 238.110; aPicBox.Width := 355.27559055; aPicBox.Top := aTop; aPicBox.Left := aLeft; aPicBox.Stretched := True; aPicBox.Center := True; aPicBox.KeepAspectRatio := True; aPicBox.HightQuality := False; aPicBox.Picture.LoadFromFile(aPath + QPrintFotos.FieldByName('veh_foto').AsString); aLeft := aPicBox.Width + 18.90; QPrintFotos.Next; end; end; end;
¿A qué se debe tanto peso?