MakeThumbNail en FreeImage

[carlos vargas]

Podria alguien implementar hacer un thumbnail con freeimage, lo he intentado pero no se como guardar el archivo destinol

static FIBITMAP MakeThumbnail(
FIBITMAP dib,
int max_pixel_size,
bool convert
)

dib
Type: FreeImageAPI.FIBITMAP
Handle to a FreeImage bitmap.
max_pixel_size
Type: System.Int32
Thumbnail square size.
convert
Type: System.Boolean
When true HDR images are transperantly converted to standard images.

Code: Select all  Expand view

DLL32 FUNCTION FMAKETHUMBNAIL( hDib AS LONG, nMaxPixelSize AS INTEGER, lConvert AS BOOL ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_MakeThumbnail", "_FreeImage_MakeThumbnail@12" ) LIB hLib
 

Code: Select all  Expand view

function FIMakeThumbNail( cSrcFile, cDstFile, nSize )

   local nSrcFormat, hDib, hDib2, lOk := .f.

   DEFAULT nQuality := 0

   if LoadFreeImage() > 32

      nSrcFormat = FIGETFILETYPE( cSrcFile, 0 )

      hDib = FILOAD( nSrcFormat, cSrcFile, 0 )
      hDib2 = FIMAKETHUMBNAIL( hDib, nSize, FALSE )
     
      //
      //lOk = FISAVE( nDstFormat, hDib2, cDstFile, nQuality )
      //

      FIUNLOAD( hDib )
      FIUNLOAD( hDib2 )

   endif

return lOk
 

[Antonio Linares]

Carlos,

Una vez hayas obtenido el hDib del Thumbnail, lo puedes salvar a disco asi:

DibWrite( cNombreFichero, hDib )

[carlos vargas]

Gracias, Antonio, modifico, pruebo y comento.
salu2

[carlos vargas]

Bueno, ya ha quedado:
seria interesante como un methodo de la clase timage y tbitmap, asi como que creara el thumbnail de un resource, o que lo creara a memoria.

Antonio, lo podrias agregar de serie a fwh?

como usar

Code: Select all  Expand view

...
   FIMakeThumbNail( ".\resource\bitmaps\bm_menu.bmp", ".\pequeno.bmp", 32 )
   FIMakeThumbNail( ".\resource\bitmaps\pan_setting.png", ".\pan_setting.png", 32 )
...
 

agregar a image.prg

Code: Select all  Expand view

DLL32 FUNCTION FMAKETHUMBNAIL( hDib AS LONG, nPixel AS LONG, lConvert AS BOOL ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_MakeThumbnail", "_FreeImage_MakeThumbnail@12" ) LIB hLib

 

Code: Select all  Expand view

function FIMakeThumbNail( cSrcFile, cDstFile, nPixel )
   local nSrcFormat, hDib, hDib2, lOk := .F.

   if LoadFreeImage() > 32

      nSrcFormat := FIGETFILETYPE( cSrcFile, 0 )
      hDib       := FILOAD( nSrcFormat, cSrcFile, 0 )
      hDib2      := FMAKETHUMBNAIL( hDib, nPixel, .T. )

      lOk = FISAVE( nSrcFormat, hDib2, cDstFile, 0 )

      FIUNLOAD( hDib  )
      FIUNLOAD( hDib2 )

   endif

return lOk
 

[Antonio Linares]

Carlos,

Añadido. muchas gracias

[Silvio.Falconi]

can see a simply test sample ?

[J. Ernesto]

Amigos, a partir de que versión de fivewin se puede implementar las miniaturas con thumbnail.

Gracias

[cnavarro]

FWH 13.11

viewtopic.php?f=16&t=27848