Crear avi

[Drako_18]

Buenas compañeros,

He visto que muchos habéis entrado a ver el tema, pero imagino que no sabíais del tema.
La cosa, es que al final, encontré algo que me ayudó bastante, no recuerdo de dónde lo saqué, pero adjunto el archivo comprimido con las clases y un breve ejemplo.

La parte del WAV no lo probé, pero lo principal para mi era el vídeo.

http://www.megafileupload.com/fh8i/clases.zip

Ejemplo:

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bitmap As Bitmap = CType(Image.FromFile("./MisVideos/0.png"), Bitmap)
        Dim aviMgr As New AviManager("MiVideo.avi", False)
        Dim aviStrm As VideoStream = aviMgr.AddVideoStream(True, 20, bitmap)
 
        For iNumero As Integer = 1 To 662
            bitmap = CType(Bitmap.FromFile("./MisVideos/" & iNumero.ToString() & ".png"), Bitmap)
            aviStrm.AddFrame(bitmap)
            bitmap.Dispose()
        Next
 
        'aviMgr.AddAudioStream("MiWav.wav", 0)
 
        aviMgr.Close()
        Me.Close()
    End Sub