Registrare quanto mostrato da una MapView e farne un video

Da Gambas-it.org - Wikipedia.

E' possibile catturare quanto avviene e mostrato da una MapView e salvarlo in un file video.
E' necessario attivare anche il Componente gb.media.

Creare un file video di formato "MP4"

Public Sub Form_Open()

 Dim mp As New MapPoint(41.89018, 12.49230)

 With MapView1.Map
   .AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
   .Zoom = 15
   .Center = mp
 End With

End


Private pl As MediaPipeline

Public Sub Button1_Click()

 Dim src, cnv, enc, mux, snk As MediaControl
 Dim tm As Date
 Dim i As Integer

 If Exist("/tmp/video.mp4") Then Kill "/tmp/video.mp4"

 pl = New MediaPipeline 

 src = New MediaControl(pl, "ximagesrc")
' Assegna alla proprietà "xid" il numero identificativo della finestra della "MapView" da registrare:
 src["xid"] = MapView1.Id
 cnv = New MediaControl(pl, "videoconvert")
 enc = New MediaControl(pl, "x264enc")
 enc["pass"] = 5
 enc["quantizer"] = 26
 enc["speed-preset"] = 6
 mux = New MediaControl(pl, "mp4mux")
 mux["fragment-duration"] = 2048
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp/video.mp4"

' Collega fra loro i plugin di "GStreamer":
 src.LinkTo(cnv)
 cnv.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk) 

' Avvia la registrazione video:
 pl.Play()

 tm = Now

 While pl.State = Media.Ready
   i = DateDiff(tm, Now, gb.Millisecond)
' Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:
   Me.Title = "Tempo: " & Str(Time(0, 0, 0, i))
   Wait 0.01
 Wend

End


Public Sub Button2_Click()

 pl.Stop()
 pl.Close()
 Print "Registrazione terminata !"

End


Creare un file video di formato "Ogg-Theora"

Public Sub Form_Open()

 Dim mp As New MapPoint(41.89018, 12.49230)

 With MapView1.Map
   .AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
   .Zoom = 15
   .Center = mp
 End With

End


Private pl As MediaPipeline

Public Sub Button1_Click()

 Dim src, cnv, enc, mux, snk As MediaControl
 Dim flt As MediaFilter
 Dim tm As Date
 Dim i As Integer

 If Exist("/tmp/video.ogg") Then Kill "/tmp/video.ogg"

 pl = New MediaPipeline 

 src = New MediaControl(pl, "ximagesrc")
' Assegna alla proprietà "xid" il numero identificativo della finestra della "MapView" da registrare:
 src["xid"] = MapView1.Id
 cnv = New MediaControl(pl, "videoconvert")
 flt = New MediaFilter(pl, "video/x-raw,framerate=25/1")
 enc = New MediaControl(pl, "theoraenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp/video.ogg"
 snk["sync"] = False

' Collega fra loro i plugin di "GStreamer":
 src.LinkTo(cnv)
 cnv.LinkTo(flt)
 flt.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk) 

' Avvia la registrazione video:
 pl.Play()

 tm = Now

 While pl.State = Media.Ready
   i = DateDiff(tm, Now, gb.Millisecond)
' Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:
   Me.Title = "Tempo: " & Str(Time(0, 0, 0, i))
   Wait 0.01
 Wend

End


Public Sub Button2_Click()

 pl.Stop()
 pl.Close()
 Print "Registrazione terminata !"

End


Creare un file video di formato "Matroska"

Public Sub Form_Open()

 Dim mp As New MapPoint(41.89018, 12.49230)

 With MapView1.Map
   .AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
   .Zoom = 15
   .Center = mp
 End With

End


Private pl As MediaPipeline

Public Sub Button1_Click()

 Dim src, cnv, enc, mux, snk As MediaControl
 Dim tm As Date
 Dim i As Integer

 If Exist("/tmp/video.mkv") Then Kill "/tmp/video.mkv"

 pl = New MediaPipeline 

 src = New MediaControl(pl, "ximagesrc")
' Assegna alla proprietà "xid" il numero identificativo della finestra della "MapView" da registrare:
 src["xid"] = MapView1.Id
 cnv = New MediaControl(pl, "videoconvert")
 enc = New MediaControl(pl, "x264enc")
 mux = New MediaControl(pl, "matroskamux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp/video.mkv"

' Collega fra loro i plugin di "GStreamer":
 src.LinkTo(cnv)
 cnv.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk) 

' Avvia la registrazione video:
 pl.Play()

 tm = Now

 While pl.State = Media.Ready
   i = DateDiff(tm, Now, gb.Millisecond)
' Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:
   Me.Title = "Tempo: " & Str(Time(0, 0, 0, i))
   Wait 0.01
 Wend

End


Public Sub Button2_Click()

 pl.Stop()
 pl.Close()
 Print "Registrazione terminata !"

End


Creare un file video di formato "FLV"

Public Sub Form_Open()

 Dim mp As New MapPoint(41.89018, 12.49230)

 With MapView1.Map
   .AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
   .Zoom = 15
   .Center = mp
 End With

End


Private pl As MediaPipeline

Public Sub Button1_Click()

 Dim src, cnv, enc, mux, snk As MediaControl
 Dim tm As Date
 Dim i As Integer

 If Exist("/tmp/video.flv") Then Kill "/tmp/video.flv"

 pl = New MediaPipeline 

 src = New MediaControl(pl, "ximagesrc")
' Assegna alla proprietà "xid" il numero identificativo della finestra della "MapView" da registrare:
 src["xid"] = MapView1.Id
 cnv = New MediaControl(pl, "videoconvert")
 enc = New MediaControl(pl, "x264enc")
 mux = New MediaControl(pl, "flvmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp/video.flv"

' Collega fra loro i plugin di "GStreamer":
 src.LinkTo(cnv)
 cnv.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk) 

' Avvia la registrazione video:
 pl.Play()

 tm = Now

 While pl.State = Media.Ready
   i = DateDiff(tm, Now, gb.Millisecond)
' Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:
   Me.Title = "Tempo: " & Str(Time(0, 0, 0, i))
   Wait 0.01
 Wend

End


Public Sub Button2_Click()

 pl.Stop()
 pl.Close()
 Print "Registrazione terminata !"

End


Creare un file video di formato "AVI"

Public Sub Form_Open()

 Dim mp As New MapPoint(41.89018, 12.49230)

 With MapView1.Map
   .AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
   .Zoom = 15
   .Center = mp
 End With

End


Private pl As MediaPipeline

Public Sub Button1_Click()

 Dim src, cnv, mux, snk As MediaControl
 Dim tm As Date
 Dim i As Integer

 If Exist("/tmp/video.avi") Then Kill "/tmp/video.avi"

 pl = New MediaPipeline 

 src = New MediaControl(pl, "ximagesrc")
' Assegna alla proprietà "xid" il numero identificativo della finestra della "MapView" da registrare:
 src["xid"] = MapView1.Id
 cnv = New MediaControl(pl, "videoconvert")
 mux = New MediaControl(pl, "avimux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp/video.avi"

' Collega fra loro i plugin di "GStreamer":
 src.LinkTo(cnv)
 cnv.LinkTo(mux)
 mux.LinkTo(snk) 

' Avvia la registrazione video:
 pl.Play()

 tm = Now

 While pl.State = Media.Ready
   i = DateDiff(tm, Now, gb.Millisecond)
' Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:
   Me.Title = "Tempo: " & Str(Time(0, 0, 0, i))
   Wait 0.01
 Wend

End


Public Sub Button2_Click()

 pl.Stop()
 pl.Close()
 Print "Registrazione terminata !"

End