Extraer Imagenes

[Toni-2006]

En la actualidad trabajo con un programa de punchado que convierte los diseños en "datos" para que una máquina de bordar "lo entienda". Pues bien, cuando accedo al directorio donde están los ficheros con el explorer de windows, si seleccionas vistas en miniatura, puedes ver una pequeña imagen del fichero.
La pregunta es: ¿se puede extraer desde delphi esta imagen?

Muchas gracias y un saludo.

[[cHackAll]]

Talvez el truco 467 te sea de utilidad, u otro con la palabra "thumb".

Saludos

[roman]

IExtractImage Interface Exposes methods that request a thumbnail image from a Shell folder.

¡Vaya! Y yo intentando hacerlo a la antigüita. No sabía de esa interfaz, gracias por el truco Javier.

// Saludos

[MaMu]

Empezado por cHackAll

Talvez el truco 467 te sea de utilidad, u otro con la palabra "thumb".

Saludos

Será aplicable al addFolder de un ShellListView? Sigo intentando emular las vistas en minuatura del explorador de windows.

[Delfino]

Te puede interesar el componente JvImageListViewer de la JVCL..

[Toni-2006]

Muchísimas gracias por la aportación, pero estoy utilizando Delphi 7 y tengo los siguientes errores:

Result:= nil; -- Incompatyble types: 'tagBitMap' and 'Pointer'

Result:= TBitMap.Create; -- Object or class type required

Result.Handle:= hBitMap; -- Undeclared identifier: 'Handle'

Alguna idea? Gracias.

[Toni-2006]

Bueno ya he conseguido que no hayan errores al compilar, pero al pulsar el botón para acceder al fichero del que quiero ver la imagen tengo este error de sistema:

Violación de acceso en la dirección......

La línea donde parece que está el error es:

if LongBool(Folder.ParseDisplayName(0, nil, lpFileName, PDWORD(0)^, ItemIDList, PDWORD(0)^)) then Exit;

Y lo que le digo yo para que extraiga la imagen:

Image1.Picture.Assign(GetThumbnail('c:\wingsxp2\designs\06pdb001.ngs', 'c:\06pdb001.jpg', 96, 96));

[Toni-2006]

Y para más información, el programa en cuestión tiene una DLL que en su descripción pone 'MLS/NGS file shell extension'

[[cHackAll]]

Empezado por Toni-2006

Image1.Picture.Assign(GetThumbnail('c:\wingsxp2\designs\06pdb001.ngs', 'c:\06pdb001.jpg', 96, 96));

El primer parámetro de la función GetThumbnail espera al ruta o carpeta que contiene el archivo gráfico, y el segundo parámetro es el nombre del archivo contenido en la carpeta anteriormente definida, Ej;

Código Delphi [-]
Image1.Picture.Assign(GetThumbnail('c:\wingsxp2\designs', '06pdb001.ngs', 96, 96));

Empezado por Toni-2006

...el programa en cuestión tiene una DLL que en su descripción pone 'MLS/NGS file shell extension'

Si el anterior ejemplo te retorna un gráfico vacío o te da un error, sube la DLL que comentas para ver si la podemos utilizar.

Saludos

[Toni-2006]

Bufffff, por fin. No te puedes imaginar lo que te agradezco la ayuda prestado, porque preguntando a los "fabricantes" del soft, me habían dicho que era muy complidado y que no podría hacerlo.

Muchíiiiiiiiiisimas gracias y un saludo.

P.D.: No soy programador profesional ni me dedico a ello, simplemente me gusta hacerme algunas cosas que complementen otras, así que esto es sólo para uso y disfrute personal.