Extraer Imagenes

[[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