Class TAView (unit Aview) |
Inherits from
TComponent
Constructor Create(AOwner : Tcomponent);
- ---- TAView ----
Destructor Destroy;
Procedure ExamineFile;
HEAD_TYPE=0x72 marker block
HEAD_TYPE=0x73 archive header
HEAD_TYPE=0x74 file header
HEAD_TYPE=0x75 comment header
HEAD_TYPE=0x76 extra information
Procedure AddFileInfo(FName : String; FileInfo : Pointer);
Function DetermineArcType : TArchiveType;
Procedure DoARC_PAK;
Method in low order of byte
Procedure DoARJ;
default
Procedure DoHYP;
No more Files
Procedure DoLzh;
Extract the filenames from a .
Procedure DoRAR;
TmpStr := FixNullStr(Buf2Str(File_Head.
Procedure DoSqz;
No found then inc pos
Procedure DoZip;
Extract the filenames from a .
Procedure DoZOO;
Procedure FreeObjects;
Procedure SetScanType(Value : Boolean);
property FileName : String
property ReadArcType : TArchiveType
property ScanArcType : Boolean
property ArchiveType : TArchiveType
property Items : TStringList
property StoreInStrings : TStrings
FArcType : TArchiveType;
FFileName : String;
FItems : TStringList;
FObjAdded : Boolean;
FReadArcType : TArchiveType;
FScanType : Boolean;
FStoreInStrings : TStrings;
Constructor Create(AOwner : Tcomponent);
---- TAView ----
Destructor Destroy;
Procedure ExamineFile;
HEAD_TYPE=0x72 marker block
HEAD_TYPE=0x73 archive header
HEAD_TYPE=0x74 file header
HEAD_TYPE=0x75 comment header
HEAD_TYPE=0x76 extra information
Procedure AddFileInfo(FName : String; FileInfo : Pointer);
Function DetermineArcType : TArchiveType;
Procedure DoARC_PAK;
Method in low order of byte
Procedure DoARJ;
default
Procedure DoHYP;
No more Files
Procedure DoLzh;
Extract the filenames from a .LZH archive
Procedure DoRAR;
TmpStr := FixNullStr(Buf2Str(File_Head.FileName[2],13));
Procedure DoSqz;
No found then inc pos
Procedure DoZip;
Extract the filenames from a .ZIP archive
Procedure DoZOO;
Procedure FreeObjects;
Procedure SetScanType(Value : Boolean);
property FileName : String
property ReadArcType : TArchiveType
property ScanArcType : Boolean
property ArchiveType : TArchiveType
property Items : TStringList
property StoreInStrings : TStrings
FArcType : TArchiveType;
FFileName : String;
FItems : TStringList;
FObjAdded : Boolean;
FReadArcType : TArchiveType;
FScanType : Boolean;
FStoreInStrings : TStrings;