Hola a todos
Estoy teniendo un problema....
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;
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;
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!
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...