B4J Question [SOLVED ] Audio File Properties

Erel said:

B4X:

#AdditionalJar: mp3agic-0.9.1
Sub Process_Globals
   
End Sub

Sub AppStart (Args() As String)
    Log("Hello world!!!")
    Dim mp3 As JavaObject = LoadMp3File("D:\Documents\Music\222.mp3")
    Log(mp3.RunMethod("getBitrate", Null))
    Log(mp3.RunMethod("getSampleRate", Null))
    Log(mp3.RunMethod("getLengthInMilliseconds", Null))
End Sub

Private Sub LoadMp3File (Path As String) As JavaObject
    Dim jo As JavaObject
    jo.InitializeNewInstance("com.mpatric.mp3agic.Mp3File", Array(Path))
    Return jo
End Sub

GitHub - mpatric/mp3agic: A java library for reading mp3 files and reading / manipulating the ID3 tags (ID3v1 and ID3v2.2 through ID3v2.4).

A java library for reading mp3 files and reading / manipulating the ID3 tags (ID3v1 and ID3v2.2 through ID3v2.4). - mpatric/mp3agic

github.com

Jar: https://repo1.maven.org/maven2/com/mpatric/mp3agic/0.9.1/mp3agic-0.9.1.jar

Click to expand...

Getting ID3v2 frame values
Convenience methods are included to easily get common ID3v2 frames. If you wish to get frame data that does not have convenience methods, or if you wish to access meta-data on frames, direct reading of frames is possible (see further down on this page).

Mp3File mp3file = new Mp3File("SomeMp3File.mp3");
if (mp3file.hasId3v2Tag()) {
ID3v2 id3v2Tag = mp3file.getId3v2Tag();
System.out.println("Track: " + id3v2Tag.getTrack());

Click to expand...

ID2 = mp3.RunMethod("hasId3v2Tag", Null)
If ID2 = True Then
    Dim ListMP3 As Object
    ListMP3 = "getTrack"
    CurTrackTitre = mp3.RunMethod("getId3v2Tag", ListMP3)
    Log ("TitreMP3= " & CurTrackTitre)
EndIf

CR95 said:

Dim ListMP3 As Object ListMP3 = "getTrack"

Click to expand...

DonManfred said:

??

I guess you want to use JavaObject

Click to expand...