Cover Art

[Dark_Wizard]

First off this is a great product!

Is there any way to get the cover art from IMDB to auto populate the videos rather than having to do it one by one? I have over 500 movies and this can take some time.

[Eugene]

Is there any way to get the cover art from IMDB to auto populate the videos rather than having to do it one by one? I have over 500 movies and this can take some time.

I think that is possible through the processing of media resources, but the result may be uncertain (same title of the film, vague title of the film). No ready-made scripts.

[Dark_Wizard]

There are ready made IMDB scrapers out there...any possibility to add one to you product in a future release?

[Eugene]

There are ready made IMDB scrapers out there...any possibility to add one to you product in a future release?

If there is a ready-made scripts, they can post on the forum, with the permission of the author, they will be included in the distribution.

[Dark_Wizard]

I have another suggestion...can you have it where we have a cover art folder with the same naming as the video files and it pulls from that folder and displays?

[Eugene]

I have another suggestion...can you have it where we have a cover art folder with the same naming as the video files and it pulls from that folder and displays?

Unfortunately, it is impossible to specify the full path to the thumbnail, but you can connect the file if it is in the same directory as the movie file or the cache directory thumnails. In future version I provided the ability to specify the full path to the thumbnail.

Script to connect thumbnail in the current version. Cache directory in Windows XP: C:\Documents and Settings\All Users\Application Data\Wild Media Server\Thumbnails.

Settings - Processing - Add
Name: Search thumbnails
Check "Button on the main form".

Code: Select all

const
  CSIDL_COMMON_APPDATA = $0023;   

var
  sThumbnailCacheDirectory: string = '';  

procedure ProcessItem(aItem: TWmsScriptMediaItem);
var
  sFileName, sThumbnailFileName: string;
begin      
  sFileName := aItem.Properties[mpiFilePath];       
  sThumbnailFileName := ExtractFileName(ChangeFileExt(sFileName, '.jpg'));      
  if FileExists(ExtractFilePath(sFileName) + sThumbnailFileName) then  
    aItem.Properties[mpiThumbnail] := sThumbnailFileName    
  else if FileExists(sThumbnailCacheDirectory + sThumbnailFileName) then  
    aItem.Properties[mpiThumbnail] := '?' + sThumbnailFileName
end;

var
  i: Integer;
  AllMoviesFolder: TWmsScriptMediaItem;
begin
  sThumbnailCacheDirectory := IncludeTrailingBackslash(SpecialFolderPath(CSIDL_COMMON_APPDATA)) + 
                              'Wild Media Server\Thumbnails\';
  AllMoviesFolder := WmsFindMediaFolder(mfVideoAllMoviesItemID);
  if (AllMoviesFolder <> nil) and (AllMoviesFolder.ChildCount > 0) then begin 
    WmsShowProgress('Search thumbnails...');
    try
      for i := 0 to AllMoviesFolder.ChildCount - 1 do begin
        if WmsCancelPressed then
          Break
        else begin  
          ProcessItem(AllMoviesFolder.ChildItems[i]); 
          WmsSetProgress(Round(((i + 1) / AllMoviesFolder.ChildCount) * 100))
        end  
      end  
    finally
      WmsHideProgress
    end;
    if WmsCancelPressed then
      MessageDlg('Search thumbnails interrupted by the user.', mtError, mbOK, 0)
    else begin
      WmsDatabaseAutoSave;
      MessageDlg('Search thumbnails  is successful.', mtInformation, mbOK, 0)
    end  
  end else
    MessageDlg('No files to process.', mtError, mbOK, 0);
  ProcessMediaResult := True      
end.