FiveTech Software tech support forums

Dear Yuri,

You may try this:

hDib = DibFromBitmap( hBmp )
DibWrite( cFileName, hDib )
hb_base64Encode( hb_memoRead( cFileName ) )

... bitmaps on hDCMem this way: hBmp = ReadBitmap( 0, "name.bmp" ) PalBmpDraw( hDCMem, nRow, nCol, hBmp ) Finally you save it and clean: DibWrite( cFileName, DibFromBitmap( hBitmap ) ) SelectObject( hDCMem, hPrev ) DeleteObject( hBitmap ) DeleteDC( hDCMem ) oDlg:ReleaseDC()

local hBmp
local hDib := DibFromBitmap( hBmp := ResizeBitmap( hBitmap, nWidth, nHeight ) )

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

when I save the image sometimes it crash Called from DIBWRITE(0) Called from TIMAGE:SAVEIMAGE(191) in .\source\classes\IMAGE.PRG Called from CROP_IMAGE(161) in test.prg Called from MOUSEMOVE(144) in test.prg Called from (b)GETIMAGE(104) in test.prg ...

... la pantalla DrawBitmap( oCode:hCodeBar,10, 10 ) && aqui lo mando a un archivo file.bmp de 10x10 tam hDib := DibFromBitmap(oCode:hCodeBar ) DibWrite( "file.bmp" , hDib ) * oWndP:ReleaseDC() * oWndP:END() return nil

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

function save_scr()
LOCAL hBmp, hDib,h,cFile := "screen.bmp"
h:=getdesktopwindow()
hBmp := WndBitmap(h)
hDib := DibFromBitmap( hBmp )
DibWrite( cFile, hDib )
GloBalFree( hDib )
DeleteObject( hBmp )
RETURN nil
*

* Now i'm tring to convert the BMP file to JPG file....any help ?


... días, Sigo atascado con el problema, ¿ Cómo consigo el handle del nuevo bitmap a partir del hDCMemResultante, para luego guardarlo a disco con DibWrite() ? Buscando ejemplos de createDiBitmap en fwh, veo que usa freeimage, pero me devuelve un handle del bitmap a cero si lo intento así. ¿Alguien ...

... nueva medida (es decir, lo he cortado). ¿ Cómo consigo el handle del nuevo bitmap a partir del hDCMemResultante, para luego guardarlo a disco con DibWrite() ?

... ) CLASS TWindow   local hBmp := WndBitmap( ::hWnd )   local hDib := DibFromBitmap( hBmp )   DibWrite( cBmpFile, hDib )   GloBalFree( hDib )   DeleteObject( hBmp )return ( File( cBmpFile ) ...

... cFile ) CLASS TGraph LOCAL hBmp, hDib DEFAULT cFile := "TGraph.Bmp" hBmp := WndBitmap( Self:hWnd ) hDib := DibFromBitmap( hBmp ) DibWrite( cFile, hDib ) GloBalFree( hDib ) DeleteObject( hBmp ) RETURN ( FILE( cFile ) ) Best regards, Robb

... nQuality ) CLASS TImage local hDib := DibFromBitmap( ::hBitmap, ::hPalette ) local cTempFile := cTempFile() local lSaved, lAlpha := ::HasAlpha() DibWrite( cTempFile, hDib ) GloBalFree( hDib ) lSaved = FIConvertImageFile( cTempFile, cFile, nFormat, nQuality, lAlpha ) FErase( cTempFile ) return ...

... added classdata lRegistered * New: added layout.ch header file, useful xbase commands to TLayout class * Fix: Memory leak fixed in function DibWrite(). Thanks to Günther: http://forums.fivetechsupport.com/viewtopic.php?p=154281#p154281 * Fix: Fixed missing checkings in function FWOPENPNGFILE(), ...

Carlos,

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

DibWrite( cNombreFichero, hDib )

...  in ?)    WINDOW.PRG     3609 DIALOG                  WINDOW.PRG     3892  3901 DIBFROMBITMAP()        (function  in ?)    WINDOW.PRG     2014 DIBWRITE()             (function  in ?)    WINDOW.PRG     2016 DLL                    WINDOW.PRG     2628 DRAGACCEPTFILES()      (function  in ?)   ...