FiveTech Software tech support forums

Dear Yuri,

You may try this:

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

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=17946&p=94733&hilit=dibfrombitmap&sid=4145d4cab4353c133fcf645a3fabcfed&sid=475b5970acea408a72316edfff46f630#p94733 https://forums.fivetechsupport.com/viewtopic.php?f=6&t=17947&p=93824&hilit=dibfrombitmap&sid=4145d4cab4353c133fcf645a3fabcfed&sid=475b5970acea408a72316edfff46f630#p93824 ...

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

... ) && aqui lo pinta en 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 ?


... into a bitmap: METHOD SaveToBmp( cBmpFile ) CLASS TWindow   local hBmp := WndBitmap( ::hWnd )   local hDib := DibFromBitmap( hBmp )   DibWrite( cBmpFile, hDib )   GloBalFree( hDib )   DeleteObject( hBmp ...

... not silent. METHOD Save2Bmp( 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

... ) if YES = hDib2 = FICONVTO32( hDib ) the needed changes in class TImage : METHOD SaveImage( cFile, nFormat, nQuality ) CLASS TImage local hDib := DibFromBitmap( ::hBitmap, ::hPalette ) local cTempFile := cTempFile() local lSaved, lAlpha := ::HasAlpha() DibWrite( cTempFile, hDib ) GloBalFree( hDib ...

Uwe,

I think that FWH function DibFromBitmap() may not be properly saving the alpha channel.

You can review its source code here:
source\winapi\dibbmp.c

I guess we will have to google about it, or maybe FreeImage has a function that may help us...

... ?)    WINDOW.PRG      552  3658 DESTROYWINDOW()        (function  in ?)    WINDOW.PRG     3609 DIALOG                  WINDOW.PRG     3892  3901 DIBFROMBITMAP()        (function  in ?)    WINDOW.PRG     2014 DIBWRITE()             (function  in ?)    WINDOW.PRG     2016 DLL                   ...

Carlos,

"Dib No Valido"

No entiendo de "C" pero esto me hace pensar que falla en la función "HB_FUNC( DIBFROMBITMAP )" contenida en el "dibbmp.c"

Como decía el Chapulín Colorado: Y ahora, ¿Quién podrá ayudarme?.

Gracias.

Rolando

...  ReleaseDC( 0, hDC )return hBmp  Para guardarlo en un fichero, primero tenemos que pasarlo a DIB de esta forma: hDib = DibFromBitmap( hBmp ) lo escribimos en un fichero: DibWrite( cNombreFichero, hDib ) Liberamos la memoria del DIB: GlobalFree( hDib ) y liberamos la ...

... generado. ¿podeis ayudarme en esta tarea?. ¿Como hago para grabar el bmp con el codigo de barras en el disco? ASI SE CREA EL BMP EN DISCO: hDib := DibFromBitmap( oCode:hCodeBar ) DibWrite( "barras.bmp", hDib ) saludos shock: