Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.03;
Скачать: CL | DM;

Вниз

как использовать описание инфоpмационного тэга MP3 ?   Найти похожие ветки 

 
alexsandri ©   (2003-08-23 16:26) [0]

описание инфо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:31) [1]


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 появится вся инфа.


 
Sheng ©   (2003-08-24 10:32) [2]

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



Страницы: 1 вся ветка

Текущий архив: 2003.11.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
6-8573
Ellik
2003-09-05 14:08
2003.11.03
Отправить E-mail, подцепив файл


14-8672
Bovdur
2003-10-09 17:58
2003.11.03
Лабуда с файлами


1-8416
NetKnight
2003-10-16 15:28
2003.11.03
Как узнать какой компонент вызвал PopupMenu?


1-8415
andrey79
2003-10-22 13:41
2003.11.03
отправка файла


7-8681
Jini
2003-08-19 21:12
2003.11.03
Думаю, вопрос интересный - Video out