Imagnes en quickreport

[ecfisa]

Hola armando.

Agregá una banda TQRSubDetail y dentro de ella el TQRImage y proba este ejemplo:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    QuickRep1: TQuickRep;
    QRSubDetail1: TQRSubDetail;
    QRImage1: TQRImage;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    procedure TuDataSetAfterScroll(DataSet: TDataSet);
  public
  end;

var
  Form1: TForm1;

implementation  

uses jpeg, uTuDataMod;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TuDataModule do // (El DataModule debe estar creado en este punto)
  begin
     TuDataSet.Open;
     QRSubDetail1.DataSet :=  TuDataSet;
     TuDataModule.TuDataSet.AfterScroll := TuDataSetAfterScroll;
  end;
end;

procedure TForm1.TuDataSetAfterScroll(DataSet: TDataSet);
begin
  with TuDataModule.TuDataSet do
    QrImage1.Picture.LoadFromFile(FieldByName('IMAGEN').AsString);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  QuickRep1.Prepare;
  QuickRep1.Preview
end;
...

Saludos.