Example: /Compression/Archive/Write encrypted zip Archive

Online Documentation   -   Statistics   -   FAQ   -   Plugin Parts (All, Dependencies)   -   Class hierarchy

New in Version 22.2 22.3 22.4 22.5 23.0 23.1 23.2 23.3 23.4 23.5 24.0 24.1

The list of the   topics,   classes,   interfaces,   controls,   modules,   global methods by category,   global methods by name,   screenshots,   licenses   and   examples.

Platforms to show: All Mac Windows Linux Cross-Platform

/Compression/Archive/Write encrypted zip Archive


Required plugins for this example: MBS Compression Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Compression/Archive/Write encrypted zip Archive

This example is the version from Sun, 5th Nov 2022.

Project "Write encrypted zip Archive.xojo_binary_project"
Class App Inherits ConsoleApplication
EventHandler Function Run(args() as String) As Integer dim a as new ArchiveWriterMBS a.SetFormatZip a.ZipSetCompressionDeflate // older one 'a.SetOptions "zip:encryption=zipcrypt" // AES 256bit is better! a.SetOptions "zip:encryption=aes256" if a.Lasterror <> 0 then dim e as string = "Error: "+str(a.Lasterror)+": "+a.ErrorString Break print e end if a.SetPassphrase "hello" if a.Lasterror <> 0 then dim e as string = "Error: "+str(a.Lasterror)+": "+a.ErrorString Break print e end if dim f as FolderItem = SpecialFolder.Desktop.Child("test.zip") if not a.CreateFile(f) then break // failed dim e as string = "Error: "+str(a.Lasterror)+": "+a.ErrorString Break print e else dim data as string = "Hello World test file. Hello World again." dim e as new ArchiveEntryMBS e.PathName = "Hello World.txt" e.Size = lenb(data) e.Permissions = &o0644 e.FileType = e.kFileTypeRegular a.WriteHeader e if a.Lasterror <> 0 then Dim e1 As String = "Error: "+Str(a.Lasterror)+": "+a.ErrorString Break Print e1 end if call a.WriteData data if a.Lasterror <> 0 then Dim e2 As String = "Error: "+Str(a.Lasterror)+": "+a.ErrorString Break Print e2 end if a.FinishEntry if a.Lasterror <> 0 then Dim e3 As String = "Error: "+Str(a.Lasterror)+": "+a.ErrorString Break Print e3 end if a.Close end if End EventHandler
End Class
End Project

See also:

The items on this page are in the following plugins: MBS Compression Plugin.


💬 Ask a question or report a problem