LtZip
CLASS TLtZip
METHOD New(cZipFile, cPwd)
METHOD Release() Destructor
METHOD GetLastError()
METHOD AddFile(cDst,cSrc)
METHOD AddStr(cDstName,cStr,nLen)
METHOD AddFolder(cDstName)
METHOD ZipAddDir(cDir,uBase)
ENDCLASS
----------------------------------------------------------------
CLASS TLtUnZip
CLASS METHOD Open(cFName,cPwd,nError) Constructor
CLASS METHOD OpenFromBuffer(cBuffer,nSize,cPwd, nError ) Constructor
CLASS METHOD OpenFromHandle(hFile,cPwd,nError) Constructor
METHOD Release()
METHOD GetLastError() METHOD UnzipItem(uIndexOrName,cFName,lCaseSensitive) -> lOk
METHOD UnzipItemToHandle(uIndexOrName,hFile,lCaseSensitive) ->lOk
METHOD UnzipItemToBuffer(uIndexOrName,uBuffer,nLen,lCaseSensitive) ->lOk METHOD SetBaseDir(cBaseDir)
METHOD ListItems() -> aItems
aItems[n][ 1] := oEntry:Index
aItems[n][ 2] := oEntry:Name
aItems[n][ 3] := oEntry:Attributes
aItems[n][ 4] := oEntry:AccessTime:dDate
aItems[n][ 5] := oEntry:AccessTime:cTime
aItems[n][ 6] := oEntry:CreateTime:dDate
aItems[n][ 7] := oEntry:CreateTime:cTime
aItems[n][ 8] := oEntry:ModifyTime:dDate
aItems[n][ 9] := oEntry:ModifyTime:cTime
aItems[n][10] := oEntry:CompressedSize aItems[n][11] := oEntry:UncompressedSize
ENDCLASS
//-------------------------------------------------------------------------------------------------------------------------
This message includes the following attachments:
LtZip.rar
Posted 10/2/2008 3:15:33 PM by Pablo Botella