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