| Class TAView (unit Aview) |
TComponent
| Constructors |
Constructor Create(AOwner : Tcomponent);| Functions |
Destructor Destroy;
Procedure ExamineFile;
Procedure AddFileInfo(FName : String; FileInfo : Pointer);
Function DetermineArcType : TArchiveType;
Procedure DoARC_PAK;
Procedure DoARJ;
Procedure DoHYP;
Procedure DoLzh;
Procedure DoRAR;
Procedure DoSqz;
Procedure DoZip;
Procedure DoZOO;
Procedure FreeObjects;
Procedure SetScanType(Value : Boolean);| Properties |
property FileName : String
property ReadArcType : TArchiveType
property ScanArcType : Boolean
property ArchiveType : TArchiveType
property Items : TStringList
property StoreInStrings : TStrings| Events |
| Variables |
FArcType : TArchiveType;
FFileName : String;
FItems : TStringList;
FObjAdded : Boolean;
FReadArcType : TArchiveType;
FScanType : Boolean;
FStoreInStrings : TStrings;| Constructors |
Constructor Create(AOwner : Tcomponent);---- TAView ----
| Functions |
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);| Properties |
property FileName : String
property ReadArcType : TArchiveType
property ScanArcType : Boolean
property ArchiveType : TArchiveType
property Items : TStringList
property StoreInStrings : TStrings| Events |
| Variables |
FArcType : TArchiveType;
FFileName : String;
FItems : TStringList;
FObjAdded : Boolean;
FReadArcType : TArchiveType;
FScanType : Boolean;
FStoreInStrings : TStrings;