Platforms to show: All Mac Windows Linux Cross-Platform

/Compression/Old ZipMBS class/zip with encryption
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/Old ZipMBS class/zip with encryption
This example is the version from Thu, 6th Apr 2016.
Project "zip with encryption.xojo_binary_project"
MenuBar MenuBar1
MenuItem UntitledMenu1 = ""
MenuItem FileMenu = "&File"
MenuItem FileQuit = "Quit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu0 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
EventHandler Sub Open() const WindowBits = 15 const memLevel = 8 const password = "Hello" dim z as ZipMBS dim f as FolderItem dim d as date dim b as BinaryStream dim info as ZipFileInfoMBS f=SpecialFolder.Desktop.Child("") z=new ZipMBS(f,0) f=FindFile("ZLib Readme and License.txt") b=f.OpenAsBinaryFile(false) d=f.ModificationDate info=new ZipFileInfoMBS ' 'info.Month=d.Month-1 'info.Year=d.Year 'info.Minute=d.Minute 'info.hour=d.hour 'info.Second=d.Second info.SetDate d info.ExternalFileAttributes=0 info.InternalFileAttributes=0 info.DosDate=0 dim data as string = b.Read(b.Length) dim crc as integer = CRC32StringMBS(0, data) z.CreateFile("zip.rbp", info, "", "", "", z.MethodDeflated, z.CompressionBestCompression, false, false, WindowBits, memLevel, z.StrategyDefault, password, crc) z.Write data z.CloseFile z.Close("global comment") quit End EventHandler
Function FindFile(name as string) As FolderItem // Look for file in parent folders from executable on dim parent as FolderItem = app.ExecutableFile.Parent while parent<>Nil dim file as FolderItem = parent.Child(name) if file<>Nil and file.Exists then Return file end if parent = parent.Parent wend End Function
End Class
Filetype text
End FileTypes
End Project

See also:

Feedback, Comments & Corrections

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

The biggest plugin in space...

MBS FileMaker tutorial videos