Imagnes en quickreport

[armando]

saludos a todos.. nuevamente por aqui....:D
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:

...
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..
:p