FiveTech Software tech support forums

... hDib := DibFromBitmap( hBmp ) If Empty( hDib ) MsgInfo("I can't create Bitmap","I'm Sorry") RETURN EndIf DibWrite( cBmpFile, hDib ) GlobalFree( hDib ) DeleteObject( hBmp ) Clipper 5.3b , Blinker 5.1 and FW23 --------------------------------------------------------------------------------

Hello Antoinio,

In some samples I see following code:

EXIT PROCEDURE PrgExit

Set RESOURCES TO
GlobalFree()
ResAllFree()
Release All
SysRefresh()
Clear Memory

RETURN

Do you suggest to use such a procedure?

Thanks in advance
Otto

... pMem, szSubBlock, ( LPVOID * ) &szOut, &nLen ) ) bOk = TRUE; hb_xfree( szBlock ); hb_xfree( szSubBlock ); } GlobalUnlock( hMem ); GlobalFree( hMem ); } } } if( bOk ) hb_retc( szOut ); else hb_retc( "" ); } #pragma ENDDUMP //----------------------------------------------------------------------------//

... ENDIF lChDir("\"+CurDir()+"\Graficas") hBmp := WndBitmap( Self:hWnd ) hDib := DibFromBitmap( hBmp ) DibWrite( cFile, hDib ) GloBalFree( hDib ) DeleteObject( hBmp ) IF ::nLanguage=2 MsgInfo("La imagen ha sido grabada.","Información") ELSE MsgInfo("Graph image save.","Info") ...

hDib := DibFromBitmap( hBmp )

DibWrite( "dibujo.bmp", hDib )

GlobalFree( hDib )

... don't exist I try DEFAULT cFile := CurDir() + "\Test.Bmp" hBmp := WndBitmap( oWnd:hWnd ) hDib := DibFromBitmap( hBmp ) DibWrite( cFile, hDib ) GloBalFree( hDib ) DeleteObject( hBmp ) But I have "error 6" Any Idea Regards MAurizio

... hBmp := WndBitmap( oWnd:hWnd ) hDib := DibFromBitmap( hBmp ) DibWrite( cFile, hDib ) GloBalFree( hDib ) DeleteObject( hBmp ) RETURN ( nil ) but I obtain this error: myprg.obj : error LNK2001: unresolved external ...

... the memory allocated to a native format image, as returned by TWAIN_AcquireNative. // (For those coding in C or C++, this is just a call to GlobalFree.) { if (hdib) GlobalFree(hdib); } // TWAIN_FreeNative int EZTAPI TWAIN_AcquireToClipboard(HWND hwndApp, unsigned wPixTypes) // Like AcquireNative, ...

... szDriveName, szFileLocation); _giRowsCopied = 0; _gpHeader = NULL; _gpImageData = NULL; _gpCurrentLine = NULL; _gdwLineSize = 0l; if(_ghDIB) { GlobalFree(_ghDIB); _ghDIB = NULL; } if(GetCurrentXResolution()==100.0F) { /* * Easy, this is the format of our originals */ if(GetCurrentPixelType()==TWPT_GRAY) ...

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

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.

Antonio, y GlobalFree()??