Differenze tra le versioni di "Registrare quanto mostrato da una MapView e farne un video"
Da Gambas-it.org - Wikipedia.
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| Riga 2: | Riga 2: | ||
<BR>E' necessario attivare anche il Componente ''gb.media''. | <BR>E' necessario attivare anche il Componente ''gb.media''. | ||
| − | ===Creare un file video di formato MP4=== | + | ===Creare un file video di formato "MP4"=== |
Public Sub Form_Open() | Public Sub Form_Open() | ||
| Riga 17: | Riga 17: | ||
Private pl As MediaPipeline | Private pl As MediaPipeline | ||
| − | |||
Public Sub Button1_Click() | Public Sub Button1_Click() | ||
| Riga 53: | Riga 52: | ||
tm = Now | tm = Now | ||
| − | While | + | While pl.State = Media.Ready |
i = DateDiff(tm, Now, gb.Millisecond) | i = DateDiff(tm, Now, gb.Millisecond) | ||
<FONT Color=gray>' ''Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:''</font> | <FONT Color=gray>' ''Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:''</font> | ||
| Riga 65: | Riga 64: | ||
Public Sub Button2_Click() | Public Sub Button2_Click() | ||
| − | |||
pl.Stop() | pl.Stop() | ||
pl.Close() | pl.Close() | ||
| Riga 88: | Riga 86: | ||
Private pl As MediaPipeline | Private pl As MediaPipeline | ||
| − | |||
Public Sub Button1_Click() | Public Sub Button1_Click() | ||
| Riga 124: | Riga 121: | ||
tm = Now | tm = Now | ||
| − | While | + | While pl.State = Media.Ready |
i = DateDiff(tm, Now, gb.Millisecond) | i = DateDiff(tm, Now, gb.Millisecond) | ||
<FONT Color=gray>' ''Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:''</font> | <FONT Color=gray>' ''Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:''</font> | ||
| Riga 136: | Riga 133: | ||
Public Sub Button2_Click() | Public Sub Button2_Click() | ||
| − | |||
pl.Stop() | pl.Stop() | ||
pl.Close() | pl.Close() | ||
| Riga 159: | Riga 155: | ||
Private pl As MediaPipeline | Private pl As MediaPipeline | ||
| − | |||
Public Sub Button1_Click() | Public Sub Button1_Click() | ||
| Riga 191: | Riga 186: | ||
tm = Now | tm = Now | ||
| − | While | + | While pl.State = Media.Ready |
i = DateDiff(tm, Now, gb.Millisecond) | i = DateDiff(tm, Now, gb.Millisecond) | ||
<FONT Color=gray>' ''Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:''</font> | <FONT Color=gray>' ''Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:''</font> | ||
| Riga 203: | Riga 198: | ||
Public Sub Button2_Click() | Public Sub Button2_Click() | ||
| − | |||
pl.Stop() | pl.Stop() | ||
pl.Close() | pl.Close() | ||
| Riga 226: | Riga 220: | ||
Private pl As MediaPipeline | Private pl As MediaPipeline | ||
| − | |||
Public Sub Button1_Click() | Public Sub Button1_Click() | ||
| Riga 258: | Riga 251: | ||
tm = Now | tm = Now | ||
| − | While | + | While pl.State = Media.Ready |
i = DateDiff(tm, Now, gb.Millisecond) | i = DateDiff(tm, Now, gb.Millisecond) | ||
<FONT Color=gray>' ''Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:''</font> | <FONT Color=gray>' ''Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:''</font> | ||
| Riga 270: | Riga 263: | ||
Public Sub Button2_Click() | Public Sub Button2_Click() | ||
| − | |||
pl.Stop() | pl.Stop() | ||
pl.Close() | pl.Close() | ||
| Riga 293: | Riga 285: | ||
Private pl As MediaPipeline | Private pl As MediaPipeline | ||
| − | |||
Public Sub Button1_Click() | Public Sub Button1_Click() | ||
| Riga 323: | Riga 314: | ||
tm = Now | tm = Now | ||
| − | While | + | While pl.State = Media.Ready |
i = DateDiff(tm, Now, gb.Millisecond) | i = DateDiff(tm, Now, gb.Millisecond) | ||
<FONT Color=gray>' ''Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:''</font> | <FONT Color=gray>' ''Il tempo trascorso dall'inizio della ripresa video viene mostrato nell'intestazione del "Form" principale:''</font> | ||
| Riga 335: | Riga 326: | ||
Public Sub Button2_Click() | Public Sub Button2_Click() | ||
| − | |||
pl.Stop() | pl.Stop() | ||
pl.Close() | pl.Close() | ||
Versione attuale delle 07:47, 14 lug 2024
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
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
