main.dfm

一个用于测试不同加密方式及压缩方式下文件压缩的速度和大小的工具。

object frmmain: Tfrmmain
  Left = 265
  Top = 298
  Width = 857
  Height = 418
  ActiveControl = Ed3
  Caption = 'frmmain'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 15
  object Label1: TLabel
    Left = 56
    Top = 94
    Width = 63
    Height = 15
    Caption = #26410#21387#32553#25991#20214':'
  end
  object Label2: TLabel
    Left = 68
    Top = 126
    Width = 51
    Height = 15
    Caption = #21387#32553#25991#20214':'
  end
  object Label5: TLabel
    Left = 8
    Top = 352
    Width = 3
    Height = 15
  end
  object Ed1: TFilenameEdit
    Left = 130
    Top = 88
    Width = 627
    Height = 21
    FileEditStyle = fsComboBox
    NumGlyphs = 1
    TabOrder = 0
    OnChange = Ed1Change
  end
  object Ed2: TFilenameEdit
    Left = 130
    Top = 122
    Width = 627
    Height = 21
    DialogKind = dkSave
    NumGlyphs = 1
    TabOrder = 1
  end
  object frmProgress: TProgressBar
    Left = 0
    Top = 375
    Width = 849
    Height = 16
    Align = alBottom
    Min = 0
    Max = 100
    TabOrder = 2
    Visible = False
  end
  object RadioGroup1: TRadioGroup
    Left = 252
    Top = 164
    Width = 153
    Height = 179
    Caption = #21152#23494#31867#22411
    ItemIndex = 0
    Items.Strings = (
      'Blowfish'
      'Rijndael_128'
      'Rijndael_256'
      'DES_Single'
      'DES_Triple'
      'Twofish_128'
      'Twofish_256'
      'Square')
    TabOrder = 3
    OnClick = RadioGroup1Click
  end
  object GroupBox1: TGroupBox
    Left = 426
    Top = 164
    Width = 395
    Height = 179
    Caption = #27979#35797#32467#26524
    TabOrder = 4
    object Memo1: TMemo
      Left = 2
      Top = 17
      Width = 391
      Height = 160
      Align = alClient
      ScrollBars = ssBoth
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 849
    Height = 65
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 5
    object BitBtn1: TBitBtn
      Left = 8
      Top = 4
      Width = 65
      Height = 55
      Caption = #21387#21046#25991#20214
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 108
      Top = 4
      Width = 65
      Height = 55
      Caption = #35299#21387#27979#35797
      TabOrder = 1
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 213
      Top = 4
      Width = 65
      Height = 55
      Caption = #20851#38381#36864#20986
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 14
    Top = 164
    Width = 217
    Height = 179
    Caption = #22522#26412#35774#32622
    TabOrder = 6
    object Label3: TLabel
      Left = 32
      Top = 30
      Width = 51
      Height = 15
      Caption = #21387#32553#27169#24335':'
    end
    object Label4: TLabel
      Left = 32
      Top = 80
      Width = 27
      Height = 15
      Caption = #23494#30721':'
    end
    object Ed4: TEdit
      Left = 46
      Top = 100
      Width = 121
      Height = 23
      TabOrder = 0
    end
    object Ed3: TRxSpinEdit
      Left = 46
      Top = 48
      Width = 122
      Height = 23
      MaxValue = 255
      Value = 1
      TabOrder = 1
    end
  end
  object WjhCps1: TWjhCps
    ExtractCorruptedFiles = False
    CompressionLevel = clFastest
    CompressionMode = 1
    SpanningMode = smNone
    SpanningOptions.AdvancedNaming = True
    SpanningOptions.VolumeSize = vsAutoDetect
    Options.Recurse = False
    Options.StorePath = spNoPath
    Options.CreateDirs = False
    Options.SetAttributes = False
    Options.FlushBuffers = True
    Options.OEMFileNames = True
    InMemory = False
    OnFileProgress = WjhCps1FileProgress
    OnOverallProgress = WjhCps1OverallProgress
    OnExtractFile = WjhCps1ExtractFile
    CompressionAlgorithm = caPPM
    CryptoAlgorithm = caBlowfish
    Left = 182
    Top = 126
  end
end