| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
чтение mp3 тегов [WinXP]
skvitek © (2007-08-31 18:50:00)Здавствуйте! Вот есть у меня такая(см ниже) функция поиска и занесения в дерево mp3 файлов. Подскажите, как вместо этого устроить чтение тегов, и уже по их данным заносить файлы в дерево(Delphi2007, WinXP, JVCL):
(Артист1
трек1
трек2
...
Артист2
трек1
...
...
)
Вот прост
function TForm1.FillTreeMp3(ADir: string; const ATreeDir: string;
ANode: TTreeNode): Integer;
var
fs: TSearchRec;
CurNode: TTreeNode;
begin
Led.ColorOn:=clLime;
Result := 0;
ADir := IncludeTrailingPathDelimiter(ADir);
CurNode := TreeView1.Items.AddChild(ANode, ATreeDir);
Result := 0;
if FindFirst(IncludeTrailingPathDelimiter(ADir) + '*.mp3', faAnyFile - faDirectory - faVolumeID, fs) = 0 then
repeat
TreeView1.Items.AddChild(CurNode, fs.Name);
Inc(Result);
until FindNext(fs) <> 0;
if FindFirst(ADir + '*.*', faDirectory, fs) = 0 then
repeat
if (fs.Name = '.') or (fs.Name = '..') then continue;
if (fs.Attr and faDirectory) <> 0 then
Result := Result + FillTreeMp3(ADir + fs.Name, fs.Name, CurNode);
until FindNext(fs) <> 0;
if Result = 0 then CurNode.Delete;
FindClose(fs);
Led.ColorOn:=clSilver;
end;
antonn (2007-08-31 22:12:00) [1]из-за чего?
skvitek (2007-08-31 22:06:00) [2]Вот именно это "у каждого прочитать тег" у меня и не получается.
antonn (2007-08-31 21:31:00) [3]найти все файлы, у каждого прочитать тег. Находить уже научились, читать можно с помощью модулей audio tools library, скачать можно на http://www.torry.net/или тут http://desksoft.ru/index.php?downloads=files&id=8(150кб)
| |
