Me llega un número en formato unsigned de 4 bytes (es un dato OLE_COLOR) y necesito convertirlo a decimal en el rango 0 - 16777215 (RGB). He probado todas las combinaciones de I2bin(), Bin2I(), L2Bin()...etc y no me aclaro. Alguien me podrÃa decir qué función utilizar?
Gracias
Rafael
Board index FiveWin para Harbour/xHarbour Convertir unsigned integer a decimal
Rafael,
Prueba con nLoWord( nNumero ) + ( 256 * nHiWord( nNumero ) )
ó con:
nHiWord( nNumero ) + ( 256 * nLoWord( nNumero ) )
Depende del orden en el que esté guardado
Antonio:
Tengo este problema al utilizar la función GetPixelColor() de una librerÃa comercial que en VB funciona bien.
Con tu receta, en algunos casos sà funciona pero en otros no.
Hago n := GetPixelColor(x,y)
Con Rojo puro (n=255), funciona bien
Con verde puro (deberÃa ser n=65280 pero recibo -256), asà que tus fórmulas producen valores negativos
Con azul puro ( deberÃa ser n=16711680), recibo 0
Si antes convierto n a WORD asÃ:
n := GetPixelColor(x,y)
n := Bin2W(L2Bin(n))
Rojo y verde los lee bien (255, 65280) pero azul sigue leyendo 0
Quizás es un error en la librerÃa que estoy utilizando (aunque en VB les va bien) o algo relacionado con el hecho de que la n que recibo es una variable OLE_COLOR y da problemas en los bits más altos. A ver si el fabricante me dice algo.
Gracias
Rafael
Rafael,
Usa este código y dime que valores te muestra:
MsgInfo( Str( Asc( SubStr( L2Bin( nValor ), 1, 1 ) ) ) + "," + CRLF + ;
Str( Asc( SubStr( L2Bin( nValor ), 2, 1 ) ) ) + "," + CRLF + ;
Str( Asc( SubStr( L2Bin( nValor ), 3, 1 ) ) ) + "," + CRLF + ;
Str( Asc( SubStr( L2Bin( nValor ), 4, 1 ) ) ) )
Antonio:
Resultado de pruebas hechas sobre diferentes colores puros:
Rojo: 255,0,0,0
Verde: 0, 255,255,255
Azul: 0,0,0,0
Amarillo: 255,255,255,255
Negro: 0,0,0,0
Blanco: 255,255,255,255
Tú le ves alguna lógica?
Rafael
Getpixel(hDC,x,y) usa tres parámetros, no estará por ahà el problema?
Creo que no, Alfredo. Esto es un Ocx de manejo de imágenes que estoy utilizando. Se diseñó para funcionar con VB pero -gracias a la ayuda de Antonio- estamos echándolo a andar muy bien con FWH a base de ActiveX.
El problema parece estar en que esa función GetPixelColor(x,y) devuelve una variable de tipo OLE_COLOR. Son 4 bytes unsigned pero hay algo raro en todo eso, probablemente con los dos primeros bits que es lo que complica su lectura.
He encontrado esto que explica algo sobre ese tipo de variable:
http://66.29.204.14/products/imgxasp/docs/ImagingConcepts.html
TÃpico de Microsoft: Han cambiado hasta el orden de los colores: Ya no es RGB sino BGR!!
Rafael
El problema parece estar en que esa función GetPixelColor(x,y) devuelve una variable de tipo OLE_COLOR. Son 4 bytes unsigned pero hay algo raro en todo eso, probablemente con los dos primeros bits que es lo que complica su lectura.
He encontrado esto que explica algo sobre ese tipo de variable:
http://66.29.204.14/products/imgxasp/docs/ImagingConcepts.html
TÃpico de Microsoft: Han cambiado hasta el orden de los colores: Ya no es RGB sino BGR!!
Rafael
Me imagino que asà es, sobre todo considerando el dinamismo de cambios en los formatos que componen las imágenes.
Será que ahora en vez de dos puntos (cartesianos) haya que incluir un formato vectorial (x,y,z,dirección,rumbo,etc), no itento abundar, solo una idea... !?
Rafael,
Por lo visto hay que usar la función OleTranslateColor() incluida en OLEPRO32.DLL: