B4A Library [Class B4X ] YouTube V3

MarcoRome · Sep 20, 2015

Hi all.
This is new version 2.00
Now is possibile NextPage and PreviousPage.
For any movie you have all details as:
Etag, Title, Description, PublisheAt, Urlpicture, categoryId, channelTitle, Definition, dimension, PrivacyStatus, dislikeCount, likeCount, viewCount, CommentCount, Duration
Note Duration return example: PT15M33S this is 15 minutes and 33 seconds.
And more.... this version is very fast look movie in youtube.

YouTubeList
Author: Devil-App
Version: 2.05

YouTubeList
Author: Devil-App
Version: 2

Methods:
- IsInitialized As Boolean
- Tests whether the object has been initialized.
  [*]detailsvideo (id As String, Module As Object, EventName As String) As String
  
  Example
  yt.DeatilsVideo( id, Me, "details_page")
  
  id = Id Video YouTube type: "7lCDEYXw3mM"
  
  [*]initialize (key As String, Log as Boolean) As String
  [*]readingchannel (maxresult As Int, channelId As String, order As String, videoDuration As String, Module As Object, EventName As String) As String
  maxresult = 0 to 50
  channelId = example --> "UCe5xLaib7HmDPbBp132t_9A"
  order = date - rating - relevance - title - videoCount - viewCount ( if "" default value is relevance )
  videoDuration = any - long( > 20 min.) - medium ( 4 min. to 20 min. ) - short ( if "" default value is any )
  
  [*]readingchannelpage (nextpage As String, prevpage As String, maxresult As Int, channelId As String, order As String, videoDuration As String, Module As Object, EventName As String) As String
  
  Example
  For Next Page:
  yt.ReadingChannelPage(nextpage, "", maxresult, channelId, order, videoDuration, Me, "scroll_page")
  or
  For Previous Page
  yt.ReadingChannelPage("", prevpage, maxresult, channelId, order, videoDuration, Me, "scroll_page")
  
  maxresult = 0 to 50
  channelId = example --> "UCe5xLaib7HmDPbBp132t_9A"
  order = date - rating - relevance - title - videoCount - viewCount ( if "" default value is relevance )
  videoDuration = any - long( > 20 min.) - medium ( 4 min. to 20 min. ) - short ( if "" default value is any )
  
  [*]readingplaylist (maxresult As Int, playlistId As String, Module As Object, EventName As String) As String
  maxresult = 0 to 50
  playlistId = example --> "PL63F0C78739B09958"
  
  [*]readingplaylistpage (nextpage As String, prevpage As String, maxresult As Int, playlistId As String, Module As Object, EventName As String) As String
  
  Example
  For Next Page:
  yt.ReadingPlayListPage(nextpage, "", maxresult, playlistId, Me, "scroll_page")
  or
  For Previous Page
  yt.ReadingPlayListPage("", prevpage, maxresult, playlistId, Me, "scroll_page")
  
  maxresult = 0 to 50
  playlistId = example --> "PL63F0C78739B09958"
  
  [*]searchchannel (maxresult As Int, search As String, regionCode As String, videoDuration As String, Module As Object, EventName As String) As String
  maxresult = 0 to 50
  search = "Ricky Martin"
  regioncode = "IT" - "US" etc.
  videoDuration = any - long( > 20 min.) - medium ( 4 min. to 20 min. ) - short ( if "" default value is any )
  
  [*]searchchannelpage (nextpage As String, prevpage As String, maxresult As Int, search As String, regionCode As String, videoDuration As String, Module As Object, EventName As String) As String
  
  Example
  For Next Page:
  yt.SearchChannelPage(nextpage, "", maxresult, search, regionCode, videoDuration, Me, "scroll_page")
  or
  For Previous Page
  yt.SearchChannelPage("", prevpage, maxresult, search, regionCode, videoDuration, Me, "scroll_page")
  
  maxresult = 0 to 50
  search = "Ricky Martin"
  regioncode = "" is all or "IT" - "US" etc.
  videoDuration = any - long( > 20 min.) - medium ( 4 min. to 20 min. ) - short ( if "" default value is any )
  
  [*]searchplaylist (maxresult As Int, search As String, order As String, regionCode As String, videoDuration As String, Module As Object, EventName As String) As String
  maxresult = 0 to 50
  search = "Ricky Martin"
  order = date - rating - relevance - title - videoCount - viewCount ( if "" default value is revelance )
  regioncode = "IT" - "US" etc.
  videoDuration = any - long( > 20 min.) - medium ( 4 min. to 20 min. ) - short ( if "" default value is any )
  
  [*]searchplaylistpage (nextpage As String, prevpage As String, maxresult As Int, search As String, order As String, regionCode As String, videoDuration As String, Module As Object, EventName As String) As String
  
  Example
  For Next Page:
  yt.SearchPlayListPage(nextpage, "", maxresult, search, order, regionCode, videoDuration, Me, "scroll_page")
  or
  For Previous Page
  yt.SearchPlayListPage("", prevpage, maxresult, search, order, regionCode, videoDuration, Me, "scroll_page")
  
  maxresult = 0 to 50
  search = "Ricky Martin"
  order = date - rating - relevance - title - videoCount - viewCount ( if "" default value is revelance )
  regioncode = "IT" - "US" etc.
  videoDuration = any - long( > 20 min.) - medium ( 4 min. to 20 min. ) - short ( if "" default value is any )
  
  [*]searchvideo (maxresult As Int, search As String, order As String, regionCode As String, videoDuration As String, Module As Object, EventName As String) As String
  maxresult = 0 to 50
  search = "Ricky Martin"
  order = date - rating - relevance - title - videoCount - viewCount ( if "" default value is revelance )
  regioncode = "IT" - "US" etc. ( if "" default value is all world )
  videoDuration = any - long( > 20 min.) - medium ( 4 min. to 20 min. ) - short ( if "" default value is any )
  
  [*]searchvideopage (nextpage As String, prevpage As String, maxresult As Int, search As String, order As String, regionCode As String, videoDuration As String, Module As Object, EventName As String) As String
  
  Example
  For Next Page:
  yt.SearchVideoPage(nextpage, "", maxresult, search, order, "", "", Me, "scroll_page")
  or
  For Previous Page
  yt.SearchVideoPage("", prevpage, maxresult, search, order, "", "", Me, "scroll_page")
  
  nextpage = SVideo.nextpage(i)
  prevpage = SVideo.prevpage(i)
  maxresult = 0 to 50
  search = "Ricky Martin"
  order = date - rating - relevance - title - videoCount - viewCount ( if "" default value is revelance )
  regioncode = "IT" - "US" etc. ( if "" default value is all world )
  videoDuration = any - long( > 20 min.) - medium ( 4 min. to 20 min. ) - short ( if "" default value is any )

B4X:

Sub Activity_Create(FirstTime As Boolean)

    yt.Initialize(key)

    'For details Id Video
    'You have as Return:
    'Etag, Title, Description, PublisheAt, Urlpicture, categoryId, channelTitle, Definition, dimension,
    'PrivacyStatus, dislikeCount, likeCount, viewCount, CommentCount, Duration
    'Note Duration return example: PT15M33S this is 15 minutes and 33 seconds.
    'yt.DetailsVideo(id, Me,  "details_page")


    'yt.SearchVideo(maxresult, search, order, "", "", Me, "search_video")
    'yt.SearchVideoPage(nextpage, prevpage, maxresult, search, order, "", "", Me, "scroll_search_video")

    'yt.ReadingChannel(maxresult, channelId, order, "", Me, "reading_channel")
    'yt.ReadingChannelPage(nextpage, prevpage, maxresult, channelId, order, "", Me, "scroll_reading_channel")

    'yt.ReadingPlayList( maxresult, playlist, Me, "reading_playlist")
    yt.ReadingPlayListPage(nextpage, prevpage,maxresult, playlist, Me, "scroll_reading_playlist")

    'yt.SearchChannel( maxresult, search, "", "", Me, "search_channel")
    'yt.SearchChannelPage(nextpage, prevpage, maxresult, search, "", "", Me, "scroll_search_channel")

    'yt.SearchPlayList(maxresult, search, "", "", "", Me, "search_playlist")
    'yt.SearchPlayListPage(nextpage, prevpage, maxresult, search, "", "", "", Me, "scroll_search_playlist")






End Sub

Sub details_page(DVideo As DetailsVideo)

       LogColor("Title: " & DVideo.title(0), Colors.Blue)
        Log("Description: " & DVideo.description(0) )
        Log("Pubblished At: " &  DVideo.publishedAt(0) )
        Log("Url Pictures: " &  DVideo.urlpicture(0) )
        Log("Etag: " &  DVideo.Etag(0) )
        Log("CategoryId: " &  DVideo.CategoryId(0) )
        Log("ChannelTitle: " &  DVideo.channelTitle(0) )
        Log("Definition: " &  DVideo.Definition(0) )
        Log("Dimension: " &  DVideo.Dimension(0) )
        Log("PrivacyStatus: " &  DVideo.PrivacyStatus(0) )
        Log("disLikeCount: " &  DVideo.DislikeCount(0) )
        Log("LikeCount: " &  DVideo.LikeCount(0) )
        Log("ViewCount: " &  DVideo.ViewCount(0) )
        Log("CommentCount: " &  DVideo.CommentCount(0) )
        Log("Duration: " &  DVideo.Duration(0) )


End Sub

Sub search_video(SVideo As SearchVideo)



    LogColor("Total Results: " & SVideo.totalResults, Colors.Red)

    Dim p1 As Int
    For p1 = 0 To SVideo.TotalChannel - 1
        LogColor("Title: " & SVideo.title(p1), Colors.Blue)
        Log("Description: " & SVideo.description(p1) )
        Log("Pubblished At: " &  SVideo.publishedAt(p1) )
        Log("Url Pictures: " &  SVideo.urlpicture(p1) )
        Log("ID Video: " & SVideo.idVideo(p1) )
        Log("Next Page: " & SVideo.nextpage(p1))
        Log("Prev Page: " & SVideo.prevpage(p1))
    Next



End Sub

Sub reading_channel(RChannel As ReadChannel)

    LogColor("Total Results: " & RChannel.totalResults, Colors.Red)

    Dim p1 As Int
    For p1 = 0 To RChannel.TotalChannel - 1
        LogColor("Title: " & RChannel.title(p1), Colors.Blue)
        Log("Description: " & RChannel.description(p1) )
        Log("Pubblished At: " &  RChannel.publishedAt(p1) )
        Log("Url Pictures: " &  RChannel.urlpicture(p1) )
        Log("ID Channel: " &  RChannel.idChannel(p1) )
        Log("Play List ID: " & RChannel.playlistid(p1) )
    Next

End Sub




Sub reading_playlist(RPList As ReadingPlayList)

    LogColor("Total Results: " & RPList.totalResults, Colors.Red)

    Dim p1 As Int
    For p1 = 0 To RPList.TotalChannel - 1
        LogColor("Title: " & RPList.title(p1), Colors.Blue)
        Log("Description: " & RPList.description(p1) )
        Log("Pubblished At: " &  RPList.publishedAt(p1) )
        Log("Url Pictures: " &  RPList.urlpicture(p1) )
        Log("ID Video: " & RPList.idVideo(p1) )
    Next

End Sub

Sub search_channel(SChannel As SearchChannel)

    LogColor("Total Results: " & SChannel.totalResults, Colors.Red)

    Dim p1 As Int
    For p1 = 0 To SChannel.TotalChannel - 1
        LogColor("Title: " & SChannel.title(p1), Colors.Blue)
        Log("Channel Title: " & SChannel.ChannelTitle(p1))
        Log("Description: " & SChannel.description(p1) )
        Log("Pubblished At: " &  SChannel.publishedAt(p1) )
        Log("Url Pictures: " &  SChannel.urlpicture(p1) )
        Log("ID Channel: " &  SChannel.ChannelId(p1) )
    Next

End Sub



Sub search_playlist(SPList As SearchPlayList)

    LogColor("Total Results: " & SPList.totalResults, Colors.Red)

    Dim p1 As Int
    For p1 = 0 To SPList.TotalChannel - 1
        LogColor("Title: " & SPList.title(p1), Colors.Blue)
        Log("Channel Title: " & SPList.ChannelTitle(p1))
        Log("Description: " & SPList.description(p1) )
        Log("Pubblished At: " &  SPList.publishedAt(p1) )
        Log("Url Pictures: " &  SPList.urlpicture(p1) )
        Log("ID PlayList: " &  SPList.PlayListId(p1) )
    Next

End Sub



'**********Scroll

Sub scroll_search_video(Svideo As SearchVideo)

        LogColor("Total Results: " & Svideo.totalResults, Colors.Red)

    Dim p1 As Int
    For p1 = 0 To Svideo.TotalChannel - 1
        LogColor("Title: " & Svideo.title(p1), Colors.Blue)
        Log("Description: " & Svideo.description(p1) )
        Log("Pubblished At: " &  Svideo.publishedAt(p1) )
        Log("Url Pictures: " &  Svideo.urlpicture(p1) )
        Log("ID Video: " & Svideo.idVideo(p1) )
        Log("Next Page: " & Svideo.nextpage(p1))
        Log("Prev Page: " & Svideo.prevpage(p1))
        If p1 = 0 Then
            nextpage = Svideo.nextpage(p1)
            prevpage = Svideo.prevpage(p1)
        End If
    Next

 

End Sub


Sub scroll_reading_channel(RChannel As ReadChannel)

    LogColor("Total Results: " & RChannel.totalResults, Colors.Red)


    Dim p1 As Int
    For p1 = 0 To RChannel.TotalChannel - 1
        LogColor("Title: " & RChannel.title(p1), Colors.Blue)
        Log("Description: " & RChannel.description(p1) )
        Log("Pubblished At: " &  RChannel.publishedAt(p1) )
        Log("Url Pictures: " &  RChannel.urlpicture(p1) )
        Log("ID Channel: " &  RChannel.idChannel(p1) )
        Log("Play List ID: " & RChannel.playlistid(p1) )
        If p1 = 0 Then
            nextpage = RChannel.nextpage(p1)
            prevpage = RChannel.prevpage(p1)
        End If
    Next

End Sub

Sub scroll_reading_playlist(RPList As ReadingPlayList)

    LogColor("Total Results: " & RPList.totalResults, Colors.Red)

    Dim p1 As Int
    For p1 = 0 To RPList.TotalChannel - 1
        LogColor("Title: " & RPList.title(p1), Colors.Blue)
        Log("Description: " & RPList.description(p1) )
        Log("Pubblished At: " &  RPList.publishedAt(p1) )
        Log("Url Pictures: " &  RPList.urlpicture(p1) )
        Log("ID Video: " & RPList.idVideo(p1) )
        If p1 = 0 Then
            nextpage = RPList.nextpage(p1)
            prevpage = RPList.prevpage(p1)
        End If
    Next

End Sub

Sub scroll_search_channel(SChannel As SearchChannel)

    LogColor("Total Results: " & SChannel.totalResults, Colors.Red)

    Dim p1 As Int
    For p1 = 0 To SChannel.TotalChannel - 1
        LogColor("Title: " & SChannel.title(p1), Colors.Blue)
        Log("Channel Title: " & SChannel.ChannelTitle(p1))
        Log("Description: " & SChannel.description(p1) )
        Log("Pubblished At: " &  SChannel.publishedAt(p1) )
        Log("Url Pictures: " &  SChannel.urlpicture(p1) )
        Log("ID Channel: " &  SChannel.ChannelId(p1) )
        If p1 = 0 Then
            nextpage = SChannel.nextpage(p1)
            prevpage = SChannel.prevpage(p1)
        End If
    Next

End Sub

Sub scroll_search_playlist(SPList As SearchPlayList)

    LogColor("Total Results: " & SPList.totalResults, Colors.Red)

    Dim p1 As Int
    For p1 = 0 To SPList.TotalChannel - 1
        LogColor("Title: " & SPList.title(p1), Colors.Blue)
        Log("Channel Title: " & SPList.ChannelTitle(p1))
        Log("Description: " & SPList.description(p1) )
        Log("Pubblished At: " &  SPList.publishedAt(p1) )
        Log("Url Pictures: " &  SPList.urlpicture(p1) )
        Log("ID PlayList: " &  SPList.PlayListId(p1) )
        If p1 = 0 Then
            nextpage = SPList.nextpage(p1)
            prevpage = SPList.prevpage(p1)
        End If
    Next

End Sub

'Next Page
Sub Activity_Click

    Log("*********************")
    'yt.SearchVideoPage(nextpage, "", maxresult, search, order, "", "", Me, "scroll_search_video")
    'yt.ReadingChannelPage(nextpage, "", maxresult, channelId, order, "", Me, "scroll_reading_channel")
    'yt.ReadingPlayListPage(nextpage, "",maxresult, playlist, Me, "scroll_reading_playlist")
    'yt.SearchChannelPage(nextpage, "", maxresult, search, "", "", Me, "scroll_search_channel")
    yt.SearchPlayListPage(nextpage, "", maxresult, search, "", "", "", Me, "scroll_search_playlist")


End Sub

'Previous Page
Sub Activity_LongClick
    Log("*********************")
    'yt.SearchVideoPage("", prevpage, maxresult, search, order, "", "", Me,  "scroll_search_video")
    'yt.ReadingChannelPage("", prevpage, maxresult, channelId, order, "", Me, "scroll_reading_channel")
    'yt.ReadingPlayListPage("", prevpage,maxresult, playlist, Me, "scroll_reading_playlist")
    'yt.SearchChannelPage("", prevpage, maxresult, search, "", "", Me, "scroll_search_channel")
    yt.SearchPlayListPage("", prevpage, maxresult, search, "", "", "", Me, "scroll_search_playlist")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

This example that you can download ( Apk ) utilize also ULV By Informatix and Universal Image Loader By Don Mandred

IF YOU TRY APK --> CLICK HERE
IN ATTACHMENT CLASS COMPATIBLE FOR B4X ( B4A, B4i )

Tronak · Nov 21, 2017

Yup. It was there. "smart" mail server, they call it.

Thank you Marco. Let me try it.

Almora · Jan 28, 2018

Adding sample projects for b4a will be very efficient.
respects

MarcoRome · Jan 28, 2018

Almora said:
Adding sample projects for b4a will be very efficient.
respects

Already have in #1 Post

rafaelbr20 · May 24, 2018

Hi Marco. Could you send me last Version ? I´m using 2.03 and i am having problems ! Thanks

MarcoRome · May 25, 2018

Hi Rafael, this is last.
What is the problem ?

rafaelbr20 · May 25, 2018

MarcoRome said:
Hi Rafael, this is last.
What is the problem ?

The last version is Version: 2.05 right ?

The problem I'm having, is that the library is taking almost 50 seconds to display the result. Is there any way I can display a message that it is loading ?

DonManfred · May 25, 2018

rafaelbr20 said:
any way I can display a message that it is loading ?

It is up to you to show a Loadingindicator while waiting for an answer....

MarcoRome · May 25, 2018

rafaelbr20 said:
The last version is Version: 2.05 right ?

The problem I'm having, is that the library is taking almost 50 seconds to display the result. Is there any way I can display a message that it is loading ?

Strain...if you see movie i dont see this problem. Do you tried with another channel ? And how many movies at a time you request ... it's clear that if you enter 1000 ... it will take more time. Set up upload for 50

Duque · Aug 27, 2018

Syd Wright said:
- Will this library show the real Youtube video URL (i.e. a very long string)?
- The APK in thread #1 is no longer available.

I would also like to know...

Will this library show the real Youtube video URL
in this way I could reproduce with exoplayer...

MarcoRome · Aug 28, 2018

soyVB6 said:
I would also like to know...

Will this library show the real Youtube video URL
in this way I could reproduce with exoplayer...

This class uses Youtube API. so i assume yes.
Try it and check the doubts you have

naldoxable · Mar 23, 2019

Great work! Grazie!!

Michael Sullivan · Mar 24, 2019

Donated please send youtube library.

MarcoRome · Mar 25, 2019

Hi. Thank you for your donation. You can download #1 POST

AnandGupta · Mar 25, 2019

Hi MarcoRome,

You have marked two message #2 aand #3 as reserved. What you intend to add in them ? since you already reached version 3.
I hope a couple of example projects, will do great, for beginners.

Regards,

Anand

MarcoRome · Mar 25, 2019

AnandGupta said:
Hi MarcoRome,

You have marked two message #2 aand #3 as reserved. What you intend to add in them ? since you already reached version 3.
I hope a couple of example projects, will do great, for beginners.

Regards,

Anand

For now nothing

Edgardo PuntoCom · Jul 29, 2019

Is the library different to .bas file shared in the first post?

Will I get something better than the .bas file if I give a donation?

MarcoRome · Jul 30, 2019

Edgardo PuntoCom said:
Is the library different to .bas file shared in the first post?

Will I get something better than the .bas file if I give a donation?

No. In the first post the latest version is attached.

Erel · Jun 16, 2020

It is a class attached to the first post.

B4A Library [Class B4X ] YouTube V3

Attachments

Tronak

Member

Almora

Active Member

MarcoRome

Expert

rafaelbr20

Member

MarcoRome

Expert

rafaelbr20

Member

DonManfred

Expert

MarcoRome

Expert

Duque

Active Member

MarcoRome

Expert

naldoxable

Member

Michael Sullivan

New Member

MarcoRome

Expert

AnandGupta

Expert

MarcoRome

Expert

Edgardo PuntoCom

Member

MarcoRome

Expert

Erel

B4X founder

Similar Threads

B4A Library [Class B4X ] YouTube V3

Attachments

Member

Active Member

Expert

Member

Expert

Member

Expert

Expert

Active Member

Expert

Member

New Member

Expert

Expert

Expert

Member

Expert

B4X founder

Similar Threads

Privacy & Transparency

Privacy & Transparency