Convertire un file GIF in un file di formato OGV, Matroska e MP4 mediante il Componente gb.media
Da Gambas-it.org - Wikipedia.
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