Log In
May 2, 2001
Offline
Går det att komma åt idtagsen som finns på mp3or via ett vb program? Någon som vet hur man gör?
December 19, 2000
Offline
om du kollar sista raden i en mp3 fil så gissar jag att du kan plocka den information som du söker... 
du får väll läsa in det som text och sen splita där det är lämpligt...
March 25, 2001
Offline
Det här löser ditt problem...
I form
Status = ExtractID3("c:test.mp3")
I modul
Private Type ID3Data
Tag As String * 3
Title As String * 30
Artist As String * 30
Album As String * 30
Year As String * 4
Notes As String * 30
Genre As String * 1
End Type
Private Function ExtractID3(strFilename As String) As ID3Data
On Error GoTo ErrHandler
Dim strGenre As String
Dim typID3 As ID3Data
Open strFilename For Binary As #1
Get #1, FileLen(strFilename) - 127, typID3.Tag
If typID3.Tag = "TAG" Then
With typID3
Get #1, , .Title
Get #1, , .Artist
Get #1, , .Album
Get #1, , .Year
Get #1, , .Notes
Get #1, , .Genre
Close #1
End With
ExtractID3 = typID3
End If
Close #1
Exit Function
ErrHandler:
Close #1
Exit Function
End Function
1 Guest(s)
