Problemas con Picture.LoadFromFile

[[Al González]]

¡Hola a todos!

Ohcan:

Espero que te haya funcionado la importante observación que hizo Hector.

Por otra parte, después de examinar el código fuente detecté dos bloques que pueden simplificarse:

En lugar de:

Foto := TPicture.Create;
Foto.LoadFromFile (Ruta);
Imagen.Picture := Foto;
Foto.Free;

creo que puedes poner simplemente:

Imagen.Picture.LoadFromFile (Ruta);

Y en lugar de:

if (UpperCase(ExtractFileExt(Ruta))='.GIF') or
(UpperCase(ExtractFileExt(Ruta))='.BMP') or
(UpperCase(ExtractFileExt(Ruta))='.JPG')then

podría sugerir el uso de la función ghEnCadenas (unidad IGHCadenas.pas de Interfaz GH 7) de la siguiente manera:

If ghEnCadenas (['.GIF', '.BMP', '.JPG'], ExtractFileExt (Ruta)) Then

La función ghEnCadenas devuelve True si la cadena indicada se encuentra dentro (en) del arreglo dado, con la ventaja de que la comparación es insensible al tamañao (no importa si la extensión del archivo está en mayúsculas o en minúsculas).

Espero esto sea de utilidad, seguimos en contacto.

Al González .