Сдравствуйте!
Подскажите пожалуйста, как узнать свойства аудио-файла (Исполнитель, Группа, Год и тд.)?
Public Type Id3
Title As String * 30
Artist As String * 30
Album As String * 30
sYear As String * 4
Comments As String * 30
Genre As Byte
End Type
Public ID3Info As Id3
Dim TaG As String * 3
Open Filename For Binary As #1
Get #1, FileLen(Filename) - 127, TaG
If TaG = "TAG" Then
Get #1, FileLen(Filename) - 124, ID3Info
Else
ID3Info.Title = ""
ID3Info.Artist = ""
End If
Close #1
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 51