FiveTech Software tech support forums

Antonio, Muchas gracias por responder. Lamentablemente no ha funcionado. Lo he probado con PalBmpRead() puesto que tengo el bitmap en disco. Aquí te dejo como ha quedado el metodo despues de las modificaciones: METHOD SayBitmap( nRow, nCol, xBitmap, nWidth, nHeight, nRaster ) CLASS TPrinter ...

A. Prueba asi:   ...           aBmpPal  = PalBmpLoad( xBitmap )      hBitmap  = aBmpPal[ 1 ]      hPalette = aBmpPal[ 2 ]      hDib   = DibFromBitmap( hBitmap, hPalette )      // PalBmpFree( hBitmap, hPalette )      DeleteObject( hBitmap ) ...

Hola, Dejo como test del problema el TestPrn2.Prg que demuestra lo que digo: la pérdida/ fuga de memoria. La memoria se recupera solo al salir del programa. El problema se puede comprobar más facilmente imprimiendo pocos bitmaps, cuando el bitmap es grande, o bien, si es pequeño, imprimiendo muchas ...

... bitmap es grande entonces se ve que la memoria no es released hasta que se sale del programa. Entiendo que este no debe ser el comportamiento de GlobalAlloc()/ GlobalFree() La verdad es que me corre prisa solucionarlo. Agradecido de antemano siquiera por alguna pista. Anexo metodo (original) ...

... ( WORD ) bm.bmWidth, ( WORD ) bm.bmHeight ); dwSizeScr = ( ( bm.bmWidth * bmiS.biBitCount + 31 ) / 32 ) * 4 * bm.bmHeight; hDibSrc = GlobalAlloc( GHND, dwSizeScr + sizeof( BITMAPINFOHEADER ) ); lpSrcBits = ( LPBITMAPINFOHEADER )GlobalLock( hDibSrc ); *lpSrcBits = bmiS; dc = GetDC ...

... GetVersion() GetWinDir() GetWindowWord() GetWinFlags() GetWinTxtLength() GetWndApp() GetWndFrame() GetWndRect() GetWndTask() GlobalAddAtom() GlobalAlloc() GlobalCompact() GlobalData() GlobalFree() GlobalGetAtom() GlobalLock() GlobalRealloc() GlobalSize() GlobalUnlock() HasResources() HelpSearch() ...

... *' Types pointed to are unrelated; conversion requires reinterpret_cast, C-style cast or function-style cast Almacen.prg(1326) : error C2065: 'GlobalAlloc' : undeclared identifier Almacen.prg(1326) : error C2065: 'GMEM_MOVEABLE' : undeclared identifier Almacen.prg(1326) : error C2440: 'initializing' ...

... are private to a process ." So when the process is finished, all its environment is cleared, unless you have created global handles (i.e. using GlobalAlloc()). Sorry, but the docs says: GDI objects support only one handle per object. Handles to GDI objects are private to a process. That is, ...

... are private to a process ." So when the process is finished, all its environment is cleared, unless you have created global handles (i.e. using GlobalAlloc()). http://msdn.microsoft.com/en-us/magazine/cc301756.aspx "... the documentation states that Windows takes care of releasing the resource ...

... NULL; BOOL bOk = FALSE; if( dwSize ) { char * szBlock = ( char * ) hb_xgrab( 255 ); char * szSubBlock = ( char * ) hb_xgrab( 255 ); HGLOBAL hMem = GlobalAlloc( GMEM_MOVEABLE, dwSize ); VS_FIXEDFILEINFO * vsInfo; UINT nLen = 0; if( hMem ) { LPVOID pMem = GlobalLock( hMem ); if( pMem && GetFileVersionInfo( ...

Jeff,

>
Enrico had mentioned in another post:
"As far as I know, you can't return a string from a DLL function"
>

You can do it using a GlobalAlloc() chunk of memory, that the DLL client will free later on

> Will a standard DLL work?

Yes, why not ?

... sizeof bmh) != sizeof bmh || bmh.bfType != 0x4d42) { return NULL; } // Allocate global block for DIB dibSize = bmh.bfSize - sizeof bmh; hdib = GlobalAlloc(0, dibSize); pbi = (LPBYTE)GlobalLock(hdib); if (!hdib || !pbi) { return NULL; } // Read DIB from file if (_hread(fh, pbi, dibSize) != dibSize) ...

João, GlobalFree() es una función del API de Windows para liberar un bloque de memoria previamente reservado con GlobalAlloc(). Con Harbour/xHarbour debemos usar hb_xgrab() y hb_xfree() en vez de esas funciones, para que Harbour/xHarbour hagan las comprobaciones internas necesarias. ...

João,

GlobalFree() es una función del API de Windows para liberar un bloque de memoria previamente reservado con GlobalAlloc(). Con Harbour/xHarbour debemos usar hb_xgrab() y hb_xfree() en vez de esas funciones, para que Harbour/xHarbour hagan las comprobaciones internas necesarias.