Previsualizador de archivos.

[afxe]

Hola grupo.

Me gustaría poder previsualizar un archivo a la manera que lo hace la ventana de preview del "Explorador de Archivos" de windows. Principalmente serán archivos .JPG, .BMP, .PDF, .DOCX, .XLSX, .TXT y .MSG. Todos ellos, el Explorador de archivos los previsualiza rápido y bien. Probé a meter un TWebBrowser y podía ver los JPG, BMP y PDF, pero no el resto, y además tuve problemas con los PDF para ejecutarse en diferentes equipos. Luego vi interesante IPreviewHandler, y consigo previsualizar DOCX y XLSX aceptablemente (un poco lento), pero no el resto de tipos de archivo.

¿Alguien ha conseguido instanciar el previsualizador de windows para usarlo dentro de una aplicación? ¿Podría pasar un programa de ejemplo? ó... ¿conoceís algún componente que haga esto?

[Casimiro Notevi]

Creo que tendrás que usar varios programas, uno para las imágenes, otro para los pdf, etc.
De todas formas, ejecutando un "open" de cada uno, será el propio windows el que lo abra con el programa asociado que tenga.

[afxe]

Gracias Casimiro.

Eso también lo hago... pero si hay muchos archivos, por ejemplo, un montón de correos o PDF, es interesante previsualizar para no tener que ir abriendo uno a uno. Por cierto, uso Delphi7... he visto algunas soluciones para XE pero no las puedo usar.

La opción de usar un page control con varios visualizadores es tentadora... y lo terminaré haciendo así si no consigo que me funcione el IPreviewHandler, pero si un usuario desea añadir más archivos a la base de datos documental con extensiones que no contemplo, tendría que ir buscando y añadiendo visualizadores.

Si alguien ha implementado el interface iPreviewHandler en delphi 7 me vendría genial.

[afxe]

La compañía JamSoftware comercializa el paquete "ShellBrowser Delphi Components". Contiene un componente que se llama TJamFilePreview, que permite previsualizar el contenido de un fichero sin abrirlo, tal y como hace el preview del windows explorer. No es muy caro, pero no es compatible con Delphi7, solo para las versiones XE y posteriores.

Esto lo pongo por si alguien busca algo parecido a lo que pido y está trabajando con versiones de delphi compatibles, pero yo no encuentro algo así para Delphi 7.

[[duilioisola]]

Busca información sobre ExtractImageGetFileThumbnail.

aquí hay un ejemplo.
otro

Cuando no puedas obtener la imagen, puedes pedir el icono mediante GetFileLargeIcon.