CMD/BAT

sov44 · Конфигурация компьютера

kiripanda, условием задачи было определение установленного разрешения экрана и образка краёв картинки до пропорций этого разрешения. Настройка свойств экрана - фоновый рисунок растянут.

kiripanda · Отправлено: **12:38, 10-05-2012** | #22

Iska · Отправлено: **13:09, 10-05-2012** | #23

kiripanda, не то.

1. В приведённом Вами коде изображение обрезается, невзирая на его собственные размеры, до размеров экрана. А надо — а) согласно его собственным размерам и б) пропорционально размерам экрана.

2. Изображение может быть меньше размеров экрана.

Iska · Отправлено: **16:55, 10-05-2012** | #24

kiripanda, зачем «Del»? Статься, кому-нибудь именно Ваш вариант бы и пригодился.

kiripanda · Отправлено: **17:19, 10-05-2012** | #25

Код:

@echo off &setlocal enabledelayedexpansion

set in=z:\sklad\
set out=c:\windows\Web\Wallpaper\
set i_view=i_view32.exe

for /f %%s in ('wmic DesktopMonitor get ScreenHeight^,ScreenWidth /value ^|find "="') do set "%%s"
for /f "delims=" %%f in ('dir /b/a-d/s %in%\*.jpg') do (
	title "%%f"
	%i_view% "%%f" /info=%temp%\info.tmp
	for /f "tokens=4,6" %%x in ('type %temp%\info.tmp ^|find "Image dimensions"') do (
		set /a newx=%%x*%ScreenHeight%/%%y &set /a newy=%%y*%ScreenWidth%/%%x
		if "!newy!" GEQ "%ScreenHeight%" %i_view% "%%f" /resize_long=%ScreenWidth% /aspectratio /resample /convert=temp.bmp
		if "!newx!" GEQ "%ScreenWidth%" %i_view% "%%f" /resize_short=%ScreenHeight% /aspectratio /resample /convert=temp.bmp
		%i_view% %in%\temp.bmp /info=%temp%\info.tmp
		for /f "tokens=4,6" %%x in ('type %temp%\info.tmp ^|find "Image dimensions"') do (
			if "%%y" GTR "%ScreenHeight%" (
				set /a starty=^(%%y-%ScreenHeight%^)/2
				%i_view% %in%\temp.bmp /crop=^(0,!starty!,%ScreenWidth%,%ScreenHeight%^) /jpgq=90 /convert=%out%\%%~nf.jpg
			)
			if "%%x" GEQ "%ScreenWidth%" (
				set /a startx=^(%%x-%ScreenWidth%^)/2
				%i_view% %in%\temp.bmp /crop=^(!startx!,0,%ScreenWidth%,%ScreenHeight%^) /jpgq=90 /convert=%out%\%%~nf.jpg
			)
		)
	)
)
del /q %temp%\info.tmp %in%\temp.bmp

sov44 · Конфигурация компьютера

kiripanda, попробовал скрипт, ошибка

kiripanda · Отправлено: **20:48, 10-05-2012** | #27

попробуй указать полный путь к i_view32.exe

sov44 · Конфигурация компьютера

Цитата kiripanda:

попробуй указать полный путь к i_view32.exe »

аналогичная ошибка.

kiripanda · Отправлено: **22:10, 10-05-2012** | #29

in и out если уж брать в кавычки, то
set "in=z:\sklad\"
set "out=c:\windows\Web\Wallpaper\"

Iska · Отправлено: **22:48, 10-05-2012** | #30

kiripanda, новый код так же масштабирует изображения к разрешению экрана вместо простого обрезания краёв сверху или снизу. Также изображения, у которых высота больше ширины, становятся банально квадратными со стороной, равной высоте экрана — т.е. недостаточно урезаются по высоте.

sov44, так мой код заработал у Вас после установки библиотеки?