Problemas con Picture.LoadFromFile
 

Hola a todos

Estoy teniendo un problema.... :confused:
Os pongo el código:

Código Delphi [-]
procedure TwPrincipal.ShellListViewClick(Sender: TObject);
var
Ruta:string;
Foto:TPicture;
begin
if ShellListView.SelectedFolder<>nil then
Ruta := ExtractFilePath(ShellListView.RootFolder.PathName) +
ShellListView.SelectedFolder.DisplayName
else Exit;
//ShowMessage(Ruta); //Para ver qué pasa
if (UpperCase(ExtractFileExt(Ruta))='.GIF') or
(UpperCase(ExtractFileExt(Ruta))='.BMP') or
(UpperCase(ExtractFileExt(Ruta))='.JPG')then
begin
Foto := TPicture.Create;
Foto.LoadFromFile(Ruta);//'D:\Cosas\101.gif' Si pongo la ruta así funciona
Imagen.Picture := Foto; //Imagen es un TImage
Foto.Free;
end;
end;

El problema está en Foto.LoadFromFile(Ruta);
He comprobado que la ruta "se llena" correctamente... de verdad ¡es correcta!
pero en esa línea me canta el error:
Cannot open file "Aquí pone la ruta". El sistema no puede hallar el archivo especificado.
¡Lo flipo! :confused: :confused: :confused:
Sin embargo, si pongo "a pelo" una ruta (Ej:'D:\Cosas\101.gif') funciona "ferpectamente".

¿Alguno podéis echarme una mano?

Se me olvidaba... uso Delphi7.

Muchas gracias y saludos...:)

Hola ohcan!

He revisado tú código y encontré un problema.

Si utilizas la función ExtractFilePath() ésta te elimina de la ruta el último nivel del directorio, de tal forma que cuando concatenas con DisplayName la cadena queda incompleta.

Bueno mi sugerencia es la siguiente, sólo hice algunos cambios menores.

Código Delphi [-]
procedure TForm1.ShellListViewClick(Sender: TObject);
var
  Ruta:string;
  Foto:TPicture;
begin
   if ShellListView.SelectedFolder<>nil then
     Ruta := IncludeTrailingPathDelimiter(ShellListView.RootFolder.PathName) +
               ShellListView.SelectedFolder.DisplayName
   else
     Exit;
   if(UpperCase(ExtractFileExt(Ruta))='.GIF') or
    (UpperCase(ExtractFileExt(Ruta))='.BMP') or
    (UpperCase(ExtractFileExt(Ruta))='.JPG')then
    begin
       Foto := TPicture.Create;
       Foto.LoadFromFile(Ruta);
       Imagen.Picture := Foto;
       Foto.Free;
    end
   else
      Imagen.Picture:=nil; // Si el archivo no es algún formato conocido limpia la imagen
end;

Seguimos en contacto, un saludo.

Dos sugerencias
 

¡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:
creo que puedes poner simplemente:
Y en lugar de:
podría sugerir el uso de la función ghEnCadenas (unidad IGHCadenas.pas de Interfaz GH 7) de la siguiente manera:
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 :).

¿Y qué tal así?

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

// Saludos

Gracias
 

¡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

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

¡Hola de nuevo!

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.