Abrir una imagen desde un Timage

[pablopessoa]

hola, tengo un Jpg cargado en un Timage y quiero saber como se puede hacer para, al darle click en la imagen, se abra para ver en tamaño real con el visor de imagenes que tenga por defecto la maquina del usuario. Muchas Gracias!

[dec]

Hola,

Lo primero que necesitas es la ruta del archivo que contiene la imagen. Con esa información puedes utilizar la función "ShellExecute()", que, se encuentra en la unidad "ShellApi". Algo más o menos así:

Código Delphi [-]
ShellExecute(Handle, 'open', 'ruta-imagen', nil, nil, SW_NORMAL);

También podrías preparar un formulario que contuviera únicamente un "TImage", por ejemplo, al que podría asignar la imagen correspondiente: de esta forma la información sobre la ruta de la imagen ya no sería necesaria.

[pablopessoa]

estoy probando ese codigo que me pasaste y cuando le hago click al timage en ejecucion, algo procesa delphi, pero no se abre la imagen... me meti en la ayuda de delphi para ver bien lo del shell y esta tal cual lo pusiste.. pero no me lo abre :S

[[Caral]]

Hola
A mi si me sirve, funciona perfectamente.
Interesante y sencillo código Dec.
Saludos

[[duilioisola]]

Originally Posted by pablopessoa

cuando le hago click al timage en ejecucion, algo procesa delphi, pero no se abre la imagen...

Asegúrate de que el path y la imágen son correctos

Código Delphi [-]
ShellExecute(Handle, 'open', 'C:\Imagenes\Imagen.jpg', nil, nil, SW_NORMAL);

[pablopessoa]

ya descrubri cual es el problema, vos me pones la ruta de la imagen asi
"'C:\Imagenes\Imagen.jpg'"
pero yo necesito pasarle una variable que contiene la ruta por que se me crea en tiempo de ejecucion la ruta, y no puedo pasar una variable por que me pide un string o no me compila, como puedo hacer para pasarle la ruta en una variable?

[dec]

Hola,

A ver si va a ser que tienes una variable de tipo "String" y "ShellExecute()" precisa de un "PChar"... si es esto prueba con:

Código Delphi [-]
ShellExecute(Handle, 'open', PChar(Variable), nil, nil, SW_NORMAL);

[pablopessoa]

listo encontre la respuesta, por si alguno lo necesita la solucion es castear el string a PansiChar que es lo que espera la funcion ShellExecute, la linea quedaria asi

ShellExecute(Handle, 'open',PAnsiChar(ruta_a_guardar), nil, nil, SW_NORMAL);

donde ruta_a_guardar es una variable de tipo String que contiene la ruta a donde esta la foto.
muchas gracias por responderme, no ubiese podido encontrar respuesta si no me pasabas esa funcion, gracias!

[pablopessoa]

jajajaja posteamos los dos juntos... perdon soy medio bruto, empeze a principio de año con delphi no mas, muchas gracias!

[Esquivel]

Pongo el código que os a veis echo y me sale un error en la palabra ShellExecute. Porqué sale ese error que me falta

[Casimiro Noteví]

Originally Posted by Esquivel

Pongo el código que os a veis echo y me sale un error en la palabra ShellExecute. Porqué sale ese error que me falta

Lee la entrada #2