| 12345678910111213141516171819202122232425262728293031323334353637 |
- SuperStrict
- Framework Archive.Zip
- Import brl.standardio
- Local wa:TWriteArchive = New TWriteArchive
- wa.SetFormat(EArchiveFormat.ZIP)
- wa.SetEncryption(EArchiveEncryptionType.AES256)
- wa.SetPassphrase("abc123")
- wa.Open("data.zip")
- wa.AddEntry("testdata.txt", "files/testdata.txt")
- wa.AddEntry("테스트_데이터.txt", "files/테스트_데이터.txt")
- wa.Close()
- Local entry:TArchiveEntry = New TArchiveEntry
- Local ra:TReadArchive = New TReadArchive
- ra.SetFormat(EArchiveFormat.ZIP)
- ra.AddPassphrase("abc123")
- ra.Open("data.zip")
- While ra.ReadNextHeader(entry) = ARCHIVE_OK
- Print "File : " + entry.Pathname()
- Print "Size : " + entry.Size()
- Local s:String = LoadText(ra.DataStream())
- Print "String size : " + s.Length
- Print "First n chars : " + s[0..17]
- Print
- Wend
- ra.Free()
|
