FiveTech Software tech support forums

Isto me ia bem, agora salva o arquivo, mas o mesmo não é reconhecido como um BITMAP DibWrite( aOrigem , DibFromBitmap( WndBitmap( GETDESKTOPWINDOW() ) ) ) DibWrite( aOrigem , DibFromBitmap( WndBitmap( GETWINDOW(GETDESKTOPWINDOW(), 5 ) ) ) ) http://www.bytesoftware.com.br/teste/imagem9.jpg ...

... Muchas gracias. Para imágenes pequeñas (30 K) tu programa funciona perfecto; para las grandes (lo he probado con un bmp de 9 M) da un error en DibWrite() pero supongo que eso es normal tratándose de archivos tan grandes. Entretanto, yo he estado experimentando en pintar directamente pixels ...

hDib := DibFromBitmap( hBmp )

DibWrite( "dibujo.bmp", hDib )

GlobalFree( hDib )

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

DibWrite( "screen.bmp", DibFromBitmap( WndBitmap( oWnd:hWnd ) ) )

Hello,

you can use

hDib := Dibfrombitmap( hBmp )

then

DibWrite( "filename.bmp", hDib )

read de FW manual for more information about parameters

regards

Marcelo

... := aCoors[1] oBmp:nLeft := aCoors[2] oBmp:nBottom := aCoors[3] oBmp:nRight := aCoors[4] oBmp:Box(oBmp:nTop, oBmp:nLeft, oBmp:nBottom, oBmp:nRight) DibWrite( "crop.bmp", DibFromBitmap( wnd_bitmap( oBmp:hWnd,; oBmp:nTop, oBmp:nLeft, oBmp:nBottom+1, oBmp:nRight+1 ) ) ) oBmp:LoadBMP("crop.bmp") oBmp:Refresh() ...