Форум: "Media";
Текущий архив: 2008.12.28;
Скачать: [xml.tar.bz2];
Внизчтение mp3 тегов Найти похожие ветки
← →
skvitek (2007-08-31 18:50) [0]Здавствуйте! Вот есть у меня такая(см ниже) функция поиска и занесения в дерево 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 21:31) [1]найти все файлы, у каждого прочитать тег. Находить уже научились, читать можно с помощью модулей audio tools library, скачать можно на http://www.torry.net/ или тут http://desksoft.ru/index.php?downloads=files&id=8 (150кб)
← →
skvitek (2007-08-31 22:06) [2]Вот именно это "у каждого прочитать тег" у меня и не получается.
← →
antonn © (2007-08-31 22:12) [3]из-за чего?
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2008.12.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c