Registrare quanto mostrato da una MapView e farne un video

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

Indice

1 Creare un file video di formato "MP4"
2 Creare un file video di formato "Ogg-Theora"
3 Creare un file video di formato "Matroska"
4 Creare un file video di formato "FLV"
5 Creare un file video di formato "AVI"

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

Registrare quanto mostrato da una MapView e farne un video

Indice

Creare un file video di formato "MP4"

Creare un file video di formato "Ogg-Theora"

Creare un file video di formato "Matroska"

Creare un file video di formato "FLV"

Creare un file video di formato "AVI"

Menu di navigazione

Strumenti personali

Namespace

Varianti

Visite

Altro

Ricerca

Menu principale

Utilità