eltorro Posted August 31, 2005 Share Posted August 31, 2005 Here's a dll that doesn't need a callback and can be used as an object (com).I converted the examples from the website to autoit. Zbit dllI extracted the files to a seperate folder within autoit and regeistered the components. Take a look.expandcollapse popup;Converted from .asp example ; http://www.zbitinc.com/product.aspx?p=2 ;Sample program using zbit.dll for zip and unzip support in Autoit3 ;Requires Beta ;Download and extrat the zip. Execute the bat th register the dll and tlb. ;Main #include <GUIConstants.au3> GUICreate("Zbit zip dll test") ; will create a dialog box that when displayed is centered Opt("GUICoordMode",2) $zip = GUICtrlCreateButton ("Zip", 10, 30, 50) $unzip = GUICtrlCreateButton ( "UnZip",10,-1, 50) GUISetState () ; will display an dialog box with 2 button ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() if $msg =$zip then Zip() if $msg =$unzip then unzip() If $msg = $GUI_EVENT_CLOSE Then ExitLoop Wend Exit ;Sample use of Zipfile function: Func Zip() Dim $sInFiles,$sZipPath,$ret $sInFiles="C:\~res.txt;C:\boot.ini.bak.txt;C:\hexedit.exe" $sZipPath="C:\myzip.zip" $Arch = ObjCreate("Pnvzip.ZipFunctions") $ret=$Arch.ZipFile($sInFiles,$sZipPath) $Arch = "" ConsoleWrite ("response=" & $ret) EndFunc ;Sample use of UnzipFile function: Func Unzip() Dim $complPath,$unzippedPath,$ret $complPath="C:\myzip.zip" $unzippedPath="C:\directory\unzipped\" $Arch = ObjCreate("Pnvzip.ZipFunctions") $ret=$Arch.UnzipFile($complPath,$unzippedPath) $Arch = "" ConsoleWrite("response=" & $ret) EndFuncThe only bad things is you have to give them an email, so I gave them my spam account. Cheers. Regards, [indent]ElTorro[/indent][font="Book"] Decide, Commit, Achieve[/font]_ConfigIO.au3Language Translation --uses Google(tm) MsgBox Move XML wrapper UDF XML2TreeView Zip functionality Split your GUI Save Print ScreenZipPluginEdit In Place listviewSome of my scripts on Google code Link to comment Share on other sites More sharing options...
MHz Posted August 31, 2005 Share Posted August 31, 2005 The only bad things is you have to give them an email, so I gave them my spam account. <{POST_SNAPBACK}>Use my email account at http://www.dodgeit.com/. I love spam. Link to comment Share on other sites More sharing options...
eltorro Posted August 31, 2005 Author Share Posted August 31, 2005 I sometimes like spam, usually with eggs and oj. Regards, [indent]ElTorro[/indent][font="Book"] Decide, Commit, Achieve[/font]_ConfigIO.au3Language Translation --uses Google(tm) MsgBox Move XML wrapper UDF XML2TreeView Zip functionality Split your GUI Save Print ScreenZipPluginEdit In Place listviewSome of my scripts on Google code 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