B4A Library CustomYouTubeFeed

This library will allow you to get YouTube Feeds and display them on a WebView.

Requirements:

- B4A 2.7x


How to install:

- Copy the CustomYouTubeFeed.jar and CustomYouTubeFeed.xml to your additional libraries directory.


How to use:

'Initialize the library
Dim Feed As CustomYouTubeFeed

Feed.Initialize(WebView1, "", "")

'Select the feed you want to retrieve, for example: Get user uploads
Feed.GetUserUploads("basic4android", 1, 25)

That's it!!.

You can use the WebView's events to do further processing of the results if needed.


This library will allow you to:

* Search Videos
* Browse Category
* Get User Uploads
* Get Channels
* Get Most Viewed Channels
* Get Most Subscribed Channels
* Get Most Popular
* Get Most Popular By Category
* Get Playlists
* Get Related Videos

There are also two variables:

- FeedType: Returns the selected feed.
- Results: Returns the number of results found.

The attached sample shows how simple is to use this library.

NOTE: Google has removed this API, this library no longer works.

 

[tuhatinhvn]

Parsing code. 0.00
Compiling code. 0.04
Compiling layouts code. 0.00
Generating R file. 0.27
Compiling generated Java code. 0.96
Convert byte code - optimized dex. Error
A referenced library is missing: net

 

[Erel]

You should add a reference to the Net library:
http://www.b4x.com/search?query=Net+Library

 

[dziner]

Hi,
I tried your sample feed program. It shows a list of videos, but when I try to play a youtube video, it just doesn't play.
I've included Net lib, and I'm using B4a V. 3.00.
Any idea?

 

[JOTHA]

It's same to me as @dziner.

 

[NJDude]

The sample won't play the video, it will open the YouTube page, you will have to tap on the PLAY button.

 

[JOTHA]

@NJDude, thank you for your answer.

I was searching for a video:

Feed.SearchVideos("SUGARHILL GANG - RAPPERS DELIGHT, KARAOKE, LYRICS", fIndex, fMaxResults)

The app found it. I clicked on the title in the list and the title apeared.

When I tapped on the play button a circle (wait ...) apears long time, but it doesn't play the video.

 

[NJDude]

No issues here, I even tried your link and it plays the video.

 

[JOTHA]

I tried the YouTube app from google play => it works.

I installed again your app => it doesn't play the video. sorry ...

Please see attached files:
1) ... found title, clicked PLAY button
2) ... WAIT Circle ... thats all.

 

[NJDude]

Then modify the sample to use the YouTube app.

 

[JOTHA]

Sounds good ... but how to?
... but isn't it better to use the youTube app directly instead?

The goal was to use it inside another app ...

 

[NJDude]

The problem you are having might be related to the browser on your device (flash player) but, if you want, you can use the YouTube app, use this code:

Sub WebView1_OverrideUrl(Url As String) As Boolean

    Dim PlayVideo As Intent
    Url = Url.Replace("http://www.youtube.com/watch?v=", "").Replace("&feature=youtube_gdata", "")

    PlayVideo.Initialize(PlayVideo.ACTION_VIEW, "vnd.youtube:" & Url)
    PlayVideo.PutExtra("force_fullscreen", True) '<-- Full screen
				
    StartActivity(PlayVideo)
    
    ToastMessageShow(Feed.FeedType, False)				
	   
    Return True				
	
End Sub

 

[JOTHA]

Thank you NJDude, with this code it works!

 

[Douglas Farias]

why not appear to me the menu to browse youtube videos, etc.?

 

[NJDude]

I don't understand your question, what is it you're looking for?

 

[Douglas Farias]

this menu in red dont show for me
i m compiled your exemple and i dont make changes.
i tested in my real device and dont show this youtube menu

 

[NJDude]

I think that varies from device to device, that has nothing to do with the library, what you see on that screenshot is the YouTube website.

 

[MarcoRome]

Hi NJDude

I working PlayList...

....
Feed.GetPlaylists("music", fIndex, fMaxResults) '<--- Work
.....
 
Sub WebView1_PageFinished(Url As String)
Dim PlayVideo As Intent
    'Url = Url.Replace("http://www.youtube.com/watch?v=", "").Replace("&feature=youtube_gdata", "")
    Url = Url.Replace("http://www.youtube.com/watch?v=", "").Replace("&List=youtube_gdata", "")

    PlayVideo.Initialize(PlayVideo.ACTION_VIEW, "vnd.youtube:" & Url)
    'PlayVideo.PutExtra("force_fullscreen", True) '<-- Full screen

               
    StartActivity(PlayVideo)
....

PlayList is ok ... but i think that i wrong in WebView1 ...Replace("&List=youtube_gdata", "") because so dont work
Any idea ?
Thank'sss

 

[NJDude]

That's not correct, if you are getting a PlayList you have to open the list, like this:

Sub WebView1_PageFinished(Url As String)
    
    Dim i As Intent

    i.Initialize(i.ACTION_VIEW, Url)

    StartActivity(i)

End Sub

 

[MarcoRome]

Thank you NJDude