Свойства аудио-файлов

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
burik
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 514
Зарегистрирован: 03.11.2005 (Чт) 22:04
Откуда: Беларусь, Рогачев

Свойства аудио-файлов

Сообщение burik » 05.09.2006 (Вт) 20:41

Сдравствуйте!

Подскажите пожалуйста, как узнать свойства аудио-файла (Исполнитель, Группа, Год и тд.)?
Между слухов, сказок, мифов,
просто лжи, легенд сомнений
мы враждуем жарче скифов
за несходство заблуждений
Игорь Губерман

DirectXManiac
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1543
Зарегистрирован: 03.11.2005 (Чт) 13:32
Откуда: из DirectX SDK

Сообщение DirectXManiac » 05.09.2006 (Вт) 21:25

burik
Это не свойства а тег... И он не у всех файлов есть! Только у некоторых форматов! Вот пример чтения ID3 из MP3
Код: Выделить всё
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   
#define ROFL 0xDDDD

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 05.09.2006 (Вт) 21:31

Интересно, а какой смысл делать
Код: Выделить всё
ID3Info.Title = ""
ID3Info.Artist = ""


:?:
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

DirectXManiac
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1543
Зарегистрирован: 03.11.2005 (Чт) 13:32
Откуда: из DirectX SDK

Сообщение DirectXManiac » 06.09.2006 (Ср) 16:18

Хакер
Это я в плейере делал! Это не обязательно! Просто таким образом чистил предыдущий тег!
#define ROFL 0xDDDD


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 96

    TopList