Changeset 9

Timestamp:

Mar 28, 2022, 6:00:50 PM (2 years ago)

Author:

chronos

Message:

• Modified: Split search and generation phase.

Location:

trunk

Files:

• Forms/UFormMain.pas (modified) (1 diff)
• UPlaylist.pas (modified) (6 diffs)

trunk/Forms/UFormMain.pas

@@ -44 +44 @@
     Playlist.SearchBaseDir := ParamStr(1);
     Playlist.RemoteBaseDir := ParamStr(2);
+    Playlist.Search;
     Playlist.GenerateXSPF;
-    Close;
+    Application.Terminate;
   end;
 end;

trunk/UPlaylist.pas

@@ -10 +10 @@
 type
   TPlaylistItem = class
-
-  end;
+    Time: TDateTime;
+    Title: string;
+    RemoteName: string;
+    LocationOriginal: string;
+    Location: string;
+    Creator: string;
+    TrackNum: string;
+    Album: string;
+  end;
+
+  { TPlaylistItems }
 
   TPlaylistItems = class(TObjectList<TPlayListItem>)
+    function AddNew: TPlaylistItem;
   end;
 
@@ -20 +30 @@
   TPlaylist = class
   public
+    Items: TPlaylistItems;
     SearchBaseDir: string;
     RemoteBaseDir: string;
     FilteredFileExtensions: array of string;
+    procedure Search;
     procedure GenerateM3U;
     procedure GenerateXSPF;
     constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -50 +63 @@
 begin
   Path := IncludeTrailingPathDelimiter(PathName);
-  //WriteLn('Dir: ' + PathName);
   if FindFirst(Path + '*', faAnyFile, Rec) = 0 then
   try
     repeat
-      //WriteLn(Rec.Name);
       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)
       else if InStrArray(LowerCase(ExtractFileExt(Rec.Name)), ExtList) then begin
-        //WriteLn('File: ' + Rec.Name);
         Files.Add(Path + Rec.Name);
       end;
     until FindNext(Rec) <> 0;
   finally
-    FindClose(Rec) ;
-  end;
-end;
-
-procedure TPlaylist.GenerateM3U;
-var
-  Files: TStringList;
-  I: Integer;
-begin
-  Files := TStringList.Create;
-  WriteLn('#EXTM3U');
-  FileSearch(Files, SearchBaseDir, FilteredFileExtensions);
-  for I := 0 to Files.Count - 1 do
-    WriteLn(Files[I]);
-  Files.Free;
+    FindClose(Rec);
+  end;
 end;
 
@@ -92 +89 @@
 end;
 
+
+{ TPlaylistItems }
+
+function TPlaylistItems.AddNew: TPlaylistItem;
+begin
+  Result := TPlaylistItem.Create;
+  Add(Result);
+end;
+
+procedure TPlaylist.Search;
+var
+  Files: TStringList;
+  I: Integer;
+  PlaylistItem: TPlaylistItem;
+  NameRemoved: Boolean;
+  Part: string;
+  OutInt: Integer;
+begin
+  Files := TStringList.Create;
+  try
+    FileSearch(Files, SearchBaseDir, FilteredFileExtensions);
+    for I := 0 to Files.Count - 1 do begin
+      PlaylistItem := Items.AddNew;
+      with PlayListItem do begin
+        RemoteName := RemoteBaseDir + Copy(Files[I], Length(ParamStr(1)) + 2, High(Integer));
+        LocationOriginal := StringReplace(RemoteName, '&', '&amp;', [rfReplaceAll]);
+        Location := StringReplace(LocationOriginal, '_', ' ', [rfReplaceAll]);
+        Album := ExtractFileName(ExtractFileDir(Location));
+        NameRemoved := False;
+
+      // Detect Creator from directory name
+      if Pos(' - ', Album) > 0 then begin
+        Creator := Copy(Album, 1, Pos(' - ', Album) - 1);
+        Delete(Album, 1, Length(Creator) + 3);
+      end else Creator := Album;
+      Title := Copy(ExtractFileName(Location), 1, Length(ExtractFileName(Location)) - Length(ExtractFileExt(Location)));
+
+      // Remove starting with album name from title
+      Part := Creator + ' - ';
+      if Copy(Title, 1, Length(Part)) = Part then begin
+        Delete(Title, 1, Length(Part));
+        NameRemoved := True;
+      end;
+
+      // Try to load Creator from name
+      if (Pos(' - ', Title) > 0) and (not NameRemoved) then begin
+        Part := Copy(Title, 1, Pos(' - ', Title) - 1);
+        // Avoid track number which can be first title part
+        if not TryStrToInt(Part, OutInt) then begin
+          Creator := Part;
+          Delete(Title, 1, Length(Creator) + 3);
+        end;
+      end;
+        // Detect track number from title
+        if Pos(' - ', Title) > 0 then begin
+          TrackNum := Copy(Title, 1, Pos(' - ', Title) - 1);
+          if TryStrToInt(TrackNum, OutInt) then
+            Delete(Title, 1, Length(TrackNum) + 3)
+            else TrackNum := '';
+        end else TrackNum := '';
+
+        Time := FileDate(Files[I]);
+      end;
+    end;
+  finally
+    Files.Free;
+  end;
+end;
+
+procedure TPlaylist.GenerateM3U;
+var
+  I: Integer;
+begin
+  WriteLn('#EXTM3U');
+  for I := 0 to Items.Count - 1 do
+  with Items[I] do begin
+    WriteLn(LocationOriginal);
+  end;
+end;
+
 procedure TPlaylist.GenerateXSPF;
 var
-  Files: TStringList;
-  I: Integer;
-  Creator: string;
-  Album: string;
-  Location: string;
-  LocationOriginal: string;
-  Title: string;
-  Part: string;
-  TrackNum: string;
-  Out: Integer;
-  NameRemoved: Boolean;
-  RemoteName: string;
-begin
-  Files := TStringList.Create;
+  I: Integer;
+begin
   WriteLn('<?xml version="1.0" encoding="UTF-8"?>');
   WriteLn('<playlist version="1" xmlns="http://xspf.org/ns/0/">');
   WriteLn('<trackList>');
-  FileSearch(Files, SearchBaseDir, FilteredFileExtensions);
-  for I := 0 to Files.Count - 1 do begin
-    RemoteName := RemoteBaseDir + Copy(Files[I], Length(ParamStr(1)) + 2, High(Integer));
-    LocationOriginal := StringReplace(RemoteName, '&', '&amp;', [rfReplaceAll]);
-    Location := StringReplace(LocationOriginal, '_', ' ', [rfReplaceAll]);
-    Album := ExtractFileName(ExtractFileDir(Location));
-    NameRemoved := False;
-
-    // Detect Creator from directory name
-    if Pos(' - ', Album) > 0 then begin
-      Creator := Copy(Album, 1, Pos(' - ', Album) - 1);
-      Delete(Album, 1, Length(Creator) + 3);
-    end else Creator := Album;
-    Title := Copy(ExtractFileName(Location), 1, Length(ExtractFileName(Location)) - Length(ExtractFileExt(Location)));
-
-    // Remove starting with album name from title
-    Part := Creator + ' - ';
-    if Copy(Title, 1, Length(Part)) = Part then begin
-      Delete(Title, 1, Length(Part));
-      NameRemoved := True;
-    end;
-
-    // Try to load Creator from name
-    if (Pos(' - ', Title) > 0) and (not NameRemoved) then begin
-      Part := Copy(Title, 1, Pos(' - ', Title) - 1);
-      // Avoid track number which can be first title part
-      if not TryStrToInt(Part, Out) then begin
-        Creator := Part;
-        Delete(Title, 1, Length(Creator) + 3);
-      end;
-    end;
-    // Detect track number from title
-    if Pos(' - ', Title) > 0 then begin
-      TrackNum := Copy(Title, 1, Pos(' - ', Title) - 1);
-      if TryStrToInt(TrackNum, Out) then
-        Delete(Title, 1, Length(TrackNum) + 3)
-        else TrackNum := '';
-    end else TrackNum := '';
-
+  for I := 0 to Items.Count - 1 do
+  with Items[I] do begin
     WriteLn('<track>');
     WriteLn('<title>' + Title + '</title>');
@@ -156 +184 @@
     WriteLn('<creator>' + Creator + '</creator>');
     WriteLn('<trackNum>' + TrackNum + '</trackNum>');
-    WriteLn('<annotation>' + FormatDateTime('yyyy-mm-dd', FileDate(Files[I])) + '</annotation>');
+    WriteLn('<annotation>' + FormatDateTime('yyyy-mm-dd', Time) + '</annotation>');
     WriteLn('</track>');
   end;
   WriteLn('</trackList>');
   WriteLn('</playlist>');
-  Files.Free;
 end;
 
@@ -167 +194 @@
 begin
   FilteredFileExtensions := ['.mp3', '.ac3', '.flac', '.it', '.m4a', '.wma', '.s3m', '.ogg'];
+  Items := TPlaylistItems.Create;
+end;
+
+destructor TPlaylist.Destroy;
+begin
+  FreeAndNil(Items);
+  inherited;
 end;