Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-07-2004
JoseQ JoseQ is offline
Miembro
 
Registrado: jul 2004
Posts: 167
Poder: 21
JoseQ Va por buen camino
Error con FastReport

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

Código Delphi [-]
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 ?¿?¿?¿?¿?¿?
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 20:05:33.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi