[Rel] Batch importer for extra images

If you made a script you can offer it to the others here, or ask help to improve it. You can also report here bugs & problems with existing scripts.
Post Reply
J
Posts: 224
Joined: 2008-02-17 17:09:26

[Rel] Batch importer for extra images

Post by J »

target audience: lazy, advanced users with 500+ movies


hi,

this is a quick and dirty batch script to auto import extra images from your hard drive into your catalog.
Not really new and not very sophisticated, but it's fast and works with multiple CD pictures per movie.

The idea behind this was to automatically make some multi-screenshot images from movie files and then auto import them in the catalog.
(To make the screens I used the programm "Auto-Movie-Thumbnailer" (http://funk.eu/amt/) which is very flexible and fast.)

--> You probably need to adjust var "movie" in the script (line 13,25) to fit to your filename rules.
Defaut is "moviename.ext" or "moviename - CDxx.ext".
For example for movie Terminator with file names
Terminator - CD1.avi, Terminator - CD2.avi
you can import
Terminator - CD1.jpg, Terminator - CD2.jpg
which contain the screenshots from the first and second CD.

I tested the import with over 500 movies, it took around 10s and success quota was around 50-90%, highly depending on filename quality.

Well, to keep it short, if you're too lazy to look for movie stills (but nevertheless want to have some) you can try this automatic version.

J.

Image

Code: Select all

program extra_image_import;

var
  index, count: integer;
  movie, path: string;

begin
	if GetIteration = 0 then path := 'D:\movie pics\';
	movie := GetField(fDisks);
		
	if movie = '1' then
	  begin
		movie := path + GetField(fOriginalTitle) + '.jpg';
		if FileExists(movie) then 
		  begin
			index := AddExtra;
			ImportExtraPicture(index, movie);
			SetExtraField(index, eCategory, 'Stills');
		  end;
	  end
	else
	  begin
		for count := 1 to StrToInt(movie,0) do
		  begin
			movie := path + GetField(fOriginalTitle) + ' - CD' + IntToStr(count) + '.jpg';
			if FileExists(movie) then 
			  begin
				index := AddExtra;
				ImportExtraPicture(index, movie);
				SetExtraField(index, eCategory, 'Stills');
			  end;
		  end;
	  end;
end.
Post Reply