Re: Identificar Los Colores De Los Pixel De Una Imagen. [Descargar mensaje]
Autor Mensaje
Responder citando Descargar mensaje
Mensaje Re: Identificar Los Colores De Los Pixel De Una Imagen. 
ehmmm... y ahora un otro mi aporte con la...... stream-mania!
Usaremos el metodo ''.Data'' de la Clase ''Image'' y los Memory-Stream:
Public Sub Form_Open()

With PictureBox1
.X = 50
.Y = 50
.W = 40
.H = 40
.Stretch = True
End With

End


Public Sub Button1_Click()

Dim im As Image
Dim st As Stream
Dim fo, b As Byte
Dim j As Integer
Dim s As String

im = Image.Load("/ruta/del/file/imagen")

fo = Len(im.Format)

' Dereferenciamos el "Puntero", así muestrando todos los valores de los colores de los pixel de la imagen:
st = Memory im.Data For Read Write

For j = 0 To (im.H * im.W * fo) - 1
Read #st, b
If j Mod 4 = 0 Then Print "------------------"
Print j, b, Hex(b, 2)
Next


Print "------------------"

' Cambiamos el color del píxel que ocupa 4 byte empezando desde el 9° byte:
Seek #st, 8
' Establecemos el color azul (si el formato es diferente de "BGR", a continuación, el primer byte es relativo al valor "alfa"!):
s = Right("FF0000FF", fo * 2)
Write #st, Val("&" & s) As Integer

' Leemos de nuevo los valores de los colores despues que hemos cambiado el 3°píxel:
Seek #st, 0
For j = 0 To (im.H * im.W * fo) - 1
Read #st, b
If j Mod 4 = 0 Then Print "------------------"
Print j, b, Hex(b, 2)
Next

st.Close

' Muestra la imagen como fue modificada:
PictureBox1.Picture = im.Picture

End

 



 


última edición por vuott el Miercoles, 05 Noviembre 2014, 16:28; editado 2 veces 
Ver perfil del usuario Enviar mensaje privado
 
Cerrar ventana

Powered by Icy Phoenix based on phpBB
Design by Mighty Gorgon