01type
02  IZIPArchive = interface(IDispatch)
03    ['{11C9400F-F262-4F72-882F-5AA5A4531591}']
04    procedure Load(Src: OleVariant); safecall;
05    procedure Save(Src: OleVariant); safecall;
06    function Get_FileCount: Integer; safecall;
07    function Get_FileName(Index: Integer): WideString; safecall;
08    function Get_FileData(Index: Integer): OleVariant; safecall;
09    procedure AddFile(const FileName: WideString; Data: OleVariant); safecall;
10    function Get_FileSize(Index: Integer): Int64; safecall;
11    function Get_FileDateTime(Index: Integer): TDateTime; safecall;
12    function Get_FileCRC(Index: Integer): WideString; safecall;
13    function Get_UTF8Support: WordBool; safecall;
14    procedure Set_UTF8Support(Value: WordBool); safecall;
15    property FileCount: Integer read Get_FileCount;
16    property FileName[Index: Integer]: WideString read Get_FileName;
17    property FileData[Index: Integer]: OleVariant read Get_FileData;
18    property FileSize[Index: Integer]: Int64 read Get_FileSize;
19    property FileDateTime[Index: Integer]: TDateTime read Get_FileDateTime;
20    property FileCRC[Index: Integer]: WideString read Get_FileCRC;
21    property UTF8Support: WordBool read Get_UTF8Support write Set_UTF8Support;
22  end;

Свойства интерфейса IZIPArchive:

Имя	Тип	Доступ	Назначение
FileCRC[Index: Integer]	WideString	Только для чтения
FileCount	Integer	Только для чтения
FileData[Index: Integer]	OleVariant	Только для чтения
FileDateTime[Index: Integer]	TDateTime	Только для чтения
FileName[Index: Integer]	WideString	Только для чтения
FileSize[Index: Integer]	Int64	Только для чтения
UTF8Support	WordBool	Чтение/Запись

Метод интерфейса IZIPArchive.

procedure IZIPArchive.AddFile(const FileName: WideString; Data: OleVariant);

Параметры:

Имя	Тип	Обязательно	Значение
FileName	WideString	Да
Data	OleVariant	Да

Метод интерфейса IZIPArchive.

procedure IZIPArchive.Load(Src: OleVariant);

Параметры:

Имя	Тип	Обязательно	Значение
Src	OleVariant	Да

Метод интерфейса IZIPArchive.

procedure IZIPArchive.Save(Src: OleVariant);

Параметры:

Имя	Тип	Обязательно	Значение
Src	OleVariant	Да