Мельница данных (05.12.2024) | |
Интерфейс IZIPArchive | |
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; | |