Mostrar una imagen de 8 bits

[odbk]

Hola estoy recibiendo el buffer d euna imagen a 8 bits pero al intentar mostrarla en el picturebox me falla no me muestra nada. Ya es que no se que hacer espero que me ayudeis

Public Sub Guardar_imagen()
Dim bitmap_info As BITMAPINFO
Dim i As Long


With bitmap_info.bmiHeader
        .biSize = 40
        .biWidth = 1024
        .biHeight = 768
        .biPlanes = 1
        .biBitCount = 8
        .biCompression = 1& 'RLE8
        .biSizeImage = .biWidth * .biBitCount * .biHeight / 8
       
End With
GetSystemPaletteEntries Form1.Picture1.hDC, 0, 256, paleta(0)
For i = 0 To 255
bitmap_info.bmiColors(i) = paleta(i)
Form1.Text1.Text = Form1.Text1.Text & Str(bitmap_info.bmiColors(i).rgbRed) & Str(bitmap_info.bmiColors(i).rgbBlue) & Str(bitmap_info.bmiColors(i).rgbGreen) & vbCrLf

Next
i = SetDIBits(Form1.Picture1.hDC, Form1.Picture1.Image, 0, 768, buffer(0), bitmap_info, 1)
Form1.Picture1.Refresh


End Sub

[LeandroA]

hola mirate este ejemplo

http://www.recursosvisualbasic.com.ar/htm/listado-api/211-cambiar-resolucion-imagen.htm

Saludos

[odbk]

Gracias por responder tan pronto.

Pues he mirao eso pero no se muy bien por donde meterle mano. Si alguien cree que me peude ayudar pasteo el codigo del servidor que esta en c y el de vb o los subo a megaupload

[LeandroA]

bueno dale si vos lo que queres es guardar la imagen en 8 bits creo que el modulo lo hace todo pero igual pone lo quenetes y que es lo que queres hacer exactamente.


Saludos

[odbk]

Bueno pues aqui lo dejo el cliente esta en c y el servidor en visual basic. Se tiene que ejecutar primero el de visual basic y luego el codigo en "c", conectara a visual basic y enviara la captura una vez termine se pulsa en el boton command1 y muestra la captura.

En 24 bits funcion lo vereis si alguno se baja el codigo pero ni idea de como hacerlo pa 8 bits

http://www.megaupload.com/?d=AXY5JYOJ

[LeandroA]

hola no puedo descargar de megaupload soy de Argentina