Public Type ID3V1MP3TAGS
strTag As String * 3
strTitle As String * 30
strArtist As String * 30
strAlbum As String * 30
strYear As String * 4
strComment As String * 30
bytGenre As Byte
End Type
Public tags As ID3V1MP3TAGS
Public Sub ReadTag(strfile As String)
Open strfile For Binary Access Read As #1
Seek #1, LOF(1) - 127
Get #1, , tags
'Здесь нужно вставить обработчик событий с перменной tags
Close #1
End Sub
_Мика_ писал(а):Спасибо конечно, но теги у меня есть
Короче наверное лучше MediaPlayer использовать!
Еще вопрос: как закруглить форму на концах? Когда-то был пример такой, после фоматирование - НЕТ!
Dim fNum As Integer
Dim sTagIdent As String * 3
Dim sTitle As String * 30
Dim sArtist As String * 30
Dim sAlbum As String * 30
Dim sYear As String * 4
Dim sComment As String * 30
fNum = FreeFile
Open "C:\1.mp3" For Binary As fNum
Seek #fNum, LOF(fNum) - 127
Get #fNum, , sTagIdent
If sTagIdent = "TAG" Then
Get #fNum, , sTitle
Get #fNum, , sArtist
Get #fNum, , sAlbum
Get #fNum, , sYear
Get #fNum, , sComment
End If
Close #fNum
MsgBox sTitle & "," & sArtist & "," & sAlbum & "," & sYear & "," & sComment
BV писал(а):2_Мика_
Смотрел последнюю версию моего EasyPlayer'а?
P.S. Хм... Никто не знает, куда подевался xolod?
- Будем брать или будем отступать?
- ...Да!
Сейчас этот форум просматривают: Google-бот и гости: 64