17 replies to this topic

[razadi]

Saludos amigos, una sugerencia para trabajar con fastreport 5, lo que requiero, es, tengo un documento que tiene un detalle, en este detalle presento unos registros de productos, pero quiero insertar una foto diminuta en un lado de cada registro.

Para la imagen, tengo un campo en mi base de datos, donde almaceno la ruta de la imagen y esta es la que quiero que aparezca en la imagen.

Saludos y gracisa de antemano.

[egostar]

Hola amigo,

Hasta donde recuerdo necesitas pasarlo desde tu programa haciendo una búsqueda del objeto imagen de FastReport, por la noche te paso el código que he utilizado para esos menesteres

Salud OS

[angelo2007]

lo que yo hago es poner una la imagen en la blase de datos en la misma tabla y registro.

algo asi

id  nombre producto  descripcion      prodimagen

el campo lo pongo como blobtype subtipo binary  a 100 de tamaño
y asi solo pongo un dbimage dentro del reporte y lo enlazo a el registo prodimagen. y ya.

[egostar]

Que tal, lo prometido es deuda pero desgraciadamente el foro estuvo fuera del aire ayer y ya no publiqué el código.

delphi

procedure TfrmReportes.frrptReportesBeforePrint(Sender: TfrxReportComponent);
begin
  if Sender.Name = 'LOGO' then
  begin
     TfrxPictureView(Sender).Visible := True;
     TfrxPictureView(Sender).Picture.LoadFromFile(ExtractFilePath(Application.ExeName) +
	                                              'Imagenes\' + NomArchLogo);
  end;
end;

SaludOS

[razadi]

lo que yo hago es poner una la imagen en la blase de datos en la misma tabla y registro.

algo asi

id  nombre producto  descripcion      prodimagen

el campo lo pongo como blobtype subtipo binary  a 100 de tamaño
y asi solo pongo un dbimage dentro del reporte y lo enlazo a el registo prodimagen. y ya.

Gracias amigo angelo2007, si efectivamente, es una solución, el problema con eso que tu base de datos crecería desmesuradamente y bueno luego los clientes no te proporcionan ni los requerimientos básicos.

Que tal, lo prometido es deuda pero desgraciadamente el foro estuvo fuera del aire ayer y ya no publiqué el código.

delphi

procedure TfrmReportes.frrptReportesBeforePrint(Sender: TfrxReportComponent);
begin
  if Sender.Name = 'LOGO' then
  begin
     TfrxPictureView(Sender).Visible := True;
     TfrxPictureView(Sender).Picture.LoadFromFile(ExtractFilePath(Application.ExeName) +
                                                 'Imagenes\' + NomArchLogo);
  end;
end;

SaludOS

Amigo egostar, si efectivamente, quise contestar tu post y nomás no pude, pero bueno ya estamos en linea nuevamente, ok este código donde lo pongo por que recuerda que esta en el detalle y necesito una imagen por cada registro que aparezca en el reporte.

Por otro lado, te comentaba que tengo un proyecto interesante en puerta, si tienes oportunidad me gustaría invitarte a formar parte de este proyecto, ya le comente a Edgar y a Gabi, ya que el sistema lo requieren para enero.

Ya tu me dices si puedes y ver cuando nos podemos reunir para comentarlo y aprovechar para saludarnos.

y nuevamente gracias por tus prontas respuesta.

[egostar]

Pues es en el evento BeforePrint de tu componente de fastreport, y lo interesante es que ese código te sirve como de foprma dinámica, necesito asegurarme porque te puse lo del logo, pero en el programa que lo tengo se imprimen fotos de empleados que imagino es similar a lo que tu requieres y me parece que es lo mismo, lastimosamente, ese código lo tengo en casa, así que si no sucede otra cosa y el host ya se pone las pilas te confirmo en la noche.

SaludOS

[razadi]

Pues es en el evento BeforePrint de tu componente de fastreport, y lo interesante es que ese código te sirve como de foprma dinámica, necesito asegurarme porque te puse lo del logo, pero en el programa que lo tengo se imprimen fotos de empleados que imagino es similar a lo que tu requieres y me parece que es lo mismo, lastimosamente, ese código lo tengo en casa, así que si no sucede otra cosa y el host ya se pone las pilas te confirmo en la noche.

SaludOS

y como dice la canción.... "...y me quede esperando...", jejeje

mira amigo hice lo siguiente;

delphi

procedure imagenOnBeforePrint(Sender: TfrxComponent);
var
  sFile: string;
  pict: TPicture;        
begin
  sFile := <fdCoti."cct_img">;
           
  if sFile<>'' then                                    
    try                 
      TfrxPictureView(Sender).Picture.LoadFromFile(sFile);
    except
      TfrxPictureView(Sender).Visible := False;                                                      
    end;            
end;

Esto lo puse en BeforePrint de la imagen, y el primer registro me pone la imagen sin bronca pero el siguiente registro me marca un error como si no estuviera creado el objeto.
Alguna sugerencia, observación o correción? 

Nota: como puedes ver la ruta de la imagen la obtengo de una base de datos y por consiguiente pueden ser varios registros que si traigan imagen y otros nop.

de antemano gracias

[egostar]

Caramba!!!, se me paso este asunto, luego te publico la solucion.

Salud OS

[razadi]

Saludos, amigos, pues de pues de tanto intentar e intentar, esta la pronta solución que encontre para el problema planteado, gracias a egostar, por el empujoncito, y pues aquí les comparto la solución encontrada, me funciona (Delphi 2007 + FastReports 4.5)

delphi

procedure imagenOnBeforePrint(Sender: TfrxComponent);
var
  Pict: TfrxPictureView;
begin
  if Sender is TfrxPictureView then 
    if TfrxPictureView(Sender).Name = 'imagen' then begin
      Pict := TfrxPictureView(Sender);
      if <fdCoti."cct_img"><>'' then begin
        Pict.Visible := True;
        try                       
          Pict.Picture.LoadFromFile(<fdCoti."cct_img">);
        except
          Pict.Visible := False;
        end;                                            
      end else
        Pict.Visible := False;                                                                           
    end;
 
end

Aqui tengo un problemilla, que tuve que solucionar con el "if <fdCoti."cct_img"><>''" ya que no pude correr el "FileExist".

Pero bueno ahi esta la solución para cuando quieren mostrar una imagn en un listado y que esta imagen este en su DD y la ruta se pase por base de datos.

Gracias....

[egostar]

Jolinesssss, se me paso amigo, mea culpa,


SaludOS

[Fenareth]

Jolinesssss, se me paso amigo, mea culpa, 


SaludOS

Nosotros comprendemos ego... la edad, la edad.... 



Saludox !

[razadi]

Jolinesssss, se me paso amigo, mea culpa, 


SaludOS

Nosotros comprendemos ego... la edad, la edad.... 

   

Saludox !

mmm será motivo de preocupación amigo? 

[egostar]

Porque no pudiste ejecutar el fileexists() amigo,

Éste es el código que yo uso para imprimir credenciales y que prácticamente es igual al tuyo

delphi

    Empleado := ModuloReportes.ibqCredencial.FieldByName('IDEmp').AsString; //Aquí obtengo el ID del Empleado
    if FileExists(ExtractFilePath(Application.ExeName) +'Fotos\'+ Empleado + '.jpg') Then
    begin
        If Sender.Name = 'Foto' Then //Agrego la foto al objeto
           TfrxPictureView(Sender).Picture.LoadFromFile(ExtractFilePath(Application.ExeName) +'Fotos\'+ Empleado + '.jpg');
    end
    else begin
        if Sender.Name = 'Foto' then //Si no tiene foto, se imprime la credencial sin foto, así lo pidieron :)
           TfrxPictureView(Sender).Picture.LoadFromFile(ExtractFilePath(Application.ExeName) +'Fotos\SinFoto.jpg');
    end;

Salud OS

[bigleaguer]

Por que no puedes usar el FileExists como comenta Egostar?
Con el código que él público debería de funcionar. (Aprovecho para mejorar un poquito el código).

delphi

var
  Ruta: string;
begin
  //....
  Empleado := ModuloReportes.ibqCredencial.FieldByName('IDEmp').AsString; //Aquí obtengo el ID del Empleado
  Ruta := ExtractFilePath(Application.ExeName) +'Fotos\'; 
  if (Sender is TfrxPictureView) and (Sender.Name = 'Foto') then
  begin
    if FileExists(Ruta + Empleado + '.jpg') then
      TfrxPictureView(Sender).Picture.LoadFromFile(Ruta + Empleado + '.jpg')
    else
      TfrxPictureView(Sender).Picture.LoadFromFile(Ruta + 'SinFoto.jpg');
  end;  
  //...
end;

[Marc]

Hola.

Yo lo que hago simplemente es poner la imagen en un campo InternalCalc (o Calculated) del Dataset que alimenta el Report.

De esta forma puedo poner en el Report una Image normal y corriente, enlazada al campo, sin necesidad de programar nada más.

Saludos.

[hdavid74]

Que tal a todos tengo este codigo para imprimir una imagen en FastReport

delphi

procedure TfrmCajas.CopiaCertificadaBeforePrint(Sender: TfrxReportComponent);
Var
   PV : TfrxPictureView;
begin
   PV := TfrxPictureView.Create(Application);
   PV := (CopiaCertificada.FindObject('Picture1') as TfrxPictureView);
   PV.Picture.LoadFromFile('C:\img.tif');
end;

el problema que tengo es que cuando pongo un C:\img.tif no marca error ni nada solo no imprime la imagen que esta leyendo mas sin embargo si le pongo c:\img.jpg (que es otra imagen a la que quiero poner) si la imprime y no se porque es esto

[TiammatMX]

Jolinesssss, se me paso amigo, mea culpa, ...

Sí, conozco el caso..., y muy de cerca...

[TiammatMX]

...Yo lo que hago simplemente es poner la imagen en un campo InternalCalc (o Calculated) del Dataset que alimenta el Report...

¡Los campos calculados son la onda! No recuerdo cómo era la vida antes de descubrirlos y aplicarlos...