image convert... modify a script

[ShadowElf 0]

I found this script and I want to do something much more simple.

$var1="C:\xx\x.bmp" (or x.jpg, or x.gif, or x.png)

$var2="C:\xx\x.jpg"

$quality=from 1 to 100

$weight=300 (pixel)

$height=400 (pixel)

convert ($var1, $var2, $quality, $weight, $height)

$weight, $height to resize, NOT to cut

Can any one help me... to cut what I need from script?

thx

expandcollapse popup

V1.1 added new features
V1.2 bugs fixed

#ce
#include <ScreenCapture.au3>
#include <GDIPlus.au3>
#Include <File.au3>
#include <ProgressConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>

$head = "Pics Conversion V1.2"

Local $Param=0 , $Decoder, $InDecoder[1][10], $ToCombo


_GDIPlus_Startup ()
$testBMP = _ScreenCapture_Capture ("", 0, 0, 1, 1)
$hImage = _GDIPlus_BitmapCreateFromHBITMAP ($testBMP)
$Decoder = _GDIPlus_Decoders()
_GDIPlus_ImageDispose ($hImage)
_WinAPI_DeleteObject ($testBMP)
_GDIPlus_ShutDown ()


For $i = 1 To $Decoder[0][0]
    ReDim $InDecoder[$Decoder[0][0]+1][10]
    $Split = StringSplit($Decoder[$i][6],";")
    For $j = 1 to $Split[0]
        $ToCombo &= StringTrimLeft($Split[$j],2)& "|"
    Next
Next
;ConsoleWrite($ToCombo & @CRLF)

$Conv = GUICreate($head, 400, 210, -1, -1)
$Group1 = GUICtrlCreateGroup("Input", 5, 5, 140, 145)
$InputEncoder = GUICtrlCreateCombo("", 15, 120, 110, 25)
GUICtrlSetData(-1, $ToCombo)
$InputFolder = GUICtrlCreateInput("Input Folder", 15, 30, 120, 21)
$BrowseInput = GUICtrlCreateButton("Browse...", 30, 55, 75, 25, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Convert from:", 15, 95, 67, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Output", 155, 5, 140, 145)
$OutputEncoder = GUICtrlCreateCombo("JPG", 170, 120, 110, 25)
GUICtrlSetData(-1, "BMP|GIF|PNG")
$OutputFolder = GUICtrlCreateInput("Output Folder", 165, 30, 120, 21)
$BrowseOutput = GUICtrlCreateButton("Browse...", 185, 55, 75, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Convert to:", 170, 95, 56, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GO = GUICtrlCreateButton("Convert", 100, 160, 200, 40, $WS_GROUP)
$Group3 = GUICtrlCreateGroup(" JPG Quality ", 305, 5, 90, 145)
$Slider = GUICtrlCreateSlider(350, 20, 35, 125, BitOR($TBS_VERT,$TBS_TOP,$TBS_LEFT))
$JPGQlty = GUICtrlCreateInput("100", 315, 75, 30, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

$OldOutEncoder=""
$OldValSlider="0"
$OldJPGQuality="100"

While 1
    $OutEncoder = GUICtrlRead ($OutputEncoder)
    $ValSlider = GUICtrlRead ($Slider)
    $JPGQuality = GUICtrlRead($JPGQlty)
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg=$GUI_EVENT_CLOSE
            Exit
        Case $nMsg= $BrowseInput
            $InFold = FileSelectFolder("Choose a folder", "",7)
            If $InFold <> "" Then
                GUICtrlSetData($InputFolder, $InFold)
                GUICtrlSetData($OutputFolder, $InFold)
            EndIf
        Case $nMsg= $BrowseOutput
            $OutFold = FileSelectFolder("Choose a folder", "",7)
            If $OutFold <> "" Then
                GUICtrlSetData($OutputFolder, $OutFold)
            EndIf
        Case $nMsg= $GO
            $InPath=GUICtrlRead ($InputFolder)
            $OutPath= GUICtrlRead($OutputFolder)
            $InEncoder = GUICtrlRead ($InputEncoder)
            $OutEncoder = GUICtrlRead ($OutputEncoder)
            If StringInStr($InPath,"\")  = 0 Then
                MsgBox (16, "Caution!","Please select a folder!")
            ElseIf $InEncoder = $OutEncoder And $OutEncoder <> "JPG" Or $InEncoder = "" Then
                MsgBox (16, "Caution!","Please choose different encoder/decoder")
            Else
                ; do the conversion process...
                ; do the progress bar GUI
                $Form1 = GUICreate("", 420, 100,-1, -1,BitOR($WS_POPUP,$WS_BORDER),$WS_EX_TOOLWINDOW)
                $ProgFile = GUICtrlCreateProgress(10, 10, 400, 15, $PBS_SMOOTH)
                $ProgAll = GUICtrlCreateProgress(10, 60, 400, 15, $PBS_SMOOTH)
                $Label1 = GUICtrlCreateLabel("", 10, 80, 400, 17)
                $Label2 = GUICtrlCreateLabel("", 10, 30, 400, 17)
                GUISetState(@SW_SHOW)
                ;
                If $OutEncoder ="JPG" Then ; Set JPG quality
                    $TParam = _GDIPlus_ParamInit(1)
                    $Datas = DllStructCreate("int Quality")
                    DllStructSetData($Datas, "Quality", $JPGQuality)
                    _GDIPlus_ParamAdd($TParam, $GDIP_EPGQUALITY, 1, $GDIP_EPTLONG, DllStructGetPtr($Datas))
                    $Param = DllStructGetPtr($TParam)
                EndIf
                If IsDllStruct($Param) Then $Param = DllStructGetPtr($TParam)
                ;process itself
                $FileList=_FileListToArray($InPath, "*."& $InEncoder, 1)
                If @error <> 0 Then
                    MsgBox(16, "Caution!","No files found or invalid path!")
                Else
                    _GDIPlus_Startup()
                    For $i = 1 To $FileList[0]
                        GUICtrlSetData($ProgAll, ($i/$FileList[0])*100)
                        GUICtrlSetData($Label2, $InPath&"\"&$FileList[$i])
                        GUICtrlSetData($Label1, $i&" / "&$FileList[0])
                        $image = _GDIPlus_ImageLoadFromFile($InPath&"\"&$FileList[$i])
                        $clsid = _GDIPlus_EncodersGetCLSID($OutEncoder)
                        GUICtrlSetData($ProgFile, 25)
                        _GDIPlus_ImageSaveToFileEx($image, StringReplace($OutPath&"\"&$FileList[$i],"."&$InEncoder,"."&$OutEncoder), $clsid,$Param)
                        GUICtrlSetData($ProgFile, 75)
                        FileSetTime ( StringReplace($OutPath&"\"&$FileList[$i],"."&$InEncoder,"."&$OutEncoder), FileGetTime ( $InPath&"\"&$FileList[$i], 0,1), 0 )
                        FileSetTime ( StringReplace($OutPath&"\"&$FileList[$i],"."&$InEncoder,"."&$OutEncoder), FileGetTime ( $InPath&"\"&$FileList[$i], 1,1), 1 )
                        GUICtrlSetData($ProgFile, 100)
                    Next
                    _GDIPlus_Shutdown()
                    MsgBox(64, "Done!","Done!")
                EndIf
                GUISetState(@SW_HIDE,$Form1)
            EndIf
        Case $OutEncoder <> $OldOutEncoder
            If $OutEncoder <> "JPG" Then
                GUICtrlSetState ($Group3,$GUI_DISABLE)
                GUICtrlSetState ($Slider,$GUI_DISABLE)
                GUICtrlSetState ($JPGQlty,$GUI_DISABLE)
            Else
                GUICtrlSetState ($Group3,$GUI_ENABLE)
                GUICtrlSetState ($Slider,$GUI_ENABLE)
                GUICtrlSetState ($JPGQlty,$GUI_ENABLE)
            EndIf
            $OldOutEncoder = $OutEncoder
        Case $ValSlider <> $OldValSlider
            GUICtrlSetData($JPGQlty,100-$ValSlider)
            $OldValSlider = $ValSlider
        Case $JPGQuality <> $OldJPGQuality
            GUICtrlSetData($Slider, 100-$JPGQuality)
            If $JPGQuality > 100 Then $JPGQuality = 100
            If $JPGQuality < 0 Then $JPGQuality = 0
            GUICtrlSetData($JPGQlty,$JPGQuality)
            $OldJPGQuality = $JPGQuality
    EndSelect
WEnd

[Zedna 137]

Partial solution -  without resize

#include <GDIPlus.au3>

Convert("C:\xx\x.bmp", "C:\xx\x.jpg", 100, 300, 400)

Func Convert($file_in, $file_out, $width = -1, $height = -1, $quality = -1)

 _GDIPlus_Startup ()

 $TParam = _GDIPlus_ParamInit(1)
 $Datas = DllStructCreate("int Quality")
 DllStructSetData($Datas, "Quality", $quality)
 _GDIPlus_ParamAdd($TParam, $GDIP_EPGQUALITY, 1, $GDIP_EPTLONG, DllStructGetPtr($Datas))
 $Param = DllStructGetPtr($TParam)

 $sFileExt = StringRight($file_out,3) ; only simplified method (just for extensions with 3 chars)!
 $clsid = _GDIPlus_EncodersGetCLSID($sFileExt)

 $image = _GDIPlus_ImageLoadFromFile($file_in)
 _GDIPlus_ImageSaveToFileEx($image, $file_out, $clsid, $Param)

 _GDIPlus_ShutDown ()
EndFunc

Edited December 3, 2009 by Zedna