Open file handle.
...
File name in ZIP archive. Default codepage is ANSI. If value of tcFileName parameter is TRUE, then string will be convert to UTF-8.
ttCreated
Datetime created.
...
Specifies if you want write data more then 4GiB data.
lcComment
File comment. Default codepage is ANSI. If value of llIWontUTF8 parameter is TRUE, then string will be convert to UTF-8.
Return values
Number
| Value | Description |
|---|---|
| 0 | File append to ZIP archive |
| -102 | Bad paremeters. (ZIP_PARAMERROR) |
| -103 | File is not a zip file. (ZIP_BADZIPFILE) |
| -104 | Internal at error at zipping data. (ZIP_INTERNALERROR) |
...
CloseFile Method
WriteData Method
Examples
| Code Block |
|---|
LOCAL m.loZIP, m.lcZIPFile, m.lcFile
m.lcZIPFile="c:\temp\_big.zip"
m.loZIP = EVALUATE([xfrx("XFRX#ZIP")])
IF m.loZip.openArchive(m.lcZIPFile)
m.lcData=SYS(0)+" "+TTOC(DATETIME())
m.loZip.OpenNewFile("myFile")
m.loZip.WriteData(m.lcData)
m.loZip.CloseFile()
m.lcData=SYS(0)+" "+TTOC(DATETIME())
m.loZip.OpenNewFile("myFile+Datetime", {^2022-01-01})
m.loZip.WriteData(m.lcData)
m.loZip.CloseFile()
m.lcData=SYS(0)+" "+TTOC(DATETIME())
m.loZip.OpenNewFile("myFile+Datetime+National+Characters - "+"bílý žluťoučký kůň", {^2022-01-01}, .T.)
m.loZip.WriteData(m.lcData)
m.loZip.CloseFile()
m.lcData=SYS(0)+" "+TTOC(DATETIME())
m.loZip.OpenNewFile("myFile+Datetime+ěščřž+password", {^2022-01-01}, .T., "mypwd", loZIP.SYS2007(m.lcData))
m.loZip.WriteData(m.lcData)
m.loZip.CloseFile()
m.lcData=SYS(0)+" "+TTOC(DATETIME())
m.loZip.OpenNewFile("myFile+Datetime+ěščřž+password+file comment", {^2022-01-01}, .T., "mypwd", loZIP.SYS2007(m.lcData), .F., "my file comment")
m.loZip.WriteData(m.lcData)
m.loZip.CloseFile()
m.loZip.closearchive("ěščřžýáíé")
ENDIF
RELE m.loZIP |
...