Vevo Video

[enrico]

How can I use Vevo to show videos ?
I've tryed using the video link in a webview but I have audio only (doesn't mind if I have Vevo app installed or not).
Do I have to use Intent ? How ?

 

[NJDude]

Can you post the video link?

 

[enrico]

Can you post the video link?

for example :
http://www.billboard.com/video/vevo/NL0110500006
http://www.billboard.com/video/vevo/USUV70702706

 

[NJDude]

Try this:

Dim i As Intent

i.Initialize(i.ACTION_VIEW, "http://www.billboard.com/video/vevo/NL0110500006")
i.SetComponent("com.vevo/.activities.NewWatchActivity")

StartActivity(i)

 

[enrico]

Wonderful! It works (with Vevo installed of course).
How can I detect if Vevo app is installed and tell the user to get it from market if it's not ?

And what about Billboard Radio ? Webview can't run it. Can you test ?
http://www.billboard.com/play/rdio?tid=t2916329&artist=Mario&title=Let+Me+Love+You

Thanks

 

[dxxxyyyzzz]

You can check if the application is installed and if not, install it from the market with:

Sub is_instaled
 
   Dim pm As PackageManager
   Dim Packages As List
   Packages = pm.GetInstalledPackages
 
   For i = 0 To Packages.size - 1
      Packages.Get(i)
      Log(Packages.Get(i))
         If Packages.Get(i) = "com.northpard.vevo" Then
            Log ("INSTALED")
            Exit
         Else
            If i= Packages.size - 1 Then
               Log ("NOT_INSTALED")
               Dim market As Intent, uri As String
               uri = "market://details?id=com.northpard.vevo"
               market.Initialize(market.ACTION_VIEW, uri)
               StartActivity(market)
            End If
         End If
   Next 
End Sub

 

[NJDude]

How can I detect if Vevo app is installed and tell the user to get it from market if it's not ?

Something like this (you need to reference the Phone library):

Dim pm As PackageManager
Dim Check As Intent

Check = pm.GetApplicationIntent("com.vevo")

If Check.IsInitialized = False Then 

   Answer = Msgbox2("You don't have the Vevo app installed." & CRLF & CRLF & "Do you want to install it?", "App Not Installed", "Yes", "", "No", Null)

   If Answer = DialogResponse.POSITIVE Then
      Dim GooglePlay As Intent
      GooglePlay.Initialize(GooglePlay.ACTION_VIEW, "market://details?id=com.vevo")

      StartActivity(GooglePlay)

   End If         

End If

 

[enrico]

For a few days now I have some problems with Vevo videos loaded from Intent.
Intent works and loads the video, but it stops after few seconds and often causes forced closures of Vevo app.
It seems that the problem happens less on devices with more memory available.
So I'm thinking whether it is possible with Intent to load the video in medium quality instead of high.
Otherwise is it possible to detect device's features (memory and cpu) to disable worse ones to load video ?