Imagnes en quickreport

[armando]

saludos a todos.. nuevamente por aqui....
tengo una aplicación en delphi7 con firebird 2.5...
donde guardo unas fotos pero almaceno solo la ruta de la foto son jpg
ahora quiero mostrar el listado.. si pongo un QRImage me muestar solo la primera..
como le puedo hacer si quiero que me ponga todas...??
ya intente guardar las fotos en la tabla directamente y mostrarlas con un QRBImage pero me mrca un error..
espero sus comentarios y gracias.....

[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.

[armando]

saludos... ecfisa
gracias.. resulto bien..
como siempre gracias al foro..