Foro de elhacker.net

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