SCrawler/SCrawler.YouTube/Base/Structures.vb

' 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
Namespace API.YouTube.Base
    Public Structure Thumbnail : Implements IIndexable, IComparable(Of Thumbnail)
        Public ID As String
        Public Width As Integer
        Public Height As Integer
        Public URL As String
        Public Property Index As Integer Implements IIndexable.Index
        Private Function SetIndex(ByVal Obj As Object, ByVal Index As Integer) As Object Implements IIndexable.SetIndex
            Dim t As Thumbnail = Obj
            t.Index = Index
            Return t
        End Function
        Private Function CompareTo(ByVal Other As Thumbnail) As Integer Implements IComparable(Of Thumbnail).CompareTo
            Return Width.CompareTo(Other.Width) * -1
        End Function
    End Structure
    Public Structure Subtitles : Implements IIndexable, IComparable(Of Subtitles)
        Public ID As String
        Public Name As String
        Public Formats As String
        Public ReadOnly Property FullID As String
            Get
                Return IIf(ID = "en", "en.*", ID)
            End Get
        End Property
        Public Property Index As Integer Implements IIndexable.Index
        Private Function SetIndex(ByVal Obj As Object, ByVal Index As Integer) As Object Implements IIndexable.SetIndex
            Dim s As Subtitles = Obj
            s.Index = Index
            Return s
        End Function
        Private Function CompareTo(ByVal Other As Subtitles) As Integer Implements IComparable(Of Subtitles).CompareTo
            Return Name.CompareTo(Other.Name)
        End Function
    End Structure
    Public Enum YouTubeMediaType As Integer
        Undefined = 0
        [Single] = 1
        Channel = 2
        PlayList = 3
    End Enum
    Public Structure MediaObject : Implements IIndexable, IComparable(Of MediaObject)
        Public Type As Plugin.UserMediaTypes
        Public ID As String
        Public Extension As String
        Public Width As Integer
        Public Height As Integer
        Public FPS As Integer
        Public Bitrate As Integer
        ''' <summary>Kb</summary>
        Public Size As Double
        Public Codec As String
        Public Protocol As String
        Public URL As String
        Public Property Index As Integer Implements IIndexable.Index
        Private Function SetIndex(ByVal Obj As Object, ByVal Index As Integer) As Object Implements IIndexable.SetIndex
            Dim m As MediaObject = Obj
            m.Index = Index
            Return m
        End Function
        Private Function CompareTo(ByVal Other As MediaObject) As Integer Implements IComparable(Of MediaObject).CompareTo
            If Type = Other.Type Then
                If Width.CompareTo(Other.Width) = 0 Then
                    Return Size.CompareTo(Other.Size) * -1
                Else
                    Return Width.CompareTo(Other.Width) * -1
                End If
            Else
                Return CInt(Type).CompareTo(CInt(Other.Type))
            End If
        End Function
    End Structure
End Namespace