Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как извлечь ID3 теги и информацию в заголовках MPEG из MP3 файлов

Delphi , Мультимедиа , Аудио

Как извлечь ID3 теги и информацию в заголовках MPEG из MP3 файлов

Автор: Андрей Сорокин
WEB-сайт: http://anso.da.ru

- Папа, а что такое ноты?
- Понимаешь, сынок, это такой MIDI-файл, только на бумаге...

Предположим, Вам необходимо поместить список заголовков и времени звучания всех Ваших MP3 файлов, содержащихся в определённой директории .

Разместите на форме TEdit для имени каталога и TListBox для содержимого директории и вызовите:


ScanMP3Folder(Edit1.Text, ListBox1.Items); 

Вам потребуются компоненты TAudioInfo , и  TDirectoryScanner


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;

Статья Как извлечь ID3 теги и информацию в заголовках MPEG из MP3 файлов раздела Мультимедиа Аудио может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Аудио ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
16.06.2021 04:27:07/0.0012619495391846/0