Sub Get_Frame()
Dim URL As String = "rtsp://192.168.1.168:554/ch01/0"
'Dim command As String = "/usr/bin/ffmpeg -rtsp_transport tcp -i " & URL & " -r 1 -vsync 1 -qscale 1 -frames:v 1 -f image2 images_$(date +%F_%H-%M-%S).jpg"
Dim ff As String = "/usr/bin/ffmpeg"
Dim Args As List
Args.Initialize
Args.Add("-rtsp_transport")
Args.Add("tcp")
Args.Add("-i")
Args.Add(URL)
Args.Add("-r") 'frame rate
Args.Add("1")
Args.Add("-vsync")
Args.Add("1")
Args.Add("-qscale:v")
Args.Add("5") '3=86%, 5=76%
'Args.Add("-qscale")
'Args.Add("1")
Args.Add("-frames:v")
Args.Add("1")
Args.Add("-f")
Args.Add("image2")
Args.Add("image_" & Get_Stamp & ".jpg")
Dim sh As Shell
sh.Initialize("ffmpeg", ff, Args)
sh.WorkingDirectory = File.DirApp
Dim res As ShellSyncResult = sh.RunSynchronous(-1)
#if Debug
Log(res.Success & "; ExitCode = " & res.ExitCode)
Log("StdOut = " & res.StdOut)
Log("StdErr = " & res.StdErr)
#end if
End Sub
Sub Get_Stamp As String
Dim b As String, d, E As Long, f As Float
DateTime.DateFormat = "yyyy-MM-dd"
DateTime.TimeFormat = "HH-mm-ss"
d = DateTime.Now
E = d - DateTime.TimeParse(DateTime.Time(d))
f = E/DateTime.TicksPerSecond
b = NumberFormat(f, 0, 3)
Dim stamp As String = DateTime.DAte(d) & " " & DateTime.Time(d) & b
Return stamp
End Sub
Indeed, my timer was 500 ms, now i have tried 200 ms, and result looks maximal, almost same:
The same. Frequency here depends directly on the cam stream settings.
3-5 times more slow.
unclear. Now cam is just in a dark corner, pictures are 99.9% same.
I see the point...
I was discussing with a ML-developer and he told that for neural networks - the stable grabbing process is the key feature. And for ex. OpenCV has a big trouble with it - rare, but can work un-stable with IP-cams inside Python code.
#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
Private Button2 As Button
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
End Sub
Sub Button1_Click
Get_Frame
End Sub
Sub Get_Frame()
Dim URL As String = "rtsp://rtsp.stream/pattern"
'Dim command As String = "/usr/bin/ffmpeg -rtsp_transport tcp -i " & URL & " -r 1 -vsync 1 -qscale 1 -frames:v 1 -f image2 images_$(date +%F_%H-%M-%S).jpg"
Dim ff As String = "ffmpeg.exe"
Dim Args As List
Args.Initialize
Args.Add("-i")
Args.Add(QUOTE & URL & QUOTE)
Args.Add("-r")
Args.Add("10") 'try for 10fps
Args.Add("image%01d.jpg")
Dim sh As Shell
sh.Initialize("ffmpeg", ff, Args)
sh.WorkingDirectory = File.DirApp
sh.Run(-1)
'Dim res As ShellSyncResult =
' #if Debug
' Log(res.Success & "; ExitCode = " & res.ExitCode)
' Log("StdOut = " & res.StdOut)
' Log("StdErr = " & res.StdErr)
' #end if
End Sub
Sub Get_Stamp As String
Dim b As String, d, E As Long, f As Float
DateTime.DateFormat = "yyyy-MM-dd"
DateTime.TimeFormat = "HH:mm:ss"
d = DateTime.Now
E = d - DateTime.TimeParse(DateTime.Time(d))
f = E/DateTime.TicksPerSecond
b = NumberFormat(f, 0, 3)
Dim stamp As String = DateTime.DAte(d) & " " & DateTime.Time(d) & b
Return stamp
End Sub
Private Sub Button2_Click
Dim ff As String = "taskkill.exe"
Dim Args As List
Args.Initialize
Args.Add("/F")
Args.Add("/IM")
Args.Add("ffmpeg.exe")
Dim sh As Shell
sh.Initialize("tk", ff, Args)
sh.WorkingDirectory = "c:\windows\system32"
sh.Run(-1)
End Sub
