Wild media server (UPnP, DLNA, HTTP)

Code: Select all

function GetThumbnail( XMLRoot : TXMLItem ) : string;
   var XMLCovers : TXMLItem  ;
begin
   XMLCovers := XMLRoot.Find("Covers");
   Result := "";
      
   if XMLCovers <> nil then 
      Result := XMLCovers.Find("Front").Value;
end;

procedure GetPeople( XMLRoot : TXMLItem; 
                     var actors : string; 
                     var directors : string;
                     var producers : string;  );
   var XMLPeopleRoot : TXMLItem;       
   var XMLPerson : TXMLItem;   
   var Name: string;
   var i : Integer;
begin
   actors := "";   
   directors := "";   
   producers := "";

   XMLPeopleRoot := XMLRoot.Find("Persons");    
   if XMLPeopleRoot <> nil then begin   
      for i := 0 To XMLPeopleRoot.Count - 1 do begin
         XMLPerson := XMLPeopleRoot[i];
         Name := XMLPerson.Find("Name").Value;
                  
         if XMLPerson.Find("Type").Value = "Actor" then begin         
            if Length(actors) = 0 then
               actors := Name
            else
               actors := actors + "," + Name       
         end         
         else if XMLPerson.Find("Type").Value = "Director" then begin         
            if Length(directors) = 0 then
               directors := Name
            else
               directors := directors + "," + Name       
         end         
         else if XMLPerson.Find("Type").Value = "Producer" then begin         
            if Length(producers) = 0 then
               producers := Name
            else
               producers := producers + "," + Name 
         end
      end;
   end;
end;

function GetGenres( XMLRoot : TXMLItem ) : string;
   var XMLGenreRoot : TXMLItem;   
   var genres : string;   
   var i : Integer;
begin
   XMLGenreRoot := XMLRoot.Find("Genres");
   genres := "";
      
   if XMLGenreRoot <> nil then begin
      for i := 0 To XMLGenreRoot.Count - 1 do begin  
         if Length(genres) = 0 then         
            genres := XMLGenreRoot[i].Value
         else
            genres := genres + "," + XMLGenreRoot[i].Value
      end
   end; 

   Result := genres;
end;

function GetItemAsString(XMLRoot : TXMLItem; requiredData : string) : string ;
   var XMLItemData : TXMLItem;
begin
   XMLItemData := XMLRoot.Find(requiredData);
   if XMLItemData <> nil then
      Result := XMLItemData.Value      
   else   
      Result := ""         
end;


procedure ImportMetaData(XMLRoot : TXMLItem; TheMediaItem : TWmsScriptMediaItem);
   var title, description, year, runningTime, rating: string;
   var actors, directors, producers : string;   
   var XMLTitle: TXMLItem;  
begin
      title :=  GetItemAsString(XMLRoot, "LocalTitle");
      description := GetItemAsString(XMLRoot, "Description");
      rating := GetItemAsString(XMLRoot, "IMDBrating");
      year := GetItemAsString(XMLRoot, "ProductionYear");
      runningTime := GetItemAsString(XMLRoot, "RunningTime");  
                                    
      TheMediaItem.Properties[mpiTitle] := title;
      TheMediaItem.Properties[mpiYear] := year;
      TheMediaItem.Properties[mpiComment] := description;
      TheMediaItem.Properties[mpiRating] := rating; 
      TheMediaItem.Properties[mpiGenre] := GetGenres(XMLRoot);      
      TheMediaItem.Properties[mpiThumbnail] := GetThumbnail(XMLRoot);
 
      GetPeople(XMLRoot, actors, directors, producers);       
      TheMediaItem.Properties[mpiActor] := actors;      
      TheMediaItem.Properties[mpiDirector] := directors;     
      TheMediaItem.Properties[mpiProducer] := producers;        

end;

function GetMetaDataForItem(TheMediaItem : TWmsScriptMediaItem) : boolean;
var loadDir, movieXmlFileName, fullPath: string;
var XMLDocument: TXMLDocument;   
 
begin
   Result := false;
   movieXmlFileName := "mymovies.xml";
   loadDir := IncludeTrailingBackslash(ExtractFilePath(TheMediaItem.Properties[mpiFilePath]));   
   fullPath := loadDir + movieXmlFileName;   

   if FileExists(fullPath) then begin   
      XMLDocument := TXMLDocument.Create;      
      try       
         XMLDocument.LoadFromFile(fullPath);
         if XMLDocument.Root.Name = "Title" then begin   
            ImportMetaData(XMLDocument.Root, TheMediaItem);             
            Result := true;            
         end;
      finally      
         XMLDocument.Free         
      end;
   end;                          
end;

var
  i, iSuccessCount: Integer;
  MediaItemList: TWmsScriptMediaItemList;
begin
  MediaItemList := WmsCurrentMediaListItems;
  try
    iSuccessCount := 0;  
    if MediaItemList.Count > 0 then begin
      WmsShowProgress('Load metadata...');
      try
        for i := 0 to MediaItemList.Count - 1 do begin
          if WmsCancelPressed then
            Break
          else begin  
            if GetMetaDataForItem(MediaItemList[i]) then
               Inc(iSuccessCount);
             
            WmsSetProgress(Round(((i + 1) / MediaItemList.Count) * 100))
          end  
        end  
      finally
        WmsHideProgress
      end      
    end;
    if WmsCancelPressed then
      MessageDlg('Load aborted by the user.', mtError, mbOK, 0)
    else if iSuccessCount > 0 then
      MessageDlg('Load metadata was successful.', mtInformation, mbOK, 0)
    else
      MessageDlg('No information available for load.', mtError, mbOK, 0)
  finally
    MediaItemList.Free
  end;
  WmsDatabaseAutoSave;
  ProcessMediaResult := True      
end.