Nicka_Grey
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
SETLOCAL ENABLEDELAYEDEXPANSION
rem указываем MPlayer
set mplayer=G:\Tools\Media\MPlayer\mplayer.exe
rem сколько скринов хотим сделать
set countScreenShot=%1
rem Имя входного файла-фильма
set Film=%2
rem Формат выходных файлов скринов
set scrFile=%~N2_screenshot_
rem echo %scrFile%
rem длина фильма в секундах
set FilmLength=
echo off
rem получаем длину фильма в секундах
%mplayer% -really-quiet -ao null -vo null -frames 1 -identify %Film% | grep ID_LENGTH= > test1.txt
rem получаем длину фильма в секундах
FOR /F "TOKENS=2 DELIMS==" %%A IN (test1.txt) DO set FilmLength=%%A
FOR /F "TOKENS=1 DELIMS=." %%A IN ("%FilmLength%") DO set FilmLength=%%A
echo FilmLength=%FilmLength%
rem период получения screnshot-ов
set /A secPeriod=%FilmLength% / (%countScreenShot% + 1)
set /A curFrame=
echo %secPeriod%
rem творим срины...
FOR /L %%f IN (1, 1, %countScreenShot%) DO (
set /A curFrame=%secPeriod% * %%f
echo !curFrame!
echo %mplayer% -really-quiet -ao null -ss !curFrame! -frames 10 -vo png:z=9
%mplayer% -really-quiet -ao null -ss !curFrame! -frames 10 -vo png:z=9 %Film%
move 00000007.png "%scrFile%"%%f.png
del 000000*.png
)
|
