|
Вопрос # 829/ вопрос открыт / |
|
Здравствуйте!
Скачал Audio Tools Library (http://mac.sourceforge.net/atl/atl.zip), но не получается установить.
Пишет, что
File not found TntClasses
TntSysUtils
Как установить.
Или есть другой компонент для доступа к тегам?
Интересует mp3 теги 2 версии.
И еще подскажите компонент для доступа к lyrics mp3 файла
 |
Вопрос задал: Фамилия Имя Отчество (статус: Посетитель)
Вопрос отправлен: 5 августа 2007, 09:23
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 7 августа 2007, 04:52; участников в обсуждении: 3.
|
Dron (статус: Студент), 5 августа 2007, 13:02 [#1]:
Tnt* - это вроде Tnt Unicode Controls, разве нет?
Цитата:
> И еще подскажите компонент для доступа к lyrics mp3 файла
Как это понять? Текст может быть только в midi-файле (и других аналогичных ему форматах). В mp3 текста песни нет. Единственное, где он может быть - в комментарии к файлу.
С уважением.
|
|
|
Фамилия Имя Отчество (статус: Посетитель), 5 августа 2007, 16:22 [#2]:
Здесь Вы ошибаетесь.
Есть тег для альбома, названия и т.д., также и для текста песни.
ATL не поддерживает.
В принципе самому можно по аналогии, просто готовый вариант может есть.
|
|
Градов Ю.М. (статус: 8-ой класс), 5 августа 2007, 18:14 [#3]:
Много примеров (с десяток статей) по работе с тегами в DelphiWorld6 http://delphiworld.narod.ru/, например:
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;
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
