FiveTech Software tech support forums

Dear Yuri,

You may try this:

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

... SayImage METHOD SayImage( nArriba,nIzq,nAncho,nAlto,xImage,lImage,lPage,nRaster ) CLASS TUtilPrn Local xCor := {},yCor := {},yyCor := {} local hDib, hPal, hBmp DEFAULT lImage := .F. ,; lPage := .F. ,; nArriba := 0.5,; nIzq := 0.5 ,; // medio cm. para margenes de PAGE nAncho := 0,; nAlto := ...

... hDC ) local hBitmap := CreateCompatibleBitmap( hDCMem, nWidth, nHeigth ) local hPrev := SelectObject( hDCMem, hBitmap ) local hBmp, hDib now you paint your bitmaps on hDCMem this way: hBmp = ReadBitmap( 0, "name.bmp" ) PalBmpDraw( hDCMem, nRow, nCol, hBmp ) Finally you ...

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

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

... 0, 0 ) && 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

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 ?


Hi ! 1. // comes from image.prg static function FISAVEIMG( cSrcFile, cDstFile, nDstFormat, nQuality ) local nSrcFormat, hDib, hDib2, lOk := .f. DEFAULT nQuality := 0 if LoadFreeImage() > 32 nSrcFormat = FIGETFILETYPE( cSrcFile, 0 ) hDib = FILOAD( nSrcFormat, cSrcFile, 0 ) hDib2 ...

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

... have you tried that? I haven't tried it but I don't see anything that make it to be 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 ) ...

... Alphablended works ONLY with 32 bpp !!! We can check, if there is a alpha-channel if NO = hDib2 = FICNV24( hDib ) if YES = hDib2 = FICONVTO32( hDib ) the needed changes in class TImage : METHOD SaveImage( cFile, nFormat, nQuality ) CLASS ...

... to output.png: *-------------------------------------------------------------------------------------------------------------------------------- hDib = FILOAD( nSrcFormat, cSrcFile, 0 ) // load "input.png" !!?? lOk = FISAVE( nDstFormat, hDib, cDstFile, 0 ) // when PNG is loaded from ...

found! DibToStr( hDib )

thanks

Marcelo

Carlos,

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

DibWrite( cNombreFichero, hDib )

... grandes, son muchos de 1 pàgina sin imágenes de unos 130Kb cada uno más o menos. He visto que el error se da en la línea: "cBuf := DibToStr( hDib )" de la función Emf2Jpeg() del fichero prv2pdf.prg Mi mail: siperono @ gelbla . com

...  2929  2938  2944  2946                   2954  2962  2963  2964  2966  2973  3751  4146! 4148 HDCCHILD                WINDOW.PRG      530   533 HDIB                    WINDOW.PRG     2014  2016  2017 HDROP                  WINDOW.PRG      562  1535  1540  1541  1544 HELPF1()               (function ...