Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Visor documentos *.tif (https://www.clubdelphi.com/foros/showthread.php?t=69423)

isnagil 17-08-2010 12:00:13

Visor documentos *.tif
 
Tengo que abrir ficheros .tif en una aplicación delphi. He estado mirando en los foros y la solución

Código:

ShellExecute(0, 'open', 'c:\Windows\System32\rundll32.exe', 'c:\Windows\System32\shimgvw.dll,ImageView_Fullscreen c:\imagen.jpg', nil, SW_NORMAL);
funciona con ficheros .jpg pero no con .tifs ¿Alguien podría darme una solución? Me estoy volviendo loco con algo que parece muy sencillo.

ElDioni 17-08-2010 12:26:19

Yo creo que no te funciona porque no tienes instalado en tu equipo ningún programa que pueda abrir archivos tif, al hacer el shellexecute, creo (si no es así que me corrijan) que lo que haces es pasarle la responsabilidad a windows para que te abra el archivo con el programa que el tenga asociado a esa extensión, los jpg te los abre y los tif no por el tema que te comento.
Un saludo.

isnagil 17-08-2010 12:37:15

Claro. Es el visor de imágenes y faxes de windows el que tiene que abrir el tif pero no lo hace con esta instrucción, pero si cuando se pincha dos veces directamente sobre el archivo.

ElDioni 17-08-2010 13:43:55

Que raro, yo creo que debería abrirse sin problemas, supongo que si entras al listado de extensiones de windows y ves la .Tif estará asociada a un programa, ¿no?, he probado tu código y a mi si que me funciona y me lo carga con el visor de windows. ¿prueba sino con el winexec?
Un saludo.

isnagil 17-08-2010 14:06:11

Si. Los archivos con extensión tif tienen asociados por defecto el visor de windows, por eso se abren al pinchar dos veces, pero no desde delphi.
¿Has probado con un archivo tif que tenga varias hojas, o sea, con un multipage?

ElDioni 17-08-2010 14:11:08

Pues no, solo he probado con una imagen tif simple, ¿has probado tú la opción del winexec a ver que hace?

Un saludo.

ElDioni 17-08-2010 14:34:30

Código Delphi [-]
WinExec(PChar('c:\Windows\System32\rundll32.exe c:\Windows\System32\shimgvw.dll,ImageView_Fullscreen C:\Imagen.tif'), SW_SHOWNORMAL);

Un saludo.

isnagil 17-08-2010 14:37:56

Muy bueno:

Funciona con winexe, que cosa más rara!!!
Bueno gracias!!!


La franja horaria es GMT +2. Ahora son las 06:56:22.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi