Differenze tra le versioni di "Registrare quanto mostrato da una MapView e farne un video"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "E' possibile catturare quanto mostrato da una ''MapView'' e salvarlo in un file video. <BR>E' necessario attivare anche il Componente ''gb.media''. ===Creare un file video di...") |
|||
| Riga 116: | Riga 116: | ||
cnv.LinkTo(flt) | cnv.LinkTo(flt) | ||
flt.LinkTo(enc) | flt.LinkTo(enc) | ||
| + | enc.LinkTo(mux) | ||
| + | mux.LinkTo(snk) | ||
| + | |||
| + | <FONT Color=gray>' ''Avvia la registrazione video:''</font> | ||
| + | pl.Play() | ||
| + | |||
| + | tm = Now | ||
| + | |||
| + | While Not bo | ||
| + | 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> | ||
| + | Me.Title = "Tempo: " & Str(Time(0, 0, 0, i)) | ||
| + | Wait 0.01 | ||
| + | Wend | ||
| + | |||
| + | End | ||
| + | |||
| + | |||
| + | Public Sub Button2_Click() | ||
| + | |||
| + | bo = True | ||
| + | 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 | ||
| + | Private bo As Boolean | ||
| + | |||
| + | 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") | ||
| + | <FONT Color=gray>' ''Assegna alla proprietà "xid" il numero identificativo della finestra della "MapView" da registrare:''</font> | ||
| + | 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" | ||
| + | |||
| + | <FONT Color=gray>' ''Collega fra loro i plugin di "GStreamer":''</font> | ||
| + | src.LinkTo(cnv) | ||
| + | cnv.LinkTo(enc) | ||
enc.LinkTo(mux) | enc.LinkTo(mux) | ||
mux.LinkTo(snk) | mux.LinkTo(snk) | ||
Versione delle 17:25, 12 lug 2024
E' possibile catturare quanto 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
Private bo As Boolean
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 Not bo
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()
bo = True
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
Private bo As Boolean
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 Not bo
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()
bo = True
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
Private bo As Boolean
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 Not bo
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()
bo = True
pl.Stop()
pl.Close()
Print "Registrazione terminata !"
End
