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));