mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-16 00:32:18 +00:00
2022.10.18.0
Moved UserMedia xml initialization to the structure itself Added download with feed skip Added silent mode (temporary disabling notifications) Added additional Instagram protection Excluding users whose profiles do not exist from downloading with groups and AutoDownloader Feed: delete file bugs; reorder data after file deletion; video playback bugs SiteSettingsForm: enable 'OK' button when editing cookies Fixed collection users ban Settings: disabling ffmpeg missing notification; advanced notification management Added 'ToolStripKeyMenuItem' control Plugins: deprecated XVIDEOS and LPSG plugin libraries; moved them to SCrawler. Updated license PluginProvider: added 'BeginEdit' and 'EndEdit' function to ISiteSettings; changed GetSpecialData (ISiteSettings) return type to IEnumerable PluginsEnvironment: removed 'IsMyClass' attribute MainFrame: grouped all download buttons into one menu; reorganized code; removed 'F2' hotkey AutoDownloader: added advanced pause options; added buttons to tray icon and AutoDownloader form MissingPosts: finished; activated functions that were disabled; added download functions to UserData classes UserDataBase: ability to use responser; ability to download m3u8; extended 'DownloadingException' with optional argument 'EObj'; user index in collection (button tag) changed to user instance; extended information with user labels; updated 'ProcessException' function Replaced download buttons with 'KeyClick' control Replaced FDatePickerForm with my library's form Collections: Deleting multiple collections - disabled confirmation; ban each user in collection
This commit is contained in:
Andy
180
SCrawler/Download/Feed/FeedVideo.vb
Normal file
180
SCrawler/Download/Feed/FeedVideo.vb
Normal file
@@ -0,0 +1,180 @@
|
||||
' Copyright (C) 2023 Andy https://github.com/AAndyProgram
|
||||
' This program is free software: you can redistribute it and/or modify
|
||||
' it under the terms of the GNU General Public License as published by
|
||||
' the Free Software Foundation, either version 3 of the License, or
|
||||
' (at your option) any later version.
|
||||
'
|
||||
' This program is distributed in the hope that it will be useful,
|
||||
' but WITHOUT ANY WARRANTY
|
||||
Imports LibVLCSharp
|
||||
Imports System.Threading
|
||||
Imports System.ComponentModel
|
||||
Imports PersonalUtilities.Tools
|
||||
Imports PersonalUtilities.Tools.WEB
|
||||
Imports VLCState = LibVLCSharp.Shared.VLCState
|
||||
Namespace DownloadObjects
|
||||
<ToolboxItem(False), DesignTimeVisible(False)>
|
||||
Public Class FeedVideo
|
||||
Private WithEvents MediaPlayer As [Shared].MediaPlayer
|
||||
Private ReadOnly TimeChange As Action = Sub()
|
||||
If _Disposed Then Exit Sub
|
||||
Dim v# = DivideWithZeroChecking(MediaPlayer.Time, MediaPlayer.Length) * 10
|
||||
If v > 10 Then TR_POSITION.Value = 10 Else TR_POSITION.Value = v
|
||||
End Sub
|
||||
Private ReadOnly TimeChangeLabel As Action = Sub()
|
||||
If _Disposed Then Exit Sub
|
||||
If MediaPlayer.Time >= 0 Then
|
||||
Dim t As TimeSpan = TimeSpan.FromMilliseconds(MediaPlayer.Time)
|
||||
If Not VideoLength.HasValue Then
|
||||
VideoLengthMs = MediaPlayer.Length
|
||||
VideoLength = TimeSpan.FromMilliseconds(VideoLengthMs)
|
||||
VideoLengthStr = VideoLength.Value.ToStringTime(FeedVideoLengthProvider)
|
||||
End If
|
||||
LBL_TIME.Text = $"{t.ToStringTime(FeedVideoLengthProvider)}/{VideoLengthStr}"
|
||||
End If
|
||||
End Sub
|
||||
Private ReadOnly MyImage As ImageRenderer
|
||||
Private VideoLength As TimeSpan?
|
||||
Private VideoLengthMs As Integer = 0
|
||||
Private VideoLengthStr As String
|
||||
Private MediaFile As SFile = Nothing
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
End Sub
|
||||
Friend Sub New(ByVal File As SFile)
|
||||
InitializeComponent()
|
||||
Try
|
||||
MediaFile = File
|
||||
Dim debugLogs As Boolean = False
|
||||
'#If DEBUG Then
|
||||
' debugLogs = True
|
||||
'#End If
|
||||
MediaPlayer = New [Shared].MediaPlayer(New [Shared].Media(New [Shared].LibVLC(enableDebugLogs:=debugLogs), New Uri(File.ToString)))
|
||||
MyVideo.MediaPlayer = MediaPlayer
|
||||
TR_VOLUME.Value = MediaPlayer.Volume / 10
|
||||
If Settings.UseM3U8 Then
|
||||
Dim f As SFile = $"{Settings.CachePath.PathWithSeparator}FeedSnapshots\{File.GetHashCode}.png"
|
||||
If Not f.Exists Then f = FFMPEG.TakeSnapshot(File, f, Settings.FfmpegFile, TimeSpan.FromSeconds(1))
|
||||
If f.Exists Then
|
||||
MyImage = New ImageRenderer(f, EDP.None)
|
||||
Try
|
||||
If Not MyImage.HasError Then
|
||||
MyVideo.BackgroundImage = MyImage
|
||||
MyVideo.BackgroundImageLayout = ImageLayout.Zoom
|
||||
End If
|
||||
Catch img_set_ex As Exception
|
||||
'TODELETE: FeedVideo set BackgroundImage error
|
||||
ErrorsDescriber.Execute(EDP.SendInLog, img_set_ex, "Error setting background image for media player." & vbCr &
|
||||
$"File: {File}{vbCr}Image: {f}")
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
UpdateButtons()
|
||||
Catch ex As Exception
|
||||
'TODELETE: FeedVideo initialization error
|
||||
ErrorsDescriber.Execute(EDP.SendInLog, ex, $"Media player initialization error({File})")
|
||||
End Try
|
||||
End Sub
|
||||
Private _Disposed As Boolean = False
|
||||
Private Sub FeedVideo_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
|
||||
_Disposed = True
|
||||
If Not MediaPlayer Is Nothing Then MediaPlayer.Dispose()
|
||||
If Not MyImage Is Nothing Then MyImage.Dispose()
|
||||
End Sub
|
||||
Private Async Sub BTT_PLAY_Click(sender As Object, e As EventArgs) Handles BTT_PLAY.Click
|
||||
If _Disposed Then Exit Sub
|
||||
Try
|
||||
Dim p As Boolean = False
|
||||
Select Case MediaPlayer.State
|
||||
Case VLCState.NothingSpecial, VLCState.Stopped, VLCState.Paused : p = True
|
||||
Case VLCState.Ended : Await Task.Run(Sub() [Stop]()) : p = True
|
||||
End Select
|
||||
If p Then Await RunAction(Sub()
|
||||
Try : MediaPlayer.Play() : Catch : End Try
|
||||
End Sub, "Play")
|
||||
Catch
|
||||
Finally
|
||||
UpdateButtons()
|
||||
End Try
|
||||
End Sub
|
||||
Private Async Sub BTT_PAUSE_Click(sender As Object, e As EventArgs) Handles BTT_PAUSE.Click
|
||||
If _Disposed Then Exit Sub
|
||||
Await RunAction(Sub()
|
||||
Try : MediaPlayer.Pause() : Catch : End Try
|
||||
End Sub, "Pause")
|
||||
UpdateButtons()
|
||||
End Sub
|
||||
Friend Async Sub [Stop]() Handles BTT_STOP.Click
|
||||
If _Disposed Then Exit Sub
|
||||
Await RunAction(Sub()
|
||||
Try : MediaPlayer.Stop() : Catch : End Try
|
||||
End Sub, "Stop")
|
||||
UpdateButtons()
|
||||
End Sub
|
||||
Private Sub MediaPlayer_TimeChanged(sender As Object, e As [Shared].MediaPlayerTimeChangedEventArgs) Handles MediaPlayer.TimeChanged
|
||||
If _Disposed Then Exit Sub
|
||||
If TR_POSITION.InvokeRequired Then TR_POSITION.Invoke(TimeChange) Else TimeChange.Invoke
|
||||
If LBL_TIME.InvokeRequired Then LBL_TIME.Invoke(TimeChangeLabel) Else TimeChangeLabel.Invoke
|
||||
End Sub
|
||||
Private Async Sub TR_POSITION_MouseUp(sender As Object, e As MouseEventArgs) Handles TR_POSITION.MouseUp
|
||||
If _Disposed Then Exit Sub
|
||||
Try
|
||||
Dim p% = e.X
|
||||
Dim w% = TR_POSITION.Width
|
||||
Dim v#
|
||||
If p >= w Then
|
||||
[Stop]()
|
||||
Else
|
||||
If p <= 0 Then
|
||||
v = 0
|
||||
Else
|
||||
v = VideoLengthMs / 100 * (DivideWithZeroChecking(p, w) * 100).RoundVal(2)
|
||||
End If
|
||||
Await RunAction(Sub()
|
||||
Try : MediaPlayer.Time = v : Catch : End Try
|
||||
End Sub, "TimeChange")
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub TR_VOLUME_MouseUp(sender As Object, e As MouseEventArgs) Handles TR_VOLUME.MouseUp
|
||||
If _Disposed Then Exit Sub
|
||||
Try : MediaPlayer.Volume = TR_VOLUME.Value * 10 : Catch : End Try
|
||||
End Sub
|
||||
Private Sub MediaPlayer_Stopped(sender As Object, e As EventArgs) Handles MediaPlayer.Stopped
|
||||
If _Disposed Then Exit Sub
|
||||
Dim a As Action = Sub() TR_POSITION.Value = TR_POSITION.Maximum
|
||||
If TR_POSITION.InvokeRequired Then TR_POSITION.Invoke(a) Else a.Invoke
|
||||
UpdateButtons()
|
||||
End Sub
|
||||
Private Sub UpdateButtons() Handles MediaPlayer.Playing, MediaPlayer.Paused, MediaPlayer.Opening
|
||||
Try
|
||||
If _Disposed Then Exit Sub
|
||||
Dim _play As Boolean = False, _pause As Boolean = False, _stop As Boolean = False
|
||||
Select Case MediaPlayer.State
|
||||
Case VLCState.NothingSpecial, VLCState.Stopped : _play = True
|
||||
Case VLCState.Paused : _play = True : _stop = True
|
||||
Case VLCState.Ended : _play = True
|
||||
Case VLCState.Playing : _pause = True : _stop = True
|
||||
End Select
|
||||
ControlInvoke(BTT_PLAY, Sub() BTT_PLAY.Enabled = _play)
|
||||
ControlInvoke(BTT_PAUSE, Sub() BTT_PAUSE.Enabled = _pause)
|
||||
ControlInvoke(BTT_STOP, Sub() BTT_STOP.Enabled = _stop)
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
Private Async Function RunAction(ByVal Action As Action, ByVal ActionName As String) As Task
|
||||
Try
|
||||
If _Disposed Then Exit Function
|
||||
Using ts As New CancellationTokenSource
|
||||
Dim token As CancellationToken = ts.Token
|
||||
Using t As New Timer(Sub(cts) ts.Cancel(), ts, 5000, Timeout.Infinite) : Await Task.Run(Action, token) : End Using
|
||||
End Using
|
||||
Catch oex As OperationCanceledException
|
||||
MyMainLOG = $"Cannot perform action [{ActionName}] on file [{MediaFile}]"
|
||||
Catch ex As Exception
|
||||
ErrorsDescriber.Execute(EDP.SendInLog, ex, $"An error occurred while performing action [{ActionName}] on file [{MediaFile}]")
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
End Namespace
|
||||
Reference in New Issue
Block a user