Quisiera analizar el contenido de un bitmap mostr谩ndolo en pantalla con @ r,c BITMAP .... y ley茅ndolo punto a punto con GetPixel(). Esto funciona muy bien cuando la imagen es visible en la ventana pero no si la oculto oBmp:Hide() o desplazo la imagen fuera de la pantalla.
驴Alguien sabe alguna forma de leer, pixel a pixel, el contenido de un BMP sin necesidad de hacerlo visible en pantalla?
Gracias y saludos,
Rafael
function analiza( hDC, hBmp )
local hDCMem := CreateCompatibleDC( hDC )
local hOldBmp := SelectObject( hDCMem, hBmp )
local x := 1
local y := 1
local nColor
nColor := GetPixel( hDCMem, x, y ) //a tutipleni
SelectObject( hDCMem, hOldBmp )
DeleteDC( hDCMem )
return nil
#pragma BEGINDUMP
#include <windows.h>
#include "hbapi.h"
HB_FUNC( CREATECOMPATIBLEDC )
{
hb_retnl( (LONG) CreateCompatibleDC( ( HDC ) hb_parnl( 1 )));
}
#pragma ENDDUMPMETHOD Analiza(oImage)
LOCAL hBmp := oImage:hWnd
LOCAL hDc := GetDc(hBmp)
local hDCMem := CreateCompatibleDC( hDC )
local hOldBmp:= SelectObject( hDCMem, hBmp )
local nX9 := oImage:nWidth
local nY9 := oImage:nHeight
local x, y, p
FOR y := 0 TO nY9
cLin := ""
FOR x := 0 TO nX9
p := GetPixel(hDcMem, x, y)
cLin += ALLTRIM(STR(p))
NEXT
? cLin
NEXT
SelectObject( hDCMem, hOldBmp )
DeleteDC( hDCMem )
RETURN NIL
#pragma BEGINDUMP
....
#pragma ENDDUMPHola
C贸digo:
METHOD Analiza(oImage)
LOCAL hBmp := oImage:hWnd
LOCAL hDc := GetDc(hBmp)
local hDCMem := CreateCompatibleDC( hDC )
local hOldBmp:= SelectObject( hDCMem, hBmp ) << oImage:hBmp
local nX9 := oImage:nWidth
local hOldBmp:= SelectObject( hDCMem, oImage:hBmp)Paco:
Gracias por la explicaci贸n. Me hab铆a vuelto loco porque no es oImage:hBmp sino oImage:hBitmap. Arreglado esto, ya me compila y funciona. Voy a jugar un poco con ello.
Saludos y buen fin de semana
Rafael