FiveTech Software tech support forums

Hola Otto modifica esto:

GlobalAllocPtr -> GlobalAlloc
GlobalFreePtr -> GlobalFree

Por otro lado he investigado un poco el tema y creo que he visto algo en el propio Harbour.

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

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

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 ?


... := WndBitmap( ::hWnd )   local hDib := DibFromBitmap( hBmp )   DibWrite( cBmpFile, hDib )   GloBalFree( hDib )   DeleteObject( hBmp )return ( File( cBmpFile ) ) If you want to save the entire desktop ...

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

... 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 lSaved //---------- function ...

... GETWNDDEFAULT()        (function  in WINDOW.PRG)    WINDOW.PRG     3224! 3425  3426 GETWNDRECT()           (function  in ?)    WINDOW.PRG     1707 GLOBALFREE()           (function  in ?)    WINDOW.PRG     2017 GLOBALGETATOMNAME()    (function  in ?)    WINDOW.PRG     1456  1457 GODOWN()         ...

... 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 memoria del bitmap: DeleteObject( hBmp )

Antonio,

Me alegro de que el asunto quede resuelto

Antonio, Encontrado el problema; resulta que yo utilizo una RPreview modificada por algun compañero del foro, siento no recordar el nombre; es una RPreview que lleva una TListView con las miniaturas de las paginas. Pues bien, he puesto la preview original de fwh y YA NO HAY CONSUMO DE MEMORIA !! Muc...

Antonio, RESPUESTA 1: Pues siento decirte que creo que NO es la StretchDIBits() porque si modifico lo que me has mandado y pongo: ...//        if( ( wWidth == 0 ) || ( wHeight == 0 ) )        if( 1 )           SetDIBitsToDevice( hDC, wCol, wRow, lpBmp->biWidth,                        ...

Antonio,

Si no haces el PREVIEW (quitando esa clausula), se produce la misma pérdida ?

gracias por tus pruebas,

Buscando en google veo que otros programadores (en otros lenguajes) han tenido problemas tambien con esta función:

http://stackoverflow.com/questions/8036855/how-to-handle-gdi-resource-leak

Quizá eso nos de una pista de por donde buscar...

Antonio, Bueno, lo importante es que ya sabemos de donde viene el problema: función StretchDIBits(). Ahora pensemos una estrategia... Miremos por ejemplo el código que use Wine para la función StretchDIBits(): http://cvs.winehq.org/cvsweb/wine/dlls/gdi/Attic/dib.c?rev=1.22&co...