FiveTech Software tech support forums

... : .................... Freeimage.DLL only for 32 bit app ??? CLASS TImage FROM TBitmap DATA nProgress DATA hBitmap (<----- New string DATA hDib (<---- New string DATA hPalette (<----- New String CLASSDATA lRegistered AS LOGICAL METHOD New( nTop, nLeft, nWidth, nHeight, cResName, cBmpFile, ...

Hello , Friends !

I'm insert string : DATA hDib into file IMAGE.PRG ..... complile by CLIPPER 5.3 .... Linking ..... but have error :

No Exp Method TIMAGE:HBITMAP .....

Please give me good IMAGE.PRG file !!!

The function dibWrite( cBmpFile, hDib ) saves the dib handle into a file

Some like this to save into a variable?

Dutch,

Please check that your Class TImage (or TBitmap) has a DATA hDib.

Also notice that in more recent FW builds, such DATA was removed.

Dear Antonio, I found this error in one my client's network W2003R2. I didn't found this error before and in other computer or network have no problem. I've found in Basil forum but I cannot read Spanish. I use Clipper 5.2e/FW2.5/Blinker 7.0 Error description: Error Objects/6 No Exp. Method&...

Domenico, Parece que en la clase TImage que estás usando te falta la DATA hDib La clase TImage de FWH no tiene esa DATA ni la usa, pero parece que la clase que tu estás usando si la intenta usar: Called from: => HBOBJECT:MSGNOTFOUND(0) Called from: => TIMAGE:_HDIB(169) ...

Estimados Senores: Tengo un error extrano en el uso de la Timage con preview En dias pasados publique un post con un error que tenia cuando intentaba usar una imagen en un preview con TImage: prg: oprn:say((row+2)*cantlines,1,"3Abajo?izq",ofn1) oprn:say((row+3)*cantlines,1,"4Abajo?izq",ofn1) oprn:sa...

Estimados: Trabajaba de lo mejor y de repente me arroja un error en la ejecucion, simplemente es una imagen en un reporte. Parte del codigo: // encabezado del Reporte oprn:say(row,1,"1Arriba?Izq",ofn1) oprn:say((row+0)*cantlines,1,"2Arriba?Izq",ofn1) oprn:say((row+1)*cantlines,1,"3Abajo?izq",ofn1) r...

... this example : #DEFINE CF_BITMAP 2 oClipBoard := TClipBoard():New( CF_BITMAP ) oClipBoard:Open() hBmp := oClipBoard:GetData() oClipBoard:Close() hDib := DibFromBitmap( hBmp ) If Empty( hDib ) MsgInfo("I can't create Bitmap","I'm Sorry") RETURN EndIf DibWrite( cBmpFile, hDib ) GlobalFree( hDib ...

... * * CLASS TSCAN32 * 2003(c)- by Rafa Carmona ( TheFull ) * Beta 1.0 * Beta 2.0 New. Support Get ClipBoard to hDib. * New. ClipboardToFile( cFile ) -> Save File Jpg into Clipboard. * * Beta 3.0 New. ReWrite Method End, conflict GPF's ;) * * Beta 4.0 Return ...

Hi,

if you start with a blank bmp, and draw on these, you can save this modification in other bmp file, try this

hBmp := WndBitmap( obmp:hWnd )
hDib := DibFromBitmap( hBmp )
DibWrite( "bak.bmp", hDib )

I don't know if it's what do you want

saludos

Marcelo

... work with 16bits but I don't work with 32bits. I don't know while. Thanks for any help, Dutch FUNCTION SaveImage( cFile ) LOCAL nFormat, hDib, hInfoH, hInfo, hBits, hWnd, hDC, hBmp, lOk #ifdef __CLIPPER__ hLib = LOADLIB32( "freeimage.dll" ) #else hLib = LOADLIBRARY( ...

... oGra:Save2Bmp(cFile) y me va bien, adjunto el metodo de como lo uso METHOD Save2Bmp( cFile ) CLASS TGraph LOCAL hBmp, hDib, cDir := "\"+CurDir() DEFAULT cFile := "TGraph.Bmp" IF !lIsDir("\"+CurDir()+"\Graficas") lMkDir("\"+CurDir()+"\Graficas") ENDIF lChDir("\"+CurDir()+"\Graficas") ...

hDib := DibFromBitmap( hBmp )

DibWrite( "dibujo.bmp", hDib )

GlobalFree( hDib )

... to save the window in a BMP with SaveToBmp but in FWPPC 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