Как прочитать и перепиcать tag у mp3?

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем tuxy, 25 мар 2004.

Статус темы:
Закрыта.
  1. tuxy

    tuxy Гость

    Помогите! Как мне прочитать в тэге такие данные, как:
    track title, artist, album, genre, artwork, year, lyrics,
    а также как их переписать?
     
  2. admin

    admin Well-Known Member

    Регистрация:
    8 авг 2003
    Сообщения:
    2.811
    Симпатии:
    0
    www.sources.ru/delphi/audioinf.zip
    www.sources.ru/delphi/delphi_directory.html


    Код (Text):
    procedure ScanMP3Folder (const AFolder : string; AMP3List : TStrings);
    var
    ds : TDirectoryScanner;
    a : TAudioInfo;
    Descr : string;
    i : integer;
    begin
    ds := TDirectoryScanner.Create;
    a := TAudioInfo.Create;
    try
     ds.Recursive := True;
     ds.RegExprMask := '\.mp[23]';
     ds.BuildFileList (AFolder);
     for i := 0 to ds.Count - 1 do
     begin
      a.LoadFromFile (ds.Item [i].name);
      if a.ID3.Ok then
       Descr := a.ID3.Artist + ' - ' + a.ID3.Title
      else
       Descr := ExtractFileName (ds.Item [i].name);
      Descr := Descr + Format (' (%d sec)', [a.MpegDuration div 1000]);
      AMP3List.Add (Descr);
     end;
    finally
     begin
      a.Free;
      ds.Free;
     end;
    end;
    end;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей