Android Code Snippet Exoplayer read stream radio online

Sorry for the translation (google translate).:)
Thanks to Erel for his new version of Exoplayer 1.50, without which it would not be possible to do so.

After much testing I have found a way to read the song title directly from the exoplayer stream (IcyInfo).
Surely the code can be improved since Java is rather fair. But it works for me correctly in my radio app.
The Java class is copied from the internet and adjusted by me.

Java class:

It has 3 functions:
- Function to name the event to send the data.
- Function to send the data (in the same page of the java class).
- Function that ExoPlayer assigns and receives metadata.

B4X:
#if java

import anywheresoftware.b4a.keywords.Common;     
import java.io.IOException;
import java.util.List;
import java.util.Map;

import com.google.android.exoplayer2.metadata.icy.IcyInfo;
import com.google.android.exoplayer2.metadata.icy.IcyHeaders;
import com.google.android.exoplayer2.metadata.Metadata;
import com.google.android.exoplayer2.metadata.MetadataOutput;
import com.google.android.exoplayer2.SimpleExoPlayer;
import android.content.Context;

public static class IcyInfoMetaData {
    private Map<String, List<String>> headers;
    public SimpleExoPlayer ExoPlayer;
    public String NombreEvento;
    public String Titulo;
    
    // Poner nombre al evento que devuelve titulo
    public void PonerNombreEvento(String EventName) throws IOException {
           NombreEvento = EventName;
    }
    
    // Enviar titulo a B4A en mi caso Sub CancionCambiada_Fire(Value As String) en pagina Main
    public void NotificarTituloCambiado(String txt) throws IOException {
           processBA.raiseEventFromUI(this, NombreEvento.toLowerCase(BA.cul) + "_fire", txt);
    }
    
    // Asignar ExoPlayer y recoger metadata
    public void AsignarExoPlayer(SimpleExoPlayer Exo) throws IOException {
        SimpleExoPlayer ExoPlayer = Exo;
        ExoPlayer.addMetadataOutput(new MetadataOutput() {
            
            public void onMetadata(Metadata metadata) {
                for (int i = 0; i < metadata.length(); i++) {
                    Metadata.Entry entry = metadata.get(i);
                    
                    //Aqui se leen titulo y url
                    if (entry instanceof IcyInfo){
                        IcyInfo icyInfo = ((IcyInfo) entry);
                        BA.Log("Titulo = " + icyInfo.title);
                        BA.Log("Url = " + icyInfo.url);                       
                        try {
                            NotificarTituloCambiado(icyInfo.title);//devolver titulo a B4A
                        } catch(Exception e) {
                            BA.Log("ERROR");
                        }//catch                       
                    }//IcyInfo
                    
                    //Esta parte no se ejecuta nunca
                    if (entry instanceof IcyHeaders) {
                            IcyHeaders icyHeaders = ((IcyHeaders) entry);
                            BA.Log("IcyHeaders nombre " + icyHeaders.name);
                            BA.Log("IcyHeaders genero " + icyHeaders.genre);
                    }//IcyHeaders
                                        
                }//for
                
            }//onmetadata
            
        });//addMetadataOutput
        
    }//AsignarExoPlayer
    
    
}//class IcyInfoMetaData

#End If

In B4X code :

B4X:
    Public streamMeta As JavaObject'global variable
    Dim jo As JavaObject
    'Initialize the class
    streamMeta = jo.InitializeNewInstance(Application.PackageName & ".main$IcyInfoMetaData", Null)
    'name the event
    streamMeta.RunMethod("PonerNombreEvento",Array As String("CancionCambiada"))
        
    Exo1.Initialize("mp1")'Initialize ExoPlayer
    Dim jo As JavaObject = Exo1
    'assign exoplayer after nitialize
    streamMeta.RunMethod("AsignarExoPlayer",Array As Object(jo.GetField("player")))
    
    'Sub that receives the data (in the same page of the java class).
    Sub CancionCambiada_Fire(Value As String)
        Log($"Titulo = ${Value}"$)
        if Value="" Then Value = "Sin informacion"
        LabelTitle.Text = Value
    End Sub
 

musaso

Active Member
Licensed User
Longtime User
Can you add a sample project..

I don't know exactly what you mean ...

B4X:
Sub Activity_Create(FirstTime As Boolean)
    Public streamMeta As JavaObject'declare as global variable
    Dim jo As JavaObject
    'Initialize the class
    streamMeta = jo.InitializeNewInstance(Application.PackageName & ".main$IcyInfoMetaData", Null)
    'name the event
    streamMeta.RunMethod("PonerNombreEvento",Array As String("CancionCambiada"))   
End Sub   
    
Sub ButtonPlay_Click
    Exo1.Initialize("mp1")'Initialize ExoPlayer
    Dim jo As JavaObject = Exo1
    'assign exoplayer after nitialize
    streamMeta.RunMethod("AsignarExoPlayer",Array As Object(jo.GetField("player")))
    Dim l as list
    l.initialize
    Dim url As String = "http://mp3channels.webradio.de/80er-kulthits"
    l.Add(Exo1.CreateUriSource(url))
    Exo1.Prepare(Exo1.CreateListSource(l))
    Exo1.Play
End Sub   
    
Sub ButtonStop_Click
    Exo1.Pause
    Exo1.Release
End Sub   

    'Sub that receives the data (in the same page of the java class).
Sub CancionCambiada_Fire(Value As String)
    Log($"Titulo = ${Value}"$)
    if Value="" Then Value = "Sin informacion"
    LabelTitle.Text = Value
End Sub
 

Lupos

Member
Very interesting.
Can you please add a a zip file with your project?
have you tested it with many urls?
i'd like to test it.
Thank you.
 

musaso

Active Member
Licensed User
Longtime User
Very interesting.
Can you please add a a zip file with your project?
have you tested it with many urls?
i'd like to test it.
Thank you.
My project has more than 7000 lines of code, uses 34 libraries and many hours of work.
You understand that I will not share the code ...
Yes, I have tried many urls and not all of them have metadata.
 

Lupos

Member
My project has more than 7000 lines of code, uses 34 libraries and many hours of work.
You understand that I will not share the code ...
Yes, I have tried many urls and not all of them have metadata.
Yes, I understand...
Thanks the same...
Regards
 
Top