Главная страница
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.015 c
1-8530
Dysan
2003-10-23 14:19
2003.11.03
Cannot load package inet60 ...


3-8255
Gawk
2003-10-13 20:05
2003.11.03
Помогите разобраться с FastReport


1-8526
Term
2003-10-23 16:43
2003.11.03
TTreeView...... подскажите где ошибка


7-8705
OlegV
2003-08-25 15:18
2003.11.03
Копирование файлов


6-8568
SDF
2003-09-09 10:52
2003.11.03
Работа с web-сервера через сокеты