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 .

[roman]

¿Y qué tal así?

Código Delphi [-]
if Pos(ExtractFileExt(Ruta) + '?', '.GIF?.BMP?.JPG?') <> 0 then

// Saludos

[[Ohcan]]

¡Muchas gracias a todos!
Ahora funciona perfectamente... y ahora me estudiaré bien el porqué (no me gusta tropezar 2 veces en la misma piedra...).
Al, lo de la variable Foto era porque ayer (hoy funciona bien como tú dices) no me cogía los jpg si no lo hacía así (??).
Lo del ghEn no me funciona, pero investigaré un poco (aún no he podido)...
Y, gracias, Roman. Me ha parecido una solución muy elegante, pero he tendio que modificarla:
if (ExtractFileExt(Ruta)<>'') and //para que no tenga en cuenta las carpetas
(Pos(UpperCase(ExtractFileExt(Ruta)) + '?', '.GIF?.BMP?.JPG?')<>0) then


Saludos

[roman]

Empezado por Ohcan

pero he tendio que modificarla:
if (ExtractFileExt(Ruta)<>'') and //para que no tenga en cuenta las carpetas
(Pos(UpperCase(ExtractFileExt(Ruta)) + '?', '.GIF?.BMP?.JPG?')<>0) then

Cierto, no cubría el caso de extensiones vacías, aunque creo que esto debe funcionar:

Código Delphi [-]
if Pos('*' + Uppercase(ExtractFileExt(Ruta)) + '?', '*.GIF?*.BMP?*.JPG?') <> 0 then

// Saludos

[[Al González]]

¡Hola de nuevo!

Empezado por Ohcan

...Lo del ghEn no me funciona, pero investigaré un poco (aún no he podido)...

Pues estoy a tus órdenes, si te puedo ayudar en algo.

Saludos.

Al González .

Si el oído pensara, el corazón hablaría.