Code: Select all
@REQUIRE "zip", {InstallAdapter = True}
@DISPLAY {Title="Window", Width=640, Height=480}
zip.OpenArchive(1, "test.zip", #MODE_WRITE)
;zip.AddFile(1, "House.jpg") ;Here the code ziped the picture.
;Below the code where you choose the mode and password doesn't work.
zip.AddFile(1, "House.jpg", {#ZIP_EM_AES_256, #ZIP_CM_BZIP2})
zip.SetDefaultPassword(1, "Hello")
;This below line neither work.
;zip.SetFileEncryption(1, "House.jpg", {#ZIP_EM_AES_256, "Hola"})
zip.CloseArchive(1)
SystemRequest("Noticie", "File ziped", "Ok", #REQICON_INFORMATION)
End()