obmp:= TGdibmp():new( cFile)
obmp:resize( nwidth, nheight)
obmp:save( nuevobmp)
obmp:end()
jmartial wrote:Buenos días,
Teniendo un bitmap monocromo en el disco duro, por ejemplo: "c:\miBitmap.bmp",
¿Cómo podría leerlo pixel a pixel y saber que pixel es negro y cual blanco?
Llevo varios días haciendo pruebas y no he encontrado la manera de hacerlo, estoy seguro que se puede hacer, pero no he sido capaz.
Además, es un tema que me tiene parada la finalización de un programa.
Si alguien pudiera echarme una mano o indicarme un camino para probar, se lo agradecería mucho.
local x,y
local obmp:= TGdibmp():new( cFile)
local nxWidth := obmp:GetWidth()
local nxHeight:= obmp:GetHeight()
for x=1 to nxWidth
for y = 1 to nxHeight
nColor := nRGB( obmp:GetRedPix( X-1, Y-1 ), obmp:GetGreenPix( X-1, Y-1 ) , obmp:GetBluePix( X-1, nY-1 ) )
msginfo( "el pixel"+str(x) +","+str(y) + "es " + id ( ncolor == 0 , "negro" , "blanco " )
next
next
obmp:end()
jmartial wrote:Buenos días,
¿Alguien sabe como leer un BMP del disco y Grabarlo con otro nombre y otra altura de pixeles?
¿Alguien sabe, como convertir un hDC en un handle a bitmap?
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 41 guests