Como grabar un video de un picturebox

[_CrisiS_]

Hola amigos continuando guiandome de este tuto de vb6http://www.recursosvisualbasic.com.ar/htm/listado-api/222-capturar-webcam-con-sendmessage-capCreateCaptureWindow.htm y después de pasarlo al vb2005 logre visualizar el video de la webcam en un picturebox

Mi duda es ahora como lograr que pormedio de un boton comiense a grabar en un video, por defecto q sea Avi, pero tener la opcion de que grabe en un formato menos pesado por ejemplo mp4

y con otro botón detener la grabación.

[Petro_Boca]

Quiiza te sirva

http://www.vb-helper.com/index_multimedia.html#video

[_CrisiS_]

si ya lo probe pero lo q ase es simplemente grabar imagenes yo quiero video X)

[Petro_Boca]

esto tampoco?

http://www.vb-helper.com/howto_video_capture.html

[_CrisiS_]

Es  lo mismo pero en vb6 ... solo graba imagenes T_T

[_CrisiS_]

lo que yo deseo es q grabe en video =/

[BlackZeroX]

tienes que convertir el DC del picture a BMP (Es mas facil y rapido!¡) despues a JPG,PNGGIF, o el de tu preferencia, o ya de plano a directamente!¡, despues tienes DOS alternativas las cuales son:

Guardar las imagenes en el HardDisk o tratarlas directamente a el Formato Deseado (Yo preferiria el AVI!¡, despues comprimiria a otro, ya que si fuese directamente a formato video se tardria la aplicacion xS).

Dulces Lunas!¡.

[_CrisiS_]

bueno yo ahorita grabo una "foto" por medio de un boton a bmp

Código [Seleccionar] Expandir

Dim data As IDataObject
        Dim bmap As Image
        Dim ind_cap As Integer
        '
        ' Copy image to clipboard
        '
        SendMessage(hwdc, WM_CAP_EDIT_COPY, 0, 0)
        '
        ' Get image from clipboard and convert it to a bitmap
        '
        data = Clipboard.GetDataObject()
        If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
            bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
            If sfdImage.ShowDialog = DialogResult.OK Then
                bmap.Save(sfdImage.FileName, Imaging.ImageFormat.Bmp)
                ind_cap += 1
                sfdImage.FileName = "Captura" & ind_cap.ToString()
            End If
        End If
Alguna pista o tuto de como pasarlo a avi? X)

[BlackZeroX]

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=61960&lngWId=1

Dulces Lunas!¡.