Android Question Read MP3 Tags and set label

[Tilesoft]

Hi
I use this code to read MP3 file tags but how can i set tags as label text?

thanks

 

[Tilesoft]

With this code, my app can log mp3 tags but how can i set these tags on label?

Sub LogMp3Tags(Dir As String, FileName As String)
    Dim raf As RandomAccessFile
    raf.Initialize2(Dir, FileName, True, True)
    If raf.Size < 128 Then
        Log("No TAG found.")
        Return
    End If
    Dim buffer(128) As Byte
    raf.ReadBytes(buffer, 0, 3, raf.Size - 128)
    If BytesToString(buffer, 0, 3, "UTF8") <> "TAG" Then
        Log("No TAG found.")
        Return
    End If
    'Title
    raf.ReadBytes(buffer, 0, 30, raf.CurrentPosition)
    Log("Title=" & ConvertBytesToString(buffer, 30))
    'Artist
    raf.ReadBytes(buffer, 0, 30, raf.CurrentPosition)
    Log("Artist=" & ConvertBytesToString(buffer, 30))
    'Album
    raf.ReadBytes(buffer, 0, 30, raf.CurrentPosition)
    Log("Album=" & ConvertBytesToString(buffer, 30))
    'Year
    raf.ReadBytes(buffer, 0, 4, raf.CurrentPosition)
    Log("Album=" & ConvertBytesToString(buffer, 4))
    'Comment
    raf.ReadBytes(buffer, 0, 30, raf.CurrentPosition)
    Log("Comment=" & ConvertBytesToString(buffer, 30))
    'Genre
    Dim genre As Int
    genre = raf.ReadUnsignedByte(raf.CurrentPosition)
    Log("Genre=" & genre)
End Sub

Sub ConvertBytesToString(Buffer() As Byte, MaxLength As Int) As String
    For i = 0 To MaxLength - 1
        If Buffer(i) = 0 Then Return BytesToString(Buffer, 0, i, "UTF8")
    Next
    Return BytesToString(Buffer, 0, MaxLength, "UTF8")
End Sub

 

[DonManfred]

ow can i set these tags on label?

Instead of LOG you use mylabel.Caption = ...

 

[Tilesoft]

Did you mean:

raf.ReadBytes(buffer, 0, 30, raf.CurrentPosition)
MyLabel.Text = ("Title=" & ConvertBytesToString(buffer, 30))

 

[DonManfred]

MyLabel.Text = "Title=" & ConvertBytesToString(buffer, 30)

 

[Tilesoft]

Thank you. That's work!