Pics Converter

#cs

'Pics Converter in Pure AutoIt' made by Cramaboule October 09

Thanks to AdmiralAlkex for his help !

Convert from/to JPG, BMP, GIF, PNG ,...!!!

Enjoy !

- To Do:

- autodetect input type -> Done!!!

- set output file time according to input one -> Done!!!

- for JPG new option for "quality" -> Done!!!

- remove Sleep(10) from FOR/NEXT loop -> Done!!!

V1.0 first realese

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