|
Вопрос # 881/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Вот есть у меня такая(см приложение) функция поиска и занесения в дерево 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;
 |
Вопрос задал: skvitek (статус: Посетитель)
Вопрос отправлен: 31 августа 2007, 22:18
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
