818 lines
37 KiB
ObjectPascal
818 lines
37 KiB
ObjectPascal
(* ***** BEGIN LICENSE BLOCK *****
|
|
* Version: MPL 1.1
|
|
*
|
|
* The contents of this file are subject to the Mozilla Public License Version
|
|
* 1.1 (the "License"); you may not use this file except in compliance with
|
|
* the License. You may obtain a copy of the License at
|
|
* http://www.mozilla.org/MPL/
|
|
*
|
|
* Software distributed under the License is distributed on an "AS IS" basis,
|
|
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
|
* for the specific language governing rights and limitations under the
|
|
* License.
|
|
*
|
|
* The Original Code is TurboPower Abbrevia
|
|
*
|
|
* The Initial Developer of the Original Code is
|
|
* TurboPower Software
|
|
*
|
|
* Portions created by the Initial Developer are Copyright (C) 1997-2002
|
|
* the Initial Developer. All Rights Reserved.
|
|
*
|
|
* Contributor(s):
|
|
*
|
|
* ***** END LICENSE BLOCK ***** *)
|
|
|
|
unit Abbrevia_TLB;
|
|
|
|
// ************************************************************************ //
|
|
// WARNING
|
|
// -------
|
|
// The types declared in this file were generated from data read from a
|
|
// Type Library. If this type library is explicitly or indirectly (via
|
|
// another type library referring to this type library) re-imported, or the
|
|
// 'Refresh' command of the Type Library Editor activated while editing the
|
|
// Type Library, the contents of this file will be regenerated and all
|
|
// manual modifications will be lost.
|
|
// ************************************************************************ //
|
|
|
|
// $Rev: 491 $
|
|
// File generated on 7/23/2009 9:45:45 PM from Type Library described below.
|
|
|
|
// ************************************************************************ //
|
|
// Type Lib: C:\Abbrevia\COM\abbrevia.dll
|
|
// LIBID: {AF804E20-4043-499E-BB14-237B9F26F89F}
|
|
// LCID: 0
|
|
// Helpfile: C:\Abbrevia\COM\abrv-com.hlp
|
|
// HelpString: TurboPower Abbrevia Compression Library v3.03
|
|
// DepndLst:
|
|
// (1) v2.0 stdole, (C:\WINDOWS\System32\stdole2.tlb)
|
|
// ************************************************************************ //
|
|
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
|
|
{$WARN SYMBOL_PLATFORM OFF}
|
|
{$WRITEABLECONST ON}
|
|
{$VARPROPSETTER ON}
|
|
interface
|
|
|
|
uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
|
|
|
|
|
|
// *********************************************************************//
|
|
// GUIDS declared in the TypeLibrary. Following prefixes are used:
|
|
// Type Libraries : LIBID_xxxx
|
|
// CoClasses : CLASS_xxxx
|
|
// DISPInterfaces : DIID_xxxx
|
|
// Non-DISP interfaces: IID_xxxx
|
|
// *********************************************************************//
|
|
const
|
|
// TypeLibrary Major and minor versions
|
|
AbbreviaMajorVersion = 5;
|
|
AbbreviaMinorVersion = 0;
|
|
|
|
LIBID_Abbrevia: TGUID = '{AF804E20-4043-499E-BB14-237B9F26F89F}';
|
|
|
|
IID_IZipItem: TGUID = '{851699A1-422A-4C65-8E08-D0499ACDD834}';
|
|
IID_IGZipItem: TGUID = '{8FA78CE0-FD29-441E-9777-93B63EF1A9EE}';
|
|
IID_ITarItem: TGUID = '{729E9F52-C489-4A41-A770-4E2C5282AE39}';
|
|
IID_IZipKit: TGUID = '{B7480A7F-4E27-4B45-9FE6-224B60295A0C}';
|
|
DIID_IZipKitEvents: TGUID = '{F094D5F4-3A52-45AE-9D86-4409611DD29E}';
|
|
CLASS_ZipItem: TGUID = '{650989D8-F0FF-4C71-83C3-92556F4329F5}';
|
|
CLASS_GZipItem: TGUID = '{2B35BB50-D9C7-4669-B18E-943B5199FD8E}';
|
|
CLASS_TarItem: TGUID = '{2DF3E624-0E6C-42CF-8041-676B9A06375E}';
|
|
CLASS_ZipKit: TGUID = '{730B4B32-9127-492A-BF02-196A7E6B4E1B}';
|
|
|
|
// *********************************************************************//
|
|
// Declaration of Enumerations defined in Type Library
|
|
// *********************************************************************//
|
|
// Constants for enum TArchiveAction
|
|
type
|
|
TArchiveAction = TOleEnum;
|
|
const
|
|
aaFailed = $00000000;
|
|
aaNone = $00000001;
|
|
aaAdd = $00000002;
|
|
aaDelete = $00000003;
|
|
aaFreshen = $00000004;
|
|
aaMove = $00000005;
|
|
aaStreamAdd = $00000006;
|
|
|
|
// Constants for enum TArchiveStatus
|
|
type
|
|
TArchiveStatus = TOleEnum;
|
|
const
|
|
asInvalid = $00000000;
|
|
asIdle = $00000001;
|
|
asBusy = $00000002;
|
|
|
|
// Constants for enum TErrorClass
|
|
type
|
|
TErrorClass = TOleEnum;
|
|
const
|
|
eclAbbrevia = $00000000;
|
|
eclInOutError = $00000001;
|
|
eclFileError = $00000002;
|
|
eclFileCreateError = $00000003;
|
|
eclFileOpenError = $00000004;
|
|
eclOther = $00000005;
|
|
|
|
// Constants for enum TFileAttributes
|
|
type
|
|
TFileAttributes = TOleEnum;
|
|
const
|
|
faReadOnly = $00000001;
|
|
faHidden = $00000002;
|
|
faSysFile = $00000004;
|
|
faVolumeID = $00000008;
|
|
faDirectory = $00000010;
|
|
faArchive = $00000020;
|
|
|
|
// Constants for enum TProcessType
|
|
type
|
|
TProcessType = TOleEnum;
|
|
const
|
|
ptAdd = $00000000;
|
|
ptDelete = $00000001;
|
|
ptExtract = $00000002;
|
|
ptFreshen = $00000003;
|
|
ptMove = $00000004;
|
|
ptReplace = $00000005;
|
|
|
|
// Constants for enum TStoreOptions
|
|
type
|
|
TStoreOptions = TOleEnum;
|
|
const
|
|
soStripDrive = $00000001;
|
|
soStripPath = $00000002;
|
|
soRemoveDots = $00000004;
|
|
soRecurse = $00000008;
|
|
soFreshen = $00000010;
|
|
soReplace = $00000020;
|
|
|
|
// Constants for enum TZipCompressionMethod
|
|
type
|
|
TZipCompressionMethod = TOleEnum;
|
|
const
|
|
cmStored = $00000000;
|
|
cmShrunk = $00000001;
|
|
cmReduced1 = $00000002;
|
|
cmReduced2 = $00000003;
|
|
cmReduced3 = $00000004;
|
|
cmReduced4 = $00000005;
|
|
cmImploded = $00000006;
|
|
cmTokenized = $00000007;
|
|
cmDeflated = $00000008;
|
|
cmEnhancedDeflated = $00000009;
|
|
cmDCLImploded = $0000000A;
|
|
cmBestMethod = $0000000B;
|
|
|
|
// Constants for enum TZipDeflateOption
|
|
type
|
|
TZipDeflateOption = TOleEnum;
|
|
const
|
|
doInvalid = $00000000;
|
|
doNormal = $00000001;
|
|
doMaximum = $00000002;
|
|
doFast = $00000003;
|
|
doSuperFast = $00000004;
|
|
|
|
// Constants for enum TZipDictionarySize
|
|
type
|
|
TZipDictionarySize = TOleEnum;
|
|
const
|
|
dsInvalid = $00000000;
|
|
ds4K = $00000001;
|
|
ds8K = $00000002;
|
|
|
|
// Constants for enum TZipExtractOptions
|
|
type
|
|
TZipExtractOptions = TOleEnum;
|
|
const
|
|
eoCreateDirs = $00000000;
|
|
eoRestorePath = $00000001;
|
|
|
|
// Constants for enum TZipSupportMethod
|
|
type
|
|
TZipSupportMethod = TOleEnum;
|
|
const
|
|
smStored = $00000000;
|
|
smDeflated = $00000001;
|
|
smBestMethod = $00000002;
|
|
|
|
// Constants for enum TErrorCode
|
|
type
|
|
TErrorCode = TOleEnum;
|
|
const
|
|
ecDuplicateName = $00000000;
|
|
ecInvalidPassword = $00000001;
|
|
ecNoSuchDirectory = $00000002;
|
|
ecUnknownCompressionMethod = $00000003;
|
|
ecUserAbort = $00000004;
|
|
ecZipBadCRC = $00000005;
|
|
ecZipVersionNumber = $00000006;
|
|
ecSpannedItemNotFound = $00000007;
|
|
|
|
// Constants for enum TArchiveType
|
|
type
|
|
TArchiveType = TOleEnum;
|
|
const
|
|
atUnknown = $00000000;
|
|
atZip = $00000001;
|
|
atSelfExtZip = $00000002;
|
|
atTar = $00000003;
|
|
atGZip = $00000004;
|
|
atGZippedTar = $00000005;
|
|
atCab = $00000006;
|
|
|
|
// Constants for enum TFileSystem
|
|
type
|
|
TFileSystem = TOleEnum;
|
|
const
|
|
fsFAT = $00000000;
|
|
fsAmiga = $00000001;
|
|
fsVMS = $00000002;
|
|
fsUnix = $00000003;
|
|
fsVM_CMS = $00000004;
|
|
fsAtariTOS = $00000005;
|
|
fsHPFS = $00000006;
|
|
fsMacintosh = $00000007;
|
|
fsZSystem = $00000008;
|
|
fsCP_M = $00000009;
|
|
fsTOPS20 = $0000000A;
|
|
fsNTFS = $0000000B;
|
|
fsQDOS = $0000000C;
|
|
fsAcornRISCOS = $0000000D;
|
|
fsUnknown = $0000000E;
|
|
fsUndefined = $0000000F;
|
|
|
|
type
|
|
|
|
// *********************************************************************//
|
|
// Forward declaration of types defined in TypeLibrary
|
|
// *********************************************************************//
|
|
IZipItem = interface;
|
|
IZipItemDisp = dispinterface;
|
|
IGZipItem = interface;
|
|
IGZipItemDisp = dispinterface;
|
|
ITarItem = interface;
|
|
ITarItemDisp = dispinterface;
|
|
IZipKit = interface;
|
|
IZipKitDisp = dispinterface;
|
|
IZipKitEvents = dispinterface;
|
|
|
|
// *********************************************************************//
|
|
// Declaration of CoClasses defined in Type Library
|
|
// (NOTE: Here we map each CoClass to its Default Interface)
|
|
// *********************************************************************//
|
|
ZipItem = IZipItem;
|
|
GZipItem = IGZipItem;
|
|
TarItem = ITarItem;
|
|
ZipKit = IZipKit;
|
|
|
|
|
|
// *********************************************************************//
|
|
// Interface: IZipItem
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {851699A1-422A-4C65-8E08-D0499ACDD834}
|
|
// *********************************************************************//
|
|
IZipItem = interface(IDispatch)
|
|
['{851699A1-422A-4C65-8E08-D0499ACDD834}']
|
|
function Get_Action: TArchiveAction; safecall;
|
|
function Get_CompressedSize: Integer; safecall;
|
|
function Get_CRC32: Integer; safecall;
|
|
function Get_DiskFileName: WideString; safecall;
|
|
function Get_DiskPath: WideString; safecall;
|
|
function Get_ExternalFileAttributes: TFileAttributes; safecall;
|
|
procedure Set_ExternalFileAttributes(Value: TFileAttributes); safecall;
|
|
function Get_FileName: WideString; safecall;
|
|
procedure Set_FileName(const Value: WideString); safecall;
|
|
function Get_IsEncrypted: WordBool; safecall;
|
|
function Get_LastModFileDateTime: TDateTime; safecall;
|
|
function Get_StoredPath: WideString; safecall;
|
|
function Get_Tagged: WordBool; safecall;
|
|
procedure Set_Tagged(Value: WordBool); safecall;
|
|
function Get_UnCompressedSize: Integer; safecall;
|
|
function Get_CRC32St: WideString; safecall;
|
|
function Get_Password: WideString; safecall;
|
|
procedure Set_Password(const Value: WideString); safecall;
|
|
function Get_CompressionMethod: TZipCompressionMethod; safecall;
|
|
function Get_CompressionRatio: Double; safecall;
|
|
function Get_DeflateOption: TZipDeflateOption; safecall;
|
|
function Get_DictionarySize: TZipDictionarySize; safecall;
|
|
function Get_DiskNumberStart: Integer; safecall;
|
|
function Get_ExtraField: WideString; safecall;
|
|
procedure Set_ExtraField(const Value: WideString); safecall;
|
|
function Get_FileComment: WideString; safecall;
|
|
procedure Set_FileComment(const Value: WideString); safecall;
|
|
function Get_InternalFileAttributes: Integer; safecall;
|
|
procedure Set_InternalFileAttributes(Value: Integer); safecall;
|
|
function Get_VersionMadeBy: Integer; safecall;
|
|
function Get_VersionNeededToExtract: Integer; safecall;
|
|
property Action: TArchiveAction read Get_Action;
|
|
property CompressedSize: Integer read Get_CompressedSize;
|
|
property CRC32: Integer read Get_CRC32;
|
|
property DiskFileName: WideString read Get_DiskFileName;
|
|
property DiskPath: WideString read Get_DiskPath;
|
|
property ExternalFileAttributes: TFileAttributes read Get_ExternalFileAttributes write Set_ExternalFileAttributes;
|
|
property FileName: WideString read Get_FileName write Set_FileName;
|
|
property IsEncrypted: WordBool read Get_IsEncrypted;
|
|
property LastModFileDateTime: TDateTime read Get_LastModFileDateTime;
|
|
property StoredPath: WideString read Get_StoredPath;
|
|
property Tagged: WordBool read Get_Tagged write Set_Tagged;
|
|
property UnCompressedSize: Integer read Get_UnCompressedSize;
|
|
property CRC32St: WideString read Get_CRC32St;
|
|
property Password: WideString read Get_Password write Set_Password;
|
|
property CompressionMethod: TZipCompressionMethod read Get_CompressionMethod;
|
|
property CompressionRatio: Double read Get_CompressionRatio;
|
|
property DeflateOption: TZipDeflateOption read Get_DeflateOption;
|
|
property DictionarySize: TZipDictionarySize read Get_DictionarySize;
|
|
property DiskNumberStart: Integer read Get_DiskNumberStart;
|
|
property ExtraField: WideString read Get_ExtraField write Set_ExtraField;
|
|
property FileComment: WideString read Get_FileComment write Set_FileComment;
|
|
property InternalFileAttributes: Integer read Get_InternalFileAttributes write Set_InternalFileAttributes;
|
|
property VersionMadeBy: Integer read Get_VersionMadeBy;
|
|
property VersionNeededToExtract: Integer read Get_VersionNeededToExtract;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IZipItemDisp
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {851699A1-422A-4C65-8E08-D0499ACDD834}
|
|
// *********************************************************************//
|
|
IZipItemDisp = dispinterface
|
|
['{851699A1-422A-4C65-8E08-D0499ACDD834}']
|
|
property Action: TArchiveAction readonly dispid 1;
|
|
property CompressedSize: Integer readonly dispid 2;
|
|
property CRC32: Integer readonly dispid 3;
|
|
property DiskFileName: WideString readonly dispid 4;
|
|
property DiskPath: WideString readonly dispid 5;
|
|
property ExternalFileAttributes: TFileAttributes dispid 6;
|
|
property FileName: WideString dispid 7;
|
|
property IsEncrypted: WordBool readonly dispid 8;
|
|
property LastModFileDateTime: TDateTime readonly dispid 9;
|
|
property StoredPath: WideString readonly dispid 10;
|
|
property Tagged: WordBool dispid 11;
|
|
property UnCompressedSize: Integer readonly dispid 12;
|
|
property CRC32St: WideString readonly dispid 13;
|
|
property Password: WideString dispid 14;
|
|
property CompressionMethod: TZipCompressionMethod readonly dispid 15;
|
|
property CompressionRatio: Double readonly dispid 16;
|
|
property DeflateOption: TZipDeflateOption readonly dispid 17;
|
|
property DictionarySize: TZipDictionarySize readonly dispid 18;
|
|
property DiskNumberStart: Integer readonly dispid 19;
|
|
property ExtraField: WideString dispid 20;
|
|
property FileComment: WideString dispid 21;
|
|
property InternalFileAttributes: Integer dispid 22;
|
|
property VersionMadeBy: Integer readonly dispid 23;
|
|
property VersionNeededToExtract: Integer readonly dispid 24;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: IGZipItem
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {8FA78CE0-FD29-441E-9777-93B63EF1A9EE}
|
|
// *********************************************************************//
|
|
IGZipItem = interface(IDispatch)
|
|
['{8FA78CE0-FD29-441E-9777-93B63EF1A9EE}']
|
|
function Get_Action: TArchiveAction; safecall;
|
|
function Get_CompressedSize: Integer; safecall;
|
|
function Get_CRC32: Integer; safecall;
|
|
function Get_DiskFileName: WideString; safecall;
|
|
function Get_DiskPath: WideString; safecall;
|
|
function Get_ExternalFileAttributes: TFileAttributes; safecall;
|
|
procedure Set_ExternalFileAttributes(Value: TFileAttributes); safecall;
|
|
function Get_FileName: WideString; safecall;
|
|
procedure Set_FileName(const Value: WideString); safecall;
|
|
function Get_IsEncrypted: WordBool; safecall;
|
|
function Get_LastModFileDateTime: TDateTime; safecall;
|
|
function Get_StoredPath: WideString; safecall;
|
|
function Get_Tagged: WordBool; safecall;
|
|
procedure Set_Tagged(Value: WordBool); safecall;
|
|
function Get_UnCompressedSize: Integer; safecall;
|
|
function Get_CRC32St: WideString; safecall;
|
|
function Get_Password: WideString; safecall;
|
|
procedure Set_Password(const Value: WideString); safecall;
|
|
function Get_CompressionMethod: Byte; safecall;
|
|
procedure Set_CompressionMethod(Value: Byte); safecall;
|
|
function Get_ExtraField: WideString; safecall;
|
|
procedure Set_ExtraField(const Value: WideString); safecall;
|
|
function Get_ExtraFlags: Byte; safecall;
|
|
procedure Set_ExtraFlags(Value: Byte); safecall;
|
|
function Get_FileComment: WideString; safecall;
|
|
procedure Set_FileComment(const Value: WideString); safecall;
|
|
function Get_FileSystem: TFileSystem; safecall;
|
|
procedure Set_FileSystem(Value: TFileSystem); safecall;
|
|
function Get_Flags: Byte; safecall;
|
|
procedure Set_Flags(Value: Byte); safecall;
|
|
function Get_HeaderCRC: Integer; safecall;
|
|
property Action: TArchiveAction read Get_Action;
|
|
property CompressedSize: Integer read Get_CompressedSize;
|
|
property CRC32: Integer read Get_CRC32;
|
|
property DiskFileName: WideString read Get_DiskFileName;
|
|
property DiskPath: WideString read Get_DiskPath;
|
|
property ExternalFileAttributes: TFileAttributes read Get_ExternalFileAttributes write Set_ExternalFileAttributes;
|
|
property FileName: WideString read Get_FileName write Set_FileName;
|
|
property IsEncrypted: WordBool read Get_IsEncrypted;
|
|
property LastModFileDateTime: TDateTime read Get_LastModFileDateTime;
|
|
property StoredPath: WideString read Get_StoredPath;
|
|
property Tagged: WordBool read Get_Tagged write Set_Tagged;
|
|
property UnCompressedSize: Integer read Get_UnCompressedSize;
|
|
property CRC32St: WideString read Get_CRC32St;
|
|
property Password: WideString read Get_Password write Set_Password;
|
|
property CompressionMethod: Byte read Get_CompressionMethod write Set_CompressionMethod;
|
|
property ExtraField: WideString read Get_ExtraField write Set_ExtraField;
|
|
property ExtraFlags: Byte read Get_ExtraFlags write Set_ExtraFlags;
|
|
property FileComment: WideString read Get_FileComment write Set_FileComment;
|
|
property FileSystem: TFileSystem read Get_FileSystem write Set_FileSystem;
|
|
property Flags: Byte read Get_Flags write Set_Flags;
|
|
property HeaderCRC: Integer read Get_HeaderCRC;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IGZipItemDisp
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {8FA78CE0-FD29-441E-9777-93B63EF1A9EE}
|
|
// *********************************************************************//
|
|
IGZipItemDisp = dispinterface
|
|
['{8FA78CE0-FD29-441E-9777-93B63EF1A9EE}']
|
|
property Action: TArchiveAction readonly dispid 1;
|
|
property CompressedSize: Integer readonly dispid 2;
|
|
property CRC32: Integer readonly dispid 3;
|
|
property DiskFileName: WideString readonly dispid 4;
|
|
property DiskPath: WideString readonly dispid 5;
|
|
property ExternalFileAttributes: TFileAttributes dispid 6;
|
|
property FileName: WideString dispid 7;
|
|
property IsEncrypted: WordBool readonly dispid 8;
|
|
property LastModFileDateTime: TDateTime readonly dispid 9;
|
|
property StoredPath: WideString readonly dispid 10;
|
|
property Tagged: WordBool dispid 11;
|
|
property UnCompressedSize: Integer readonly dispid 12;
|
|
property CRC32St: WideString readonly dispid 13;
|
|
property Password: WideString dispid 14;
|
|
property CompressionMethod: Byte dispid 15;
|
|
property ExtraField: WideString dispid 16;
|
|
property ExtraFlags: Byte dispid 17;
|
|
property FileComment: WideString dispid 18;
|
|
property FileSystem: TFileSystem dispid 19;
|
|
property Flags: Byte dispid 20;
|
|
property HeaderCRC: Integer readonly dispid 21;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: ITarItem
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {729E9F52-C489-4A41-A770-4E2C5282AE39}
|
|
// *********************************************************************//
|
|
ITarItem = interface(IDispatch)
|
|
['{729E9F52-C489-4A41-A770-4E2C5282AE39}']
|
|
function Get_Action: TArchiveAction; safecall;
|
|
function Get_CompressedSize: Integer; safecall;
|
|
function Get_CRC32: Integer; safecall;
|
|
function Get_DiskFileName: WideString; safecall;
|
|
function Get_DiskPath: WideString; safecall;
|
|
function Get_ExternalFileAttributes: TFileAttributes; safecall;
|
|
procedure Set_ExternalFileAttributes(Value: TFileAttributes); safecall;
|
|
function Get_FileName: WideString; safecall;
|
|
procedure Set_FileName(const Value: WideString); safecall;
|
|
function Get_IsEncrypted: WordBool; safecall;
|
|
function Get_LastModFileDateTime: TDateTime; safecall;
|
|
function Get_StoredPath: WideString; safecall;
|
|
function Get_Tagged: WordBool; safecall;
|
|
procedure Set_Tagged(Value: WordBool); safecall;
|
|
function Get_UnCompressedSize: Integer; safecall;
|
|
function Get_CRC32St: WideString; safecall;
|
|
function Get_Password: WideString; safecall;
|
|
procedure Set_Password(const Value: WideString); safecall;
|
|
function Get_DevMajor: Integer; safecall;
|
|
procedure Set_DevMajor(Value: Integer); safecall;
|
|
function Get_DevMinor: Integer; safecall;
|
|
procedure Set_DevMinor(Value: Integer); safecall;
|
|
function Get_GroupID: Integer; safecall;
|
|
procedure Set_GroupID(Value: Integer); safecall;
|
|
function Get_GroupName: WideString; safecall;
|
|
procedure Set_GroupName(const Value: WideString); safecall;
|
|
function Get_LinkFlag: Byte; safecall;
|
|
procedure Set_LinkFlag(Value: Byte); safecall;
|
|
function Get_LinkName: WideString; safecall;
|
|
procedure Set_LinkName(const Value: WideString); safecall;
|
|
function Get_Mode: Integer; safecall;
|
|
procedure Set_Mode(Value: Integer); safecall;
|
|
function Get_UserID: Integer; safecall;
|
|
procedure Set_UserID(Value: Integer); safecall;
|
|
function Get_UserName: WideString; safecall;
|
|
procedure Set_UserName(const Value: WideString); safecall;
|
|
property Action: TArchiveAction read Get_Action;
|
|
property CompressedSize: Integer read Get_CompressedSize;
|
|
property CRC32: Integer read Get_CRC32;
|
|
property DiskFileName: WideString read Get_DiskFileName;
|
|
property DiskPath: WideString read Get_DiskPath;
|
|
property ExternalFileAttributes: TFileAttributes read Get_ExternalFileAttributes write Set_ExternalFileAttributes;
|
|
property FileName: WideString read Get_FileName write Set_FileName;
|
|
property IsEncrypted: WordBool read Get_IsEncrypted;
|
|
property LastModFileDateTime: TDateTime read Get_LastModFileDateTime;
|
|
property StoredPath: WideString read Get_StoredPath;
|
|
property Tagged: WordBool read Get_Tagged write Set_Tagged;
|
|
property UnCompressedSize: Integer read Get_UnCompressedSize;
|
|
property CRC32St: WideString read Get_CRC32St;
|
|
property Password: WideString read Get_Password write Set_Password;
|
|
property DevMajor: Integer read Get_DevMajor write Set_DevMajor;
|
|
property DevMinor: Integer read Get_DevMinor write Set_DevMinor;
|
|
property GroupID: Integer read Get_GroupID write Set_GroupID;
|
|
property GroupName: WideString read Get_GroupName write Set_GroupName;
|
|
property LinkFlag: Byte read Get_LinkFlag write Set_LinkFlag;
|
|
property LinkName: WideString read Get_LinkName write Set_LinkName;
|
|
property Mode: Integer read Get_Mode write Set_Mode;
|
|
property UserID: Integer read Get_UserID write Set_UserID;
|
|
property UserName: WideString read Get_UserName write Set_UserName;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: ITarItemDisp
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {729E9F52-C489-4A41-A770-4E2C5282AE39}
|
|
// *********************************************************************//
|
|
ITarItemDisp = dispinterface
|
|
['{729E9F52-C489-4A41-A770-4E2C5282AE39}']
|
|
property Action: TArchiveAction readonly dispid 1;
|
|
property CompressedSize: Integer readonly dispid 2;
|
|
property CRC32: Integer readonly dispid 3;
|
|
property DiskFileName: WideString readonly dispid 4;
|
|
property DiskPath: WideString readonly dispid 5;
|
|
property ExternalFileAttributes: TFileAttributes dispid 6;
|
|
property FileName: WideString dispid 7;
|
|
property IsEncrypted: WordBool readonly dispid 8;
|
|
property LastModFileDateTime: TDateTime readonly dispid 9;
|
|
property StoredPath: WideString readonly dispid 10;
|
|
property Tagged: WordBool dispid 11;
|
|
property UnCompressedSize: Integer readonly dispid 12;
|
|
property CRC32St: WideString readonly dispid 13;
|
|
property Password: WideString dispid 14;
|
|
property DevMajor: Integer dispid 15;
|
|
property DevMinor: Integer dispid 16;
|
|
property GroupID: Integer dispid 17;
|
|
property GroupName: WideString dispid 18;
|
|
property LinkFlag: Byte dispid 19;
|
|
property LinkName: WideString dispid 20;
|
|
property Mode: Integer dispid 21;
|
|
property UserID: Integer dispid 22;
|
|
property UserName: WideString dispid 23;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: IZipKit
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {B7480A7F-4E27-4B45-9FE6-224B60295A0C}
|
|
// *********************************************************************//
|
|
IZipKit = interface(IDispatch)
|
|
['{B7480A7F-4E27-4B45-9FE6-224B60295A0C}']
|
|
procedure Add(const FileMask: WideString; const ExclusionMask: WideString; SearchAttr: Integer); safecall;
|
|
procedure AddFromStream(const FileName: WideString; Stream: OleVariant); safecall;
|
|
function Get_AutoSave: WordBool; safecall;
|
|
procedure Set_AutoSave(Value: WordBool); safecall;
|
|
function Get_BaseDirectory: WideString; safecall;
|
|
procedure Set_BaseDirectory(const Value: WideString); safecall;
|
|
procedure ClearTags; safecall;
|
|
function Get_CompressionMethodToUse: TZipSupportMethod; safecall;
|
|
procedure Set_CompressionMethodToUse(Value: TZipSupportMethod); safecall;
|
|
function Get_Count: Integer; safecall;
|
|
function Get_DeflateOption: TZipDeflateOption; safecall;
|
|
procedure Set_DeflateOption(Value: TZipDeflateOption); safecall;
|
|
procedure Delete(const FileMask: WideString; const ExclusionMask: WideString); safecall;
|
|
procedure DeleteAt(Index: Integer); safecall;
|
|
procedure DeleteTaggedItems; safecall;
|
|
function Get_DOSMode: WordBool; safecall;
|
|
procedure Set_DOSMode(Value: WordBool); safecall;
|
|
procedure Extract(const FileMask: WideString; const ExclusionMask: WideString); safecall;
|
|
procedure ExtractAt(Index: Integer; const NewName: WideString); safecall;
|
|
function Get_ExtractOptions: TZipExtractOptions; safecall;
|
|
procedure Set_ExtractOptions(Value: TZipExtractOptions); safecall;
|
|
procedure ExtractTaggedItems; safecall;
|
|
function Get_FileName: WideString; safecall;
|
|
procedure Set_FileName(const Value: WideString); safecall;
|
|
function Find(const FileName: WideString): Integer; safecall;
|
|
procedure Freshen(const FileMask: WideString; const ExclusionMask: WideString); safecall;
|
|
procedure FreshenTaggedItems; safecall;
|
|
function Get_Item(Index: Integer): IDispatch; safecall;
|
|
function Get_LogFile: WideString; safecall;
|
|
procedure Set_LogFile(const Value: WideString); safecall;
|
|
function Get_Logging: WordBool; safecall;
|
|
procedure Set_Logging(Value: WordBool); safecall;
|
|
function Get_Password: WideString; safecall;
|
|
procedure Set_Password(const Value: WideString); safecall;
|
|
function Get_PasswordRetries: Byte; safecall;
|
|
procedure Set_PasswordRetries(Value: Byte); safecall;
|
|
procedure Replace(const FileMask: WideString); safecall;
|
|
procedure Save; safecall;
|
|
function Get_Spanned: WordBool; safecall;
|
|
function Get_SpanningThreshold: Integer; safecall;
|
|
procedure Set_SpanningThreshold(Value: Integer); safecall;
|
|
function Get_Status: TArchiveStatus; safecall;
|
|
function Get_StoreOptions: TStoreOptions; safecall;
|
|
procedure Set_StoreOptions(Value: TStoreOptions); safecall;
|
|
procedure TagItems(const FileMask: WideString); safecall;
|
|
function Get_TempDirectory: WideString; safecall;
|
|
procedure Set_TempDirectory(const Value: WideString); safecall;
|
|
procedure TestTaggedItems; safecall;
|
|
procedure UntagItems(const FileMask: WideString); safecall;
|
|
function Get_ZipFileComment: WideString; safecall;
|
|
procedure Set_ZipFileComment(const Value: WideString); safecall;
|
|
function License(const Key: WideString): WordBool; safecall;
|
|
function Get__NewEnum: IUnknown; safecall;
|
|
function ExtractToStream(const FileName: WideString): OleVariant; safecall;
|
|
function Get_CompressionType: TArchiveType; safecall;
|
|
procedure Set_CompressionType(Value: TArchiveType); safecall;
|
|
function Get_TarAutoHandle: WordBool; safecall;
|
|
procedure Set_TarAutoHandle(Value: WordBool); safecall;
|
|
property AutoSave: WordBool read Get_AutoSave write Set_AutoSave;
|
|
property BaseDirectory: WideString read Get_BaseDirectory write Set_BaseDirectory;
|
|
property CompressionMethodToUse: TZipSupportMethod read Get_CompressionMethodToUse write Set_CompressionMethodToUse;
|
|
property Count: Integer read Get_Count;
|
|
property DeflateOption: TZipDeflateOption read Get_DeflateOption write Set_DeflateOption;
|
|
property DOSMode: WordBool read Get_DOSMode write Set_DOSMode;
|
|
property ExtractOptions: TZipExtractOptions read Get_ExtractOptions write Set_ExtractOptions;
|
|
property FileName: WideString read Get_FileName write Set_FileName;
|
|
property Item[Index: Integer]: IDispatch read Get_Item;
|
|
property LogFile: WideString read Get_LogFile write Set_LogFile;
|
|
property Logging: WordBool read Get_Logging write Set_Logging;
|
|
property Password: WideString read Get_Password write Set_Password;
|
|
property PasswordRetries: Byte read Get_PasswordRetries write Set_PasswordRetries;
|
|
property Spanned: WordBool read Get_Spanned;
|
|
property SpanningThreshold: Integer read Get_SpanningThreshold write Set_SpanningThreshold;
|
|
property Status: TArchiveStatus read Get_Status;
|
|
property StoreOptions: TStoreOptions read Get_StoreOptions write Set_StoreOptions;
|
|
property TempDirectory: WideString read Get_TempDirectory write Set_TempDirectory;
|
|
property ZipFileComment: WideString read Get_ZipFileComment write Set_ZipFileComment;
|
|
property _NewEnum: IUnknown read Get__NewEnum;
|
|
property CompressionType: TArchiveType read Get_CompressionType write Set_CompressionType;
|
|
property TarAutoHandle: WordBool read Get_TarAutoHandle write Set_TarAutoHandle;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IZipKitDisp
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {B7480A7F-4E27-4B45-9FE6-224B60295A0C}
|
|
// *********************************************************************//
|
|
IZipKitDisp = dispinterface
|
|
['{B7480A7F-4E27-4B45-9FE6-224B60295A0C}']
|
|
procedure Add(const FileMask: WideString; const ExclusionMask: WideString; SearchAttr: Integer); dispid 1;
|
|
procedure AddFromStream(const FileName: WideString; Stream: OleVariant); dispid 7;
|
|
property AutoSave: WordBool dispid 3;
|
|
property BaseDirectory: WideString dispid 4;
|
|
procedure ClearTags; dispid 5;
|
|
property CompressionMethodToUse: TZipSupportMethod dispid 6;
|
|
property Count: Integer readonly dispid 2;
|
|
property DeflateOption: TZipDeflateOption dispid 8;
|
|
procedure Delete(const FileMask: WideString; const ExclusionMask: WideString); dispid 9;
|
|
procedure DeleteAt(Index: Integer); dispid 10;
|
|
procedure DeleteTaggedItems; dispid 11;
|
|
property DOSMode: WordBool dispid 12;
|
|
procedure Extract(const FileMask: WideString; const ExclusionMask: WideString); dispid 13;
|
|
procedure ExtractAt(Index: Integer; const NewName: WideString); dispid 14;
|
|
property ExtractOptions: TZipExtractOptions dispid 15;
|
|
procedure ExtractTaggedItems; dispid 16;
|
|
property FileName: WideString dispid 17;
|
|
function Find(const FileName: WideString): Integer; dispid 18;
|
|
procedure Freshen(const FileMask: WideString; const ExclusionMask: WideString); dispid 19;
|
|
procedure FreshenTaggedItems; dispid 20;
|
|
property Item[Index: Integer]: IDispatch readonly dispid 0;
|
|
property LogFile: WideString dispid 23;
|
|
property Logging: WordBool dispid 24;
|
|
property Password: WideString dispid 25;
|
|
property PasswordRetries: Byte dispid 26;
|
|
procedure Replace(const FileMask: WideString); dispid 27;
|
|
procedure Save; dispid 28;
|
|
property Spanned: WordBool readonly dispid 29;
|
|
property SpanningThreshold: Integer dispid 30;
|
|
property Status: TArchiveStatus readonly dispid 31;
|
|
property StoreOptions: TStoreOptions dispid 32;
|
|
procedure TagItems(const FileMask: WideString); dispid 33;
|
|
property TempDirectory: WideString dispid 34;
|
|
procedure TestTaggedItems; dispid 35;
|
|
procedure UntagItems(const FileMask: WideString); dispid 36;
|
|
property ZipFileComment: WideString dispid 37;
|
|
function License(const Key: WideString): WordBool; dispid 38;
|
|
property _NewEnum: IUnknown readonly dispid $FFFFFFFC;
|
|
function ExtractToStream(const FileName: WideString): OleVariant; dispid 21;
|
|
property CompressionType: TArchiveType dispid 40;
|
|
property TarAutoHandle: WordBool dispid 41;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IZipKitEvents
|
|
// Flags: (4096) Dispatchable
|
|
// GUID: {F094D5F4-3A52-45AE-9D86-4409611DD29E}
|
|
// *********************************************************************//
|
|
IZipKitEvents = dispinterface
|
|
['{F094D5F4-3A52-45AE-9D86-4409611DD29E}']
|
|
procedure OnArchiveItemProgress(const Item: IDispatch; Progress: Byte; var Abort: WordBool); dispid 1;
|
|
procedure OnArchiveProgress(Progress: Byte; var Abort: WordBool); dispid 2;
|
|
procedure OnChange; dispid 3;
|
|
procedure OnConfirmOverwrite(var Name: WideString; var Confirm: WordBool); dispid 4;
|
|
procedure OnConfirmProcessItem(const Item: IDispatch; ProcessType: TProcessType;
|
|
var Confirm: WordBool); dispid 5;
|
|
procedure OnConfirmSave(var Confirm: WordBool); dispid 6;
|
|
procedure OnLoad; dispid 7;
|
|
procedure OnNeedPassword(var NewPassword: WideString); dispid 8;
|
|
procedure OnProcessItemFailure(const Item: IDispatch; ProcessType: TProcessType;
|
|
ErrorClass: TErrorClass; ErrorCode: TErrorCode;
|
|
const ErrorString: WideString); dispid 9;
|
|
procedure OnRequestBlankDisk(var Abort: WordBool); dispid 10;
|
|
procedure OnRequestImage(ImageNumber: Integer; var ImageName: WideString; var Abort: WordBool); dispid 11;
|
|
procedure OnRequestLastDisk(var Abort: WordBool); dispid 12;
|
|
procedure OnRequestNthDisk(DiskNumber: Integer; var Abort: WordBool); dispid 13;
|
|
procedure OnSave; dispid 14;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// The Class CoZipItem provides a Create and CreateRemote method to
|
|
// create instances of the default interface IZipItem exposed by
|
|
// the CoClass ZipItem. The functions are intended to be used by
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
// server of this typelibrary.
|
|
// *********************************************************************//
|
|
CoZipItem = class
|
|
class function Create: IZipItem;
|
|
class function CreateRemote(const MachineName: string): IZipItem;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// The Class CoGZipItem provides a Create and CreateRemote method to
|
|
// create instances of the default interface IGZipItem exposed by
|
|
// the CoClass GZipItem. The functions are intended to be used by
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
// server of this typelibrary.
|
|
// *********************************************************************//
|
|
CoGZipItem = class
|
|
class function Create: IGZipItem;
|
|
class function CreateRemote(const MachineName: string): IGZipItem;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// The Class CoTarItem provides a Create and CreateRemote method to
|
|
// create instances of the default interface ITarItem exposed by
|
|
// the CoClass TarItem. The functions are intended to be used by
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
// server of this typelibrary.
|
|
// *********************************************************************//
|
|
CoTarItem = class
|
|
class function Create: ITarItem;
|
|
class function CreateRemote(const MachineName: string): ITarItem;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// The Class CoZipKit provides a Create and CreateRemote method to
|
|
// create instances of the default interface IZipKit exposed by
|
|
// the CoClass ZipKit. The functions are intended to be used by
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
// server of this typelibrary.
|
|
// *********************************************************************//
|
|
CoZipKit = class
|
|
class function Create: IZipKit;
|
|
class function CreateRemote(const MachineName: string): IZipKit;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses ComObj;
|
|
|
|
class function CoZipItem.Create: IZipItem;
|
|
begin
|
|
Result := CreateComObject(CLASS_ZipItem) as IZipItem;
|
|
end;
|
|
|
|
class function CoZipItem.CreateRemote(const MachineName: string): IZipItem;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName, CLASS_ZipItem) as IZipItem;
|
|
end;
|
|
|
|
class function CoGZipItem.Create: IGZipItem;
|
|
begin
|
|
Result := CreateComObject(CLASS_GZipItem) as IGZipItem;
|
|
end;
|
|
|
|
class function CoGZipItem.CreateRemote(const MachineName: string): IGZipItem;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName, CLASS_GZipItem) as IGZipItem;
|
|
end;
|
|
|
|
class function CoTarItem.Create: ITarItem;
|
|
begin
|
|
Result := CreateComObject(CLASS_TarItem) as ITarItem;
|
|
end;
|
|
|
|
class function CoTarItem.CreateRemote(const MachineName: string): ITarItem;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName, CLASS_TarItem) as ITarItem;
|
|
end;
|
|
|
|
class function CoZipKit.Create: IZipKit;
|
|
begin
|
|
Result := CreateComObject(CLASS_ZipKit) as IZipKit;
|
|
end;
|
|
|
|
class function CoZipKit.CreateRemote(const MachineName: string): IZipKit;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName, CLASS_ZipKit) as IZipKit;
|
|
end;
|
|
|
|
end.
|