Cargar Imagen

[johurgi]

Buenas a tod@s!!!!!

Hola necesito cargar un TImage al inicializar el formulario principal de mi programa. Pero este no me lo carga a pesar de que le indico donde esta la imagen.

Gracias de antemano

procedure TImagenesFicha.FormShow(Sender: TObject);
begin
if FileExists(path+nomFoto) then
begin
 image1.Picture.LoadFromFile(path+nomFoto);
 image1.show;
end;
end;

[[Bicho]]

Hola johurgi, dos cosas a tu pregunta:

- No es necesario que al cargar la imagen en el TImage hagas despues un show, al indicarle directamente el picture el carga inmediatamente.

- Segundo, no te funciona porque estas cargando la imagen en el onShow del formulario y no puedes hacerlo ya que estás intentando mostrar la imagen antes de que se muestre el propio formulario, lo suyo sería que lo hicieras en el evento OnActivate del formulario por ejemplo.

Pruébalo así a ver si te funciona.

Si sigue sin funcionar seguramente sea porque path+nomFoto no está apuntando al nombre exacto de la imagen y deberás revisar eso añadiendo un breakpoint a esa linea para ver su valor.

Espero te sirva,

Saludos

[johurgi]

Gracias bicho.

Pero ahora me da un nuevo error.
"JPEG error #53".
Y este si que no se de que es

[[Bicho]]

Por lo que se es un error de Insufficient Memory...

La imagen es muy grande? El ordenador poco potente?

[johurgi]

Que va, es un Pentium iV a 3GHz con casi un Giga de ram.
Por eso no creo que sea.