#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