Convertire un file GIF in un file di formato OGV, Matroska e MP4 mediante il Componente gb.media

Convertire un file GIF in un file di formato OGV

Per convertire un file GIF in un file di formato OGV mediante il Componente gb.media, è possibile usare il seguente codice:

Private pl As New MediaPipeline
Private bo As Boolean


Public Sub Main()

 Dim src, pbn, dcg, vdc, enc, mux, snk As MediaControl
 Dim temporaneo As String

 temporaneo = Temp

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = "/percorso/del/file.gif"
 pbn = New MediaControl(pl, "parsebin")
 dcg = New MediaControl(pl, "avdec_gif")
 vdc = New MediaControl(pl, "videoconvert")
 enc = New MediaControl(pl, "theoraenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = temporaneo

 src.LinkTo(pbn)
 pbn.LinkLaterTo(dcg)
 dcg.LinkTo(vdc)
 vdc.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk)

 pl.Play()

 While Not bo
   Wait 0.01
 Wend

 Copy temporaneo To "/tmp/file.ogv"

 pl.Close
 Quit 

End

Public Sub PLine_End()

 bo = True

End

Convertire un file GIF in un file di formato Matroska

Per convertire un file GIF in un file di formato Matroska:

Private pl As New MediaPipeline
Private bo As Boolean


Public Sub Main()

 Dim src, pbn, dcg, vdc, enc, mux, snk As MediaControl
 Dim temporaneo As String

 temporaneo = Temp

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = "/percorso/del/file.gif"
 pbn = New MediaControl(pl, "parsebin")
 dcg = New MediaControl(pl, "avdec_gif")
 vdc = New MediaControl(pl, "videoconvert")
 enc = New MediaControl(pl, "x264enc")
 mux = New MediaControl(pl, "matroskamux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = temporaneo

 src.LinkTo(pbn)
 pbn.LinkLaterTo(dcg)
 dcg.LinkTo(vdc)
 vdc.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk)

 pl.Play()

 While Not bo
   Wait 0.01
 Wend

 Copy temporaneo To "/tmp/file.mkv"

 pl.Close
 Quit 

End

Public Sub PLine_End()

 bo = True

End

Convertire un file GIF in un file di formato MP4

Per convertire un file GIF in un file di formato MP4:

Private pl As New MediaPipeline
Private bo As Boolean


Public Sub Main()

 Dim src, pbn, dcg, vdc, enc, mux, snk As MediaControl
 Dim temporaneo As String

 temporaneo = Temp

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = "/percorso/del/file.gif"
 pbn = New MediaControl(pl, "parsebin")
 dcg = New MediaControl(pl, "avdec_gif")
 vdc = New MediaControl(pl, "videoconvert")
 enc = New MediaControl(pl, "x264enc")
 mux = New MediaControl(pl, "mp4mux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = temporaneo

 src.LinkTo(pbn)
 pbn.LinkLaterTo(dcg)
 dcg.LinkTo(vdc)
 vdc.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk)

 pl.Play()

 While Not bo
   Wait 0.01
 Wend

 Copy temporaneo To "/tmp/file.mp4"

 pl.Close
 Quit 

End

Public Sub PLine_End()

 bo = True

End