eri Posted June 18, 2010 Share Posted June 18, 2010 #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GDIPlus.au3> DirCreate (@ScriptDir &"\Convert") $Dir = @ScriptDir &"\Convert" FileInstall("image.jpg",$Dir &"\") #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Convert", 383, 131, 192, 124) $Button1 = GUICtrlCreateButton("Convert", 32, 56, 121, 41, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE DirRemove($Dir,1) Exit Case $Button1 convert() EndSwitch WEnd Func Convert() $sImage = $Dir & "\image.jpg" _GDIPlus_StartUp() $hImage = _GDIPlus_ImageLoadFromFile($sImage) $sCLSID = _GDIPlus_EncodersGetCLSID("BMP") _GDIPlus_ImageSaveToFileEx($hImage, $Dir &"\image.bmp", $sCLSID) _GDIPlus_ShutDown() EndFunc if push button convert then exit dirremove not work..?? but if not push and exit dirremove OK.. please correct it`s... Thank`s.. Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted June 18, 2010 Moderators Share Posted June 18, 2010 eri,I cannot comment on the Convert part of the code, but the DirRemove works fine for me regardless of whether I have pressed the "Convert" button or not. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
ripdad Posted June 18, 2010 Share Posted June 18, 2010 (edited) expandcollapse popup#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GDIPlus.au3> $Dir = @ScriptDir & "\Convert\" If FileExists($Dir) Then DirRemove($Dir, 1) DirCreate($Dir) FileInstall(@ScriptDir & "\image.jpg", $Dir, 1) #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Convert", 383, 131, 192, 124) $Button1 = GUICtrlCreateButton("Convert", 32, 56, 121, 41, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE ExitLoop Case $Button1 Convert() EndSwitch WEnd DirRemove($Dir, 1) Exit Func Convert() $sImage = $Dir & "image.jpg" _GDIPlus_Startup() $hImage = _GDIPlus_ImageLoadFromFile($sImage) $sCLSID = _GDIPlus_EncodersGetCLSID("BMP") _GDIPlus_ImageSaveToFileEx($hImage, $Dir & "image.bmp", $sCLSID) _GDIPlus_ImageDispose($hImage) _GDIPlus_Shutdown() EndFunc Edited June 19, 2010 by ripdad "The mediocre teacher tells. The Good teacher explains. The superior teacher demonstrates. The great teacher inspires." -William Arthur Ward Link to comment Share on other sites More sharing options...
eri Posted June 18, 2010 Author Share Posted June 18, 2010 Windows probably has a file or folder lock on it. It won't delete until your program exits. Try this - It will remove the folder if it exist next time: expandcollapse popup#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GDIPlus.au3> $Dir = @ScriptDir & "\Convert" If FileExists($Dir) Then DirRemove($Dir, 1) DirCreate($Dir) FileInstall("\image.jpg", $Dir) #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Convert", 383, 131, 192, 124) $Button1 = GUICtrlCreateButton("Convert", 32, 56, 121, 41, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE ExitLoop Case $Button1 Convert() EndSwitch WEnd DirRemove($Dir, 1) Exit Func Convert() $sImage = $Dir & "\image.jpg" _GDIPlus_Startup() $hImage = _GDIPlus_ImageLoadFromFile($sImage) $sCLSID = _GDIPlus_EncodersGetCLSID("BMP") _GDIPlus_ImageSaveToFileEx($hImage, $Dir & "\image.bmp", $sCLSID) _GDIPlus_Shutdown() EndFunc Not Work.. Link to comment Share on other sites More sharing options...
ripdad Posted June 18, 2010 Share Posted June 18, 2010 I edited my first post .. try that with the 5 second delay. Put image.jpg in the same folder as your script. This does work. image.jpg does have a lock on it after conversion. Not sure why. Something with GDIPlus, I suppose. "The mediocre teacher tells. The Good teacher explains. The superior teacher demonstrates. The great teacher inspires." -William Arthur Ward Link to comment Share on other sites More sharing options...
ripdad Posted June 19, 2010 Share Posted June 19, 2010 Func Convert() $sImage = $Dir & "image.jpg" _GDIPlus_Startup() $hImage = _GDIPlus_ImageLoadFromFile($sImage) $sCLSID = _GDIPlus_EncodersGetCLSID("BMP") _GDIPlus_ImageSaveToFileEx($hImage, $Dir & "image.bmp", $sCLSID) _GDIPlus_ImageDispose($hImage); <------- Add this and problem solved _GDIPlus_Shutdown() EndFunc "The mediocre teacher tells. The Good teacher explains. The superior teacher demonstrates. The great teacher inspires." -William Arthur Ward Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now