Changeset 6 for trunk

Timestamp:

Jan 13, 2016, 11:52:00 AM (9 years ago)

Author:

chronos

Message:

• Added: Store file modification date to playlist annotation. This allows to sort tracks by date to see recent files.

File:

• trunk/GenPlaylist.pas (modified) (6 diffs)

trunk/GenPlaylist.pas

@@ -17 +17 @@
 end;
   
-procedure FileSearch(Files: TStringList; const PathName: string; ExtList: array of string; BasePath : string) ;
+procedure FileSearch(Files: TStringList; const PathName: string; ExtList: array of string);
 var 
   Rec: TSearchRec;
   Path: string;
-  ItemFileName: string;
 begin
   Path := IncludeTrailingPathDelimiter(PathName);
@@ -31 +30 @@
       if Rec.Name = '..' then continue
       else if Rec.Name = '.' then continue
-      else if (Rec.Attr and faDirectory) > 0 then FileSearch(Files, Path + Rec.Name, ExtList, BasePAth)
+      else if (Rec.Attr and faDirectory) > 0 then FileSearch(Files, Path + Rec.Name, ExtList)
       else if InStrArray(LowerCase(ExtractFileExt(Rec.Name)), ExtList) then begin
         //WriteLn('File: ' + Rec.Name);
-        ItemFileName := ParamStr(2) + Copy(Path + Rec.Name, Length(BasePath) + 2, High(Integer));
-        //ItemFileName := StringReplace(ItemFileName, ' ', '%20', [rfReplaceAll]);
-        Files.Add(ItemFileName);
+        Files.Add(Path + Rec.Name);
       end;
     until FindNext(Rec) <> 0;
@@ -51 +48 @@
   Files := TStringList.Create;
   WriteLn('#EXTM3U');
-  FileSearch(Files, ParamStr(1), ['.mp3', '.ac3', '.flac', '.it', '.m4a', '.wma', '.s3m', '.ogg'], ParamStr(1));
+  FileSearch(Files, ParamStr(1), ['.mp3', '.ac3', '.flac', '.it', '.m4a', '.wma', '.s3m', '.ogg']);
   for I := 0 to Files.Count - 1 do
     WriteLn(Files[I]);
   Files.Free;
+end;
+
+function FileDate(FileName: string): TDateTime;
+var
+  fa: LongInt;
+begin
+  fa := FileAge(FileName);
+  if Fa <> -1 then begin
+    Result := FileDateToDateTime(fa);
+  end else 
+    raise Exception.Create('File ''' + FileName + ''' not found ');
 end;
 
@@ -70 +78 @@
   Out: Integer;
   NameRemoved: Boolean;
+  RemoteName: string;
 begin
   Files := TStringList.Create;
@@ -75 +84 @@
   WriteLn('<playlist version="1" xmlns="http://xspf.org/ns/0/">');
   WriteLn('<trackList>');
-  FileSearch(Files, ParamStr(1), ['.mp3', '.ac3', '.flac', '.it', '.m4a', '.wma', '.s3m', '.ogg'], ParamStr(1));
-  for I := 0 to Files.Count - 1 do begin  
-    LocationOriginal := StringReplace(Files[I], '&', '&amp;', [rfReplaceAll]);
+  FileSearch(Files, ParamStr(1), ['.mp3', '.ac3', '.flac', '.it', '.m4a', '.wma', '.s3m', '.ogg']);
+  for I := 0 to Files.Count - 1 do begin 
+    RemoteName := ParamStr(2) + Copy(Files[I], Length(ParamStr(1)) + 2, High(Integer));
+    LocationOriginal := StringReplace(RemoteName, '&', '&amp;', [rfReplaceAll]);
     Location := StringReplace(LocationOriginal, '_', ' ', [rfReplaceAll]);
     Album := ExtractFileName(ExtractFileDir(Location));
@@ -119 +129 @@
     WriteLn('<creator>' + Creator + '</creator>');
     WriteLn('<trackNum>' + TrackNum + '</trackNum>');
+    WriteLn('<annotation>' + FormatDateTime('yyyy-mm-dd', FileDate(Files[I])) + '</annotation>');
     WriteLn('</track>');
   end;