mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-16 00:32:18 +00:00
2023.6.5.0
YT settings: removed property 'ItemsListLimit', add property 'ReplaceModificationDate' YT.MediaItem: fix 'Pending' YT.VideoListForm: add 'Shift' to add without downloading; add 'F5' hot key to start download; remove list items limit; fix item 'Pending', fixed items queue UserDataBase: add 'IconBannerDownloaded' properties; add 'HOST.Available' check to 'DownloadSingleObject'; update file deletion in 'DownloadContentDefault'; add truncating '_TempPostsList' if number of ids > 1000 Instagram: add authorization headers Mastodon: implement 'DownloadIconBanner'; update 'ReparseMissing' function Reddit: implement 'DownloadIconBanner' Twitter: implement 'DownloadIconBanner'; update parsers to parse posts with two videos; implement gallery-dl for all function; remove headers from settings Download.DownloadProgress: remove main progress perform when downloading saved posts VideoDownloaderForm: bind the 'BTT_ADD_URLS_ARR' button to the 'BTT_ADD_KeyClick' function UsersInfoForm: add folder opening on double click on an item ListImagesLoader: fix refill bug when the number of filtered profiles = 0 TrayIcon: add standalone downloader to context menu DownloadableMediaHost: fix a bug when not downloaded videos do not appear in the list when loading the program
This commit is contained in:
@@ -23,6 +23,15 @@ Namespace Plugin.Hosts
|
||||
End Property
|
||||
Friend Property Instance As UserDataBase
|
||||
Friend ReadOnly Property ExternalSource As IDownloadableMedia = Nothing
|
||||
Public Overrides ReadOnly Property Exists As Boolean
|
||||
Get
|
||||
If SiteKey = API.YouTube.YouTubeSiteKey Then
|
||||
Return MyBase.Exists
|
||||
Else
|
||||
Return _Exists
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides Property File As SFile
|
||||
Get
|
||||
Return _File
|
||||
@@ -128,7 +137,7 @@ Namespace Plugin.Hosts
|
||||
End Sub
|
||||
Public Overrides Sub Load(ByVal f As SFile)
|
||||
MyBase.Load(f)
|
||||
If _Exists Then _Exists = File.Exists
|
||||
If _Exists Then _Exists = Not MediaState = UserMediaStates.Downloaded OrElse File.Exists
|
||||
End Sub
|
||||
Public Overrides Sub Save()
|
||||
If FileSettings.IsEmptyString Then
|
||||
@@ -142,6 +151,9 @@ Namespace Plugin.Hosts
|
||||
x.Save(FileSettings)
|
||||
End Using
|
||||
End Sub
|
||||
Public Overrides Function GetHashCode() As Integer
|
||||
Return URL.GetHashCode
|
||||
End Function
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If Not disposedValue And disposing Then Instance.DisposeIfReady() : ExternalSource.DisposeIfReady(False)
|
||||
MyBase.Dispose(disposing)
|
||||
|
||||
Reference in New Issue
Block a user