Delphi World - Просмотр и редактирование тэга ID3 (MP3)
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Просмотр и редактирование тэга ID3 (MP3)

Автор: Павел

Тэг ID3 содержит информацию о композиции: исполнитель, жанр и т.п. Этот кусок информации содержится в последних 128 байтах файла. Начинается тэг словом "TAG". Его может и не быть, если тэг удален или не был заполнен при создании. Однако его всегда можно добавить. Тэг ID3 имеет следующий формат:

type
  TID3Rec = packed record
    Tag: array[0..2] of Char;
    Title,
      Artist,
      Comment,
      Album: array[0..29] of Char;
    Year: array[0..3] of Char;
    Genre: Byte;
  end;

Как видно, жанр кодируется всего байтом, поэтому нужно следующее описание для декодирования этой информации:

const
  MaxID3Genre = 147;
  ID3Genre: array[0..MaxID3Genre] of string = (
    'Blues', 'Classic Rock', 'Country', 'Dance',
    ...
    'Synthpop' {возможно, список будет расширен}
    );

Для чтения тэга ID3 служит процедура FillID3TagInformation:

procedure FillID3TagInformation(mp3File: string; Title, Artist,
  Album, Year, Genre, Comment: TEdit);
var
  ID3: TID3Rec;
  fmp3: TFileStream;
begin
  fmp3 := TFileStream.Create(mp3File, fmOpenRead);
  try
    fmp3.position := fmp3.size - 128;
    fmp3.Read(ID3, SizeOf(ID3));
  finally
    fmp3.free;
  end;
  if ID3.Tag <> 'TAG' then
  begin
    Title.Text := 'Wrong or no ID3 tag information';
    Artist.Text := 'Wrong or no ID3 tag information';
    Album.Text := 'Wrong or no ID3 tag information';
    Year.Text := 'Wrong or no ID3 tag information';
    Genre.Text := 'Wrong or no ID3 tag information';
    Comment.Text := 'Wrong or no ID3 tag information';
  end
  else
  begin
    Title.Text := ID3.Title;
    Artist.Text := ID3.Artist;
    Album.Text := ID3.Album;
    Year.Text := ID3.Year;
    if ID3.Genre in [0..MaxID3Genre] then
      Genre.Text := ID3Genre[ID3.Genre]
    else
      Genre.Text := IntToStr(ID3.Genre);
    Comment.Text := ID3.Comment
  end;
end;

Этот код использует объект TFileStream для доступа к тэгу ID3. После открытия файла указатель устанавливается на позицию EndOfFile-128. Если в этой позиции найдено слово "TAG", информация копируется в соответствующие поля редактирования, иначе эти поля заполняются сообщениями по умолчанию.

Вот, пожалуй, и все. Запись тэга ID3 предлагается к самостоятельному изучению - пусть хоть что-то напишется вашими руками.

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования