FiveTech Support Forums

HB_FUNC( GDIPLUSIMAGERESIZE )
{ 
     int nWidth =  hb_parni( 2 );
   int nHeight = hb_parni( 3 );
   Bitmap * original = ( Bitmap * ) hb_parnl( 1 );
   //Bitmap * original = new Bitmap(  (LPCWSTR) hb_parc(1)  );  
 
   Bitmap* newImage  = new Bitmap( nWidth, nHeight); 
   Graphics * graphics = new Graphics( newImage );
  graphics->DrawImage( original ,0, 0, nWidth, nHeight);
  delete original ;   // nuevo 
   delete graphics ; // nuevo 
 hb_retnl( ( HB_LONG ) newImage );
 
}

METHOD Destroy() CLASS GDIBmp
      GlobalUnlock (::hBmp)
      GlobalFree (::hBmp)
      ::hBmp = nil
return nil

HB_FUNC( GDIPLUSIMAGESAVE )
{ 
  Bitmap * newImage = ( Bitmap * ) hb_parnl( 1 );
  CLSID cClsid ;
  LPWSTR file = (LPWSTR) hb_parc(2);
  LPWSTR identificador =  (LPWSTR) hb_parc(3);
  CLSIDFromString( identificador, &cClsid ) ;
   newImage->Save( file , &cClsid, NULL);
  delete newImage; // nuevo
}

HB_FUNC( GDIPLUSIMAGEDISPOSE )
{ 
  Bitmap * newImage = ( Bitmap * ) hb_parnl( 1 );
   delete newImage; 
}

       ::oWndUI:SaveToBmp( Self:cBmpWndUI )                  //".PNG"

METHOD SaveToBmp( cBmpFile ) CLASS TWindow

   local hBmp := WndBitmap( ::hWnd )
   local hDib := DibFromBitmap( hBmp )

   DibWrite( cBmpFile, hDib )
   GloBalFree( hDib )
   DeleteObject( hBmp )

return ( File( cBmpFile ) )

Function GrabaWnd( hWnd, cImageEnd, nWidtn , nHeight )

local othumb
 local hBmp := WndBitmap( hWnd )   // recogemos el hbmp 
local hGDIbmp := GDIPLUSCREATEIMAGEFROMRES(  hbmp )   // creamos un puntero a la  imagen gdi+ desde el hbmp 
local obmp:=GDIBmp():new()         // inicializamos la clase en vacio 
        obmp:hBmp:= hGDIbmp          // y le asigmamos el puntero anterior , ya esta la clase completa.
  oThumb:=   obmp:CreateThumbnail( nWidth, nHeight )   // ahora creamos un thumbnail del tamaño que queremos 
 oThumb:Save( cImageEnd )     // y grabamos la imagen  donde queramos con el formato que queramos .
  oThumb:dispose()   //liberamos memoria
  obmp:dispose()      

Return nil