mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-14 15:52:18 +00:00
5f90bf6a99
YT MusicPlaylistsForm, VideoOptionsForm: add audio bitrate option MediaItem: update type icon; update confirmation dialog for deleting non-single object Track: update extension PlayList: update 'ToString' information for 'MediaItem' YouTubeMediaContainerBase: add size recalculation; add audio bitrate change; embed thumbnail in the extracted 'mp3' as cover art; update 'DownloadCommand' function; include elements' files in XML for non-single items; update 'Delete' function; update files handling; include generated playlists and cover file in the file list YouTubeSettings: add properties 'DefaultAudioEmbedThumbnail_ExtractedFiles', 'DefaultAudioBitrate', 'DefaultAudioBitrate_crf' Exclude 'drc' from parsing results Fix incorrect file reference when the yt-dlp.exe has a different name SCrawler Base.Declarations: hide 'TokenRefreshIntervalProvider' error Base.DeclaredNames: remove 'Header_FB_FRIENDLY_NAME' const (use 'API.Instagram.UserData.GQL') Base.M3U8Base: add 'SkipBroken' argument Base.UserDataBase: add size recalculation (STD) Base.SiteSettingsBase: add 'SettingsVersion' property TDownloader: delete 'RenameOldFileNames' function SiteEditorForm: remove begin/end update of global settings when updating MainFrame: update 'BTT_DOWN_SPEC' tooltip SettingsHostCollection, SettingsHost: move site settings to a personal setting file (delete these settings from the global settings file) DownloadGroupCollection: remove data update during initialization and reindexing SettingsCLS: add 'SettingsVersion' property Add hidden controls API.JustForFans: change m3u8 parsing and downloading algo; remove 'CancellationToken' from m3u8 (replace with 'IThrower') API.Facebook: add option 'RequestsWaitTimer_Any'; add internal option 'DownloadData_Impl'; update GDL names and tokens references; add wait timers API.Threads: add option 'RequestsWaitTimer_Any'; add internal option 'DownloadData_Impl'; update GDL names and tokens references; add wait timers API.Instagram: ADD 'GDL' SUPPORT; add 'UpdateWwwClaim' to 'Declarations.UpdateResponser' and 'UserData'; add additional 'HH_IG_WWW_CLAIM' properties; add 'RequestsWaitTimer_Any' property; add tooltips for timer controls; update 'LastRequests' environment; update information about requests on the label in the settings form; update reels downloading function
67 lines
3.3 KiB
VB.net
67 lines
3.3 KiB
VB.net
' 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 PersonalUtilities.Functions.XML
|
|
Imports PersonalUtilities.Forms.Toolbars
|
|
Namespace API.YouTube.Objects
|
|
Public Class Track : Inherits YouTubeMediaContainerBase
|
|
Public Sub New()
|
|
IsMusic = True
|
|
ObjectType = Base.YouTubeMediaType.Single
|
|
End Sub
|
|
Protected Overrides Sub GenerateFileName()
|
|
If Not FileSetManually Or _File.IsEmptyString Then
|
|
Dim indx$ = String.Empty
|
|
If PlaylistIndex > 0 Then indx = PlaylistIndex.NumToString(ANumbers.Formats.NumberGroup, PlaylistCount.ToString.Length)
|
|
If Not indx.IsEmptyString Then indx &= ". "
|
|
_File.Name = $"{indx}{Title}"
|
|
If Not OutputAudioCodec.IsEmptyString Then
|
|
_File.Extension = OutputAudioCodec.StringToLower
|
|
ElseIf Not MyYouTubeSettings.DefaultAudioCodecMusic.IsEmptyString Then
|
|
_File.Extension = MyYouTubeSettings.DefaultAudioCodecMusic.Value.StringToLower
|
|
Else
|
|
_File.Extension = mp3
|
|
End If
|
|
_File = CleanFileName(_File)
|
|
End If
|
|
End Sub
|
|
Public Overrides Function ToString(ByVal ForMediaItem As Boolean) As String
|
|
Dim s$ = SizeStr
|
|
If Not s.IsEmptyString Then s = $" [{s}]"
|
|
Dim pls$ = String.Empty
|
|
If PlaylistIndex > 0 Then pls = $"{PlaylistIndex.NumToString(ANumbers.Formats.NumberGroup, PlaylistCount.ToString.Length)}. "
|
|
If ForMediaItem Then
|
|
Return Title
|
|
Else
|
|
Return $"{pls}{Title} ({AConvert(Of String)(Duration, TimeToStringProvider)}){s}"
|
|
End If
|
|
End Function
|
|
Public Overrides Function Parse(ByVal Container As EContainer, ByVal Path As SFile, ByVal IsMusic As Boolean,
|
|
Optional ByVal Token As Threading.CancellationToken = Nothing, Optional ByVal Progress As IMyProgress = Nothing) As Boolean
|
|
_MediaType = Plugin.UserMediaTypes.Audio
|
|
_ObjectType = Base.YouTubeMediaType.Single
|
|
Me.IsMusic = IsMusic
|
|
If MyBase.Parse(Container, Path, IsMusic, Token, Progress) Then
|
|
With MyYouTubeSettings
|
|
Dim f As SFile = .OutputPath
|
|
If f.IsEmptyString Then f = "YouTubeDownloads\OutputFile.mp3"
|
|
Dim ext$ = .DefaultAudioCodecMusic.Value.StringToLower.IfNullOrEmpty(.DefaultAudioCodec.Value.StringToLower)
|
|
If ext.IsEmptyString Then ext = "mp3"
|
|
f.Extension = ext
|
|
'If f.Name.IsEmptyString Then f.Name = File.Name
|
|
File = f
|
|
If _File.Extension.IsEmptyString Then _File.Extension = ext
|
|
_File = CleanFileName(_File)
|
|
End With
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
End Function
|
|
End Class
|
|
End Namespace |