Resize Image

среда, 17 июня 2015

21:43

Hikedaya

We rise up for the things we believe in over and over again

Для прошлого поста было отснято довольно немало фотографий, но все они вышли в диком разрешении. 3 тыщи на еще сколько-то тыщ пикселов. Да, я знаю, что Imgur может автоматом ресайзить все загружаемые изображения, но, но, но... Короче, задача ясна.
Был у меня когда-то скрипт, который позволял пачкой менять размеры у кучи картинок. Да вот беда, он в своей работе использовал модуль Powershellpack. Проблема - дистр этого модуля утерян, а страница в инете, где он лежал, убрана в архив. И модуль фактически пропал. Придется писать работу с картинками "с нуля".

#define objects
$image = New-Object -ComObject Wia.ImageFile            
$imageProcess = New-object -comobject Wia.ImageProcess
$imageProcess.Filters.Add($imageProcess.FilterInfos.Item("Scale").FilterID)

#variables
$size = 1024
$source= Get-ChildItem "D:\temp\1\*.jpg"

#main sсript
foreach ($file in $source) {
    $image.LoadFile($file)          
    if ($image.width -gt $image.height) {
        $imageProcess.Filters.item(1).properties.item("MaximumWidth")=$size
        $imageProcess.Filters.item(1).properties.item("MaximumHeight")=$image.height*$size/$image.width
    }
    else {
        $imageProcess.Filters.item(1).properties.item("MaximumHeight")=$size
        $imageProcess.Filters.item(1).properties.item("MaximumWidth")=$image.width*$size/$image.height
    }
    $imageProcess.Filters.item(1).properties.item("PreserveAspectRatio")=$false
    $image=$imageProcess.Apply($image)
    $image.SaveFile(($file -replace $file.BaseName, "$($file.basename)_new"))
}

PreserveAspectRatio выключен специально, иначе авторасчет величин сторон даст неверные значения.
Сохранение результатов преобразования идет в новые файлы. Перезаписать файл команда $image.SaveFile не позволяет. Ну и ладно, это не страшно.
В который раз хочется сказать спасибо МСам за то, насколько более удобной они сделали ISE в 4-й версии. Подсветка кода в строке $imageProcess.Filters.item(1).properties.item("MaximumWidth") меня просто спасла.

@музыка: Diana Lewis - Three Times Allright

@темы: PowerShell