Cargar foto en QReport en tiempo ejecución

[[Lepe]]

Espero que alguno de estos puntos te ayuden:

- Estas usando una base de datos, o ¿usas el evento OnNeedData para alimentar el informe?

- La foto es jpg, bmp, ¿?

- ¿La ruta contiene espacios en blanco?, Si es así, tendrás que darle la ruta entre comillas dobles.

Código Delphi [-]
  Foto.Picture.LoadfromFile('__"c:\archivo de programas\foto1.bmp"__');

He puesto guiones bajos ___ para separar un poco las comillas dobles de la comilla simple de delphi. Por supuesto los guiones bajos tendrás que quitarlos.

Empezado por mrmanuel

Una vez creado, le paso los datos por parámetro y mediante una funcio, los coloco en su casilla correspondiente

Sería bueno poner puntos de ruptura (BreakPoints) al inicio de esa función y ver paso a paso en qué instrucción da el error. Si no has encontrado el error, pon esa función en el foro, por si vemos algo "raro".

saludos

[mrmanuel]

Hola.
Respondiendo a LEPE.

LEPE: - Estas usando una base de datos, o ¿usas el evento OnNeedData para alimentar el informe?

Resp: Estoy usando un vlbe local que lee los datos de un fichero ini. Tambien lo ha intentado metiendolos a pelo y usando un TEdit.

-------

LEPE: - La foto es jpg, bmp, ¿?

Resp: He probado los 2 tipos de foto, tanto BMP como JPG.

-------

LEPE: - ¿La ruta contiene espacios en blanco?, Si es así, tendrás que darle la ruta entre comillas dobles.

Resp: La ruta la tomo del sistema, aunque tambien se la he metido a pelo. y no contiene ningun espacio en blanco.

-------

He Debugeado, linea a linea, el programa y es justamente cuando usa el evento LoadFromFile, cuando falla.


La manera de hacerlo es la sigueinte:

..Logo:= Sacar_Logo_Fich_Ini;
..If logo <> '' then
.....Try
........Logo:= Ruta + '\' + Logo;
........Logo.Picture.LoadFromFole (Logo); //Justamente aqui, falla.
....Except
........Logo.Free;
...End;
..End;

Nota: Pongo los puntos para q sea mas legible el codigo.

Gracias

[[maeyanes]]

Empezado por mrmanuel

La manera de hacerlo es la sigueinte:

..Logo:= Sacar_Logo_Fich_Ini;
..If logo <> '' then
.....Try
........Logo:= Ruta + '\' + Logo;
........Logo.Picture.LoadFromFole (Logo); //Justamente aqui, falla.
....Except
........Logo.Free;
...End;
..End;

Nota: Pongo los puntos para q sea mas legible el codigo.

Gracias

Viendo tu código, noto que usas Logo como si fuera un string pero al mismo tiempo como si fuera la variable tipo TImage. No se si sea así como en realidad lo estas usando o solo fue para ejemplificar, por lo pronto te pongo este ejemplo:

Código Delphi [-]
var
  Logo: TImage;  // TImage para uso temporal
  LogoFileName: string;

begin
  Logo := TImage.Create;
  try
    // Obtienes la ruta y el nombre de archivo del logo de un .ini
    // Ejemplo: C:\imagen.jpg
    LogoFileName := GetFileNameFromIni;
    if LogoFileName <> '' then
    begin
      Logo.Picture.LoadFromFile(LogoFileName);
      // Asignas la imagen al TQRImage
      QRLogo.Picture.Assign(Logo.Picture)
    end
  finally
    Logo.Free
  end
end;

Sobre formatear tu código, puedes usar las etiquetas [ delphi ] [ /delphi ] (sin espacio entre los corchetes) y verás que no necesitas rellenar con puntos para identarlo. Para muestra, el código que te puse de ejemplo.



Saludos...

[mrmanuel]

nada, la cosa sigue igual.

sigue dando el fallo en el mismo sitio. a la hora de cargar la foto el QRImagen.

[dephi]
QRLogo.Picture.Assign(Logo.Picture)
[/delphi]



Gracias......

[mrmanuel]

nada, la cosa sigue igual.

sigue dando el fallo en el mismo sitio. a la hora de cargar la foto el QRImagen.

Código Delphi [-]
        QRLogo.Picture.Assign(Logo.Picture)

Gracias......