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
hola mirate este ejemplo
http://www.recursosvisualbasic.com.ar/htm/listado-api/211-cambiar-resolucion-imagen.htm
Saludos
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
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
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
hola no puedo descargar de megaupload soy de Argentina