Class TAView (unit Aview)

Inherits from

TComponent

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 .

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);


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;