Recuperar Filename de un Timage

[Neeruu]

Hola como estan?
Tengo un problema y quisiera que me ayuden...
Cargo en un Timage, que es creado en tiempo de ejecucion, un imagen.
El asunto es que despues necesito saber de donde fue cargada esa imagen que esta en ese Timage...
En el evento OnClick del Timage es donde quiero recuperar el filename...
Necesito el filename porque tengo que pasarselo a otro procedimiento.

Espero puedan guiarme..

Saluda Atte Neeruu

[dec]

Hola,

Hasta donde yo llego el componente carga el archivo de imagen y ya está, no almacena su ruta en ningún sitio, entre otras cosas, porque es posible asignar una imagen al componente, no desde un archivo, sino desde un "stream", por ejemplo. Ahora bien, si tú mismo cargas la imagen... ¿por qué no guardas la ruta del archivo en alguna variable para recuperarla cuando te sea menester? Hasta ahí llego, vamos.

[Neeruu]

Gracias Dec por tu respuesta tan rapida

Mira te comento como es la situacion capas se te ocurra algo...

En un bucle cargo imagen dentro de un TImage que se va creando a medida que voy cargando las imagenes..., Pueden ser 1...2...5...10... etc
Y esos TImage son insertados dentro de un panel ( quedando algo asi como un PageSroller) con todas las imagenes dentro...

En el evento DobleClick del Timage tengo que recuperar ese Filename para poder pasar a otro procedimiento (al de las EXIF, que te vuelvo a agradecer por la info) para extraer las Tag de Exif...

Bueno si no se puede sabes de otro compomente que maneje imagenes que me pueda ser util...

Atte Saluda Neeruu

[dec]

Hola,

Lo que se me ocurre no me parece muy elegante, pero, así a bote pronto... tal vez podría funcionar más o menos:

Código Delphi [-]
var
  imgPath: PChar;
begin
  imgPath := 'clubdelphi.bmp';
  Image1.Tag := Integer(imgPath);
  Image1.Picture.LoadFromFile(imgPath);

Es decir, se trata de guardar en la propiedad "Tag" del componente la ruta del archivo de imagen. Esta ruta podría luego recuperarse tal que así:

Código Delphi [-]
var
  s: PChar;
begin
  s := Image1.Tag;
  ShowMessage(s);
end;

Pero, reconozco que estoy un poco perdido aquí. No sé muy bien qué pasa. No sé muy bien "a qué apunta" la propiedad "Tag", no sé si aquello a lo que apunte "se liberará" correctamente. Aparentemente funciona, pero, creo que tiene que haber mejores soluciones. A ver si a algún compañero se le ocurre algo mejor.

[Neeruu]

Hola Dec encontre un solucion no tan rapida como la tuya pero creo que vale...

A partir de un TImage me hice un compomente TImageExt con una propiedad
Filename.... Esta propiedad no se carga sola y solo sirve para guardar el Path de la imagen....

Las Funciones las saque de un TFilenameEDit de las RX

Lo publico y capas puedas ayudarme a que esa propiedad se cargue automaticamente cuando cargo una imagen....solo para dejarlo completo...


Sino sirve igual


Saluda Atte Neeruu

[dec]

Hola,

Echando un vistazo por encima se me ocurre una idea: añadir un procedimiento "LoadFromFile" a tu componente "TImageEx". Y usar este procedimiento para cargar las imágenes (y aprovechar para guardar su ruta en la oportuna variable). Hasta ahí puedo llegar, no sé si será muy elegante y si no habría alguna otra solución que lo sea más.