JoseQ
29-07-2004, 18:44:12
Buenas, intento crear un informe por codigo k me muestre una serie de imagenes(contenidas en un directorio) y su nombre de archivo(contenidos en una base de datos) utlizo el siguiente codigo, pero me da un error de violacion de memoria en la carga de la imagen
procedure TInformes.Button7Click(Sender: TObject);
var
v: TfrView;
c: tfrpictureview;
b: TfrBandView;
Page: TfrPage;
begin
frReport1.Pages.Clear;
frReport1.Pages.Add; // create page
Page := frReport1.Pages[0];
b := TfrBandView(frCreateObject(gtBand, '')); // create MasterData band
b.SetBounds(0, 20, 0, 20); //Left, Top, Width, Height
b.BandType := btMasterData;
b.Dataset := 'frDBDataSet1';
Page.Objects.Add(b);
c.Picture.Graphic.LoadFromFile (unit1.rutat + moduloimagenes.fotosNombre.Value) ;
c.SetBounds(20, 20, 100, 100) ;
v := frCreateObject(gtMemo, '') ; // create data field
v.SetBounds(130, 20, 50, 16) ;
v.Memo.Add('[moduloimagenes.fotos."Nombre"]') ;
page.Objects.Add(c) ;
Page.Objects.Add(v) ;
frReport1.ShowReport ;
end;
alguna sugerencia ?¿?¿?¿?¿?¿?
procedure TInformes.Button7Click(Sender: TObject);
var
v: TfrView;
c: tfrpictureview;
b: TfrBandView;
Page: TfrPage;
begin
frReport1.Pages.Clear;
frReport1.Pages.Add; // create page
Page := frReport1.Pages[0];
b := TfrBandView(frCreateObject(gtBand, '')); // create MasterData band
b.SetBounds(0, 20, 0, 20); //Left, Top, Width, Height
b.BandType := btMasterData;
b.Dataset := 'frDBDataSet1';
Page.Objects.Add(b);
c.Picture.Graphic.LoadFromFile (unit1.rutat + moduloimagenes.fotosNombre.Value) ;
c.SetBounds(20, 20, 100, 100) ;
v := frCreateObject(gtMemo, '') ; // create data field
v.SetBounds(130, 20, 50, 16) ;
v.Memo.Add('[moduloimagenes.fotos."Nombre"]') ;
page.Objects.Add(c) ;
Page.Objects.Add(v) ;
frReport1.ShowReport ;
end;
alguna sugerencia ?¿?¿?¿?¿?¿?