basearchiveclass4.pas

Advanced.Export.Component.v4.01.rar,delphi 第三方控件

unit BaseArchiveClass4;

interface

uses
  ZipMcpt4, Classes, SysUtils;

type
  TBaseArchiveClass = class
  private
    FFileName: string;
    FTempPath: string;
    FZipArchive: TMiniZip;
    procedure SetFileName(const Value: string);
  public
    constructor Create; virtual; 
    destructor Destroy; override;

    procedure Compress;
    procedure DeleteTempFolder;

    property FileName: string read FFileName write SetFileName;
    property TempPath: string read FTempPath write FTempPath;
  end;

implementation

uses
  QExport4StrIDs, QExport4{$IFDEF VER130}, FileCtrl{$ENDIF};
  
{ TBaseArchiveClass }

constructor TBaseArchiveClass.Create;
begin
  TempPath := ExtractFileDir(ParamStr(0)) + '\temp';
end;

destructor TBaseArchiveClass.Destroy;
begin

  inherited;
end;

procedure TBaseArchiveClass.SetFileName(const Value: string);
begin
  if FFileName <> Value then
    FFileName := Value;
end;

procedure TBaseArchiveClass.DeleteTempFolder;

  function FullRemoveDir(Dir: string; DeleteAllFilesAndFolders,
    StopIfNotAllDeleted, RemoveRoot: boolean): Boolean;
  var
    i: Integer;
    SRec: TSearchRec;
    FN: string;
  begin
    {$IFDEF VCL6} 
      {$WARN SYMBOL_PLATFORM OFF}
    {$ENDIF}
    Result := False;
    if not DirectoryExists(Dir) then
      exit;
    Result := True;
    // 念徉怆