| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как использовать описание инфоpмационного тэга MP3 ? [D6, Win95/98, Win2k]

alexsandri ©   (2003-08-23 16:26:00) 

описание инфоpмационного тэга MP3

Offset 00h db "TAG" ;сигнатура информационного тэга
Offset 03h db rep 1Eh (ASCII) ;Hазвание 30 байт ASCII
Offset 21h db rep 1Eh (ASCII) ;Исполнитель 30 байт ASCII
Offset 3Fh db rep 1Eh (ASCII) ;Альбом 30 байт ASCII
Offset 5Dh db rep 04h (ASCII) ;Год 4 байта ASCII
Offset 61h db rep 1Eh (ASCII) ;Комментарий 30 байт ASCII
Offset 7Fh db ? ;Жанр

пожалуцста подскажите как ,ОБРАЩАТЬСЯ К ЭТИМ ПООЛЯМ, если можно
куском кода
спосибо за подсказку

---

Sheng   (2003-08-24 10:32:00) [1]

array3 = array [1..3] of Char;
array4 = array [1..4] of Char;
array30 = array [1..30] of Char;

---

Sheng   (2003-08-24 10:31:00) [2]


var
f: File;
ID3Tag_v1: record
Head: array3;
Title: array30;
Artist: array30;
Album: array30;
Year: array4;
Comment: array30;
Genre: Byte;
end;

...

FileMode:=0;
AssignFile(f,ListBox1.Items.Strings[ListBox1.ItemIndex]);
Reset(f,1);
Seek(f,FileSize(f)-128);
BlockRead(f,ID3Tag_v1,128);
CloseFile(f);

// - и в ID3Tag_v1 появится вся инфа.

---

Наверх