防火墙与安全工具

开发平台：
Delphi

mainform.dfm：源码内容
							object Form1: TForm1
  Left = 196
  Top = 104
  Width = 550
  Height = 450
  Caption = 'st800D'#24037#20855#36719#20214'V1.0'
  Color = clBtnFace
  Constraints.MaxHeight = 450
  Constraints.MaxWidth = 550
  Constraints.MinHeight = 450
  Constraints.MinWidth = 550
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 540
    Height = 401
    Caption = 'Panel1'
    TabOrder = 0
    object Shape1: TShape
      Left = 295
      Top = 16
      Width = 18
      Height = 17
      Brush.Color = clRed
      Shape = stCircle
    end
    object GroupBox1: TGroupBox
      Left = 2
      Top = 1
      Width = 138
      Height = 37
      Caption = #26426#22120#32534#21495
      TabOrder = 0
      object Edit1: TEdit
        Left = 7
        Top = 11
        Width = 122
        Height = 21
        TabOrder = 0
      end
    end
    object GroupBox2: TGroupBox
      Left = 2
      Top = 38
      Width = 527
      Height = 196
      Caption = #21442#25968#26657#27491' '#65293#26723#26696#21442#25968#65293#35774#23450#20540#65293#26631#20934#20540#65293#21333#20301#65293#65293#21442#32771#20540'  '
      TabOrder = 1
      object Label1: TLabel
        Left = 5
        Top = 68
        Width = 38
        Height = 13
        Caption = '1310nm'
      end
      object Label2: TLabel
        Left = 5
        Top = 95
        Width = 41
        Height = 13
        Caption = '1550nm '
      end
      object Label3: TLabel
        Left = 5
        Top = 121
        Width = 38
        Height = 13
        Caption = '850nm  '
      end
      object Label4: TLabel
        Left = 5
        Top = 147
        Width = 38
        Height = 13
        Caption = '980nm  '
      end
      object Label5: TLabel
        Left = 5
        Top = 21
        Width = 52
        Height = 13
        Caption = #36890#36947'0      '
      end
      object Label6: TLabel
        Left = 5
        Top = 47
        Width = 52
        Height = 13
        Caption = #36890#36947'5      '
      end
      object Label17: TLabel
        Left = 336
        Top = 16
        Width = 21
        Height = 13
        Caption = 'dBm'
      end
      object Label18: TLabel
        Left = 336
        Top = 40
        Width = 21
        Height = 13
        Caption = 'dBm'
      end
      object Label19: TLabel
        Left = 336
        Top = 64
        Width = 21
        Height = 13
        Caption = 'dBm'
      end
      object Label20: TLabel
        Left = 336
        Top = 96
        Width = 21
        Height = 13
        Caption = 'dBm'
      end
      object Label21: TLabel
        Left = 336
        Top = 120
        Width = 21
        Height = 13
        Caption = 'dBm'
      end
      object Label22: TLabel
        Left = 336
        Top = 144
        Width = 21
        Height = 13
        Caption = 'dBm'
      end
      object Edit2: TEdit
        Left = 116
        Top = 13
        Width = 46
        Height = 21
        TabOrder = 0
      end
      object Edit3: TEdit
        Left = 166
        Top = 13
        Width = 51
        Height = 21
        TabOrder = 1
      end
      object Edit4: TEdit
        Left = 273
        Top = 13
        Width = 56
        Height = 21
        TabOrder = 2
      end
      object Edit5: TEdit
        Left = 116
        Top = 39
        Width = 46
        Height = 21
        TabOrder = 3
      end
      object Edit6: TEdit
        Left = 166
        Top = 39
        Width = 51
        Height = 21
        TabOrder = 4
      end
      object Edit7: TEdit
        Left = 273
        Top = 39
        Width = 56
        Height = 21
        TabOrder = 5
      end
      object Edit8: TEdit
        Left = 116
        Top = 65
        Width = 46
        Height = 21
        TabOrder = 6
      end
      object Edit9: TEdit
        Left = 166
        Top = 65
        Width = 51
        Height = 21
        TabOrder = 7
      end
      object Edit10: TEdit
        Left = 273
        Top = 65
        Width = 56
        Height = 21
        TabOrder = 8
      end
      object Edit11: TEdit
        Left = 116
        Top = 91
        Width = 46
        Height = 21
        TabOrder = 9
      end
      object Edit12: TEdit
        Left = 166
        Top = 91
        Width = 51
        Height = 21
        TabOrder = 10
      end
      object Edit13: TEdit
        Left = 273
        Top = 91
        Width = 56
        Height = 21
        TabOrder = 11
      end
      object Edit14: TEdit
        Left = 116
        Top = 117
        Width = 46
        Height = 21
        TabOrder = 12
      end
      object Edit15: TEdit
        Left = 166
        Top = 117
        Width = 52
        Height = 21
        TabOrder = 13
      end
      object Edit16: TEdit
        Left = 273
        Top = 117
        Width = 56
        Height = 21
        TabOrder = 14
      end
      object Edit17: TEdit
        Left = 116
        Top = 143
        Width = 46
        Height = 21
        TabOrder = 15
      end
      object Edit18: TEdit
        Left = 166
        Top = 143
        Width = 53
        Height = 21
        TabOrder = 16
      end
      object Edit19: TEdit
        Left = 273
        Top = 143
        Width = 56
        Height = 21
        TabOrder = 17
      end
      object Button1: TButton
        Left = 373
        Top = 13
        Width = 39
        Height = 20
        Caption = #22238'  '#35835
        TabOrder = 18
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 425
        Top = 13
        Width = 39
        Height = 20
        Caption = #35774'  '#23450
        TabOrder = 19
        OnClick = Button2Click
      end
      object Button4: TButton
        Left = 373
        Top = 40
        Width = 39
        Height = 16
        Caption = #22238' '#35835
        TabOrder = 20
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 425
        Top = 39
        Width = 39
        Height = 20
        Caption = #35774' '#23450
        TabOrder = 21
        OnClick = Button5Click
      end
      object Button6: TButton
        Left = 477
        Top = 39
        Width = 39
        Height = 20
        Caption = #35745' '#31639
        TabOrder = 22
        OnClick = Button6Click
      end
      object Button7: TButton
        Left = 373
        Top = 65
        Width = 41
        Height = 20
        Caption = #22238' '#35835
        TabOrder = 23
        OnClick = Button7Click
      end
      object Button8: TButton
        Left = 425
        Top = 65
        Width = 39
        Height = 20
        Caption = #35774' '#23450
        TabOrder = 24
        OnClick = Button8Click
      end
      object Button9: TButton
        Left = 477
        Top = 65
        Width = 39
        Height = 20
        Caption = #35745' '#31639
        TabOrder = 25
        OnClick = Button9Click
      end
      object Button10: TButton
        Left = 373
        Top = 91
        Width = 39
        Height = 20
        Caption = #22238' '#35835
        TabOrder = 26
        OnClick = Button10Click
      end
      object Button11: TButton
        Left = 425
        Top = 91
        Width = 39
        Height = 20
        Caption = #35774' '#23450
        TabOrder = 27
        OnClick = Button11Click
      end
      object Button12: TButton
        Left = 477
        Top = 91
        Width = 41
        Height = 20
        Caption = #35745' '#31639
        TabOrder = 28
        OnClick = Button12Click
      end
      object Button13: TButton
        Left = 373
        Top = 117
        Width = 39
        Height = 20
        Caption = #22238' '#35835
        TabOrder = 29
        OnClick = Button13Click
      end
      object Button14: TButton
        Left = 425
        Top = 117
        Width = 39
        Height = 20
        Caption = #35774' '#23450
        TabOrder = 30
        OnClick = Button14Click
      end
      object Button15: TButton
        Left = 477
        Top = 120
        Width = 39
        Height = 18
        Caption = #35745' '#31639
        TabOrder = 31
        OnClick = Button15Click
      end
      object Button16: TButton
        Left = 373
        Top = 143
        Width = 39
        Height = 20
        Caption = #22238' '#35835
        TabOrder = 32
        OnClick = Button16Click
      end
      object Button17: TButton
        Left = 425
        Top = 143
        Width = 39
        Height = 20
        Caption = #35774' '#23450
        TabOrder = 33
        OnClick = Button17Click
      end
      object Button18: TButton
        Left = 477
        Top = 144
        Width = 39
        Height = 19
        Caption = #35745' '#31639
        TabOrder = 34
        OnClick = Button18Click
      end
      object Edit20: TEdit
        Left = 65
        Top = 13
        Width = 46
        Height = 21
        TabOrder = 35
      end
      object Edit21: TEdit
        Left = 65
        Top = 39
        Width = 46
        Height = 21
        TabOrder = 36
      end
      object Edit22: TEdit
        Left = 65
        Top = 65
        Width = 46
        Height = 21
        TabOrder = 37
      end
      object Edit23: TEdit
        Left = 65
        Top = 91
        Width = 46
        Height = 21
        TabOrder = 38
      end
      object Edit24: TEdit
        Left = 65
        Top = 117
        Width = 46
        Height = 21
        TabOrder = 39
      end
      object Edit25: TEdit
        Left = 65
        Top = 143
        Width = 46
        Height = 21
        TabOrder = 40
      end
      object Button19: TButton
        Left = 202
        Top = 169
        Width = 60
        Height = 20
        Caption = #35774' '#23450' '#21442' '#25968
        TabOrder = 41
        OnClick = Button19Click
      end
      object Button20: TButton
        Left = 287
        Top = 169
        Width = 61
        Height = 20
        Caption = #22238' '#35835' '#21442' '#25968
        TabOrder = 42
        OnClick = Button20Click
      end
      object Button21: TButton
        Left = 116
        Top = 169
        Width = 60
        Height = 20
        Caption = #20445' '#23384' '#21442' '#25968
        TabOrder = 43
        OnClick = Button21Click
      end
      object Button27: TButton
        Left = 24
        Top = 169
        Width = 65
        Height = 19
        Caption = #25171#24320' '#26723#26696
        TabOrder = 44
        OnClick = Button27Click
      end
      object CheckBox1: TCheckBox
        Left = 48
        Top = 16
        Width = 17
        Height = 17
        AllowGrayed = True
        Enabled = False
        TabOrder = 45
      end
      object CheckBox2: TCheckBox
        Left = 48
        Top = 40
        Width = 17
        Height = 17
        Enabled = False
        TabOrder = 46
      end
      object CheckBox3: TCheckBox
        Left = 48
        Top = 66
        Width = 17
        Height = 17
        Enabled = False
        TabOrder = 47
      end
      object CheckBox4: TCheckBox
        Left = 48
        Top = 92
        Width = 17
        Height = 17
        Enabled = False
        TabOrder = 48
      end
      object CheckBox5: TCheckBox
        Left = 48
        Top = 118
        Width = 17
        Height = 17
        Enabled = False
        TabOrder = 49
      end
      object CheckBox6: TCheckBox
        Left = 48
        Top = 144
        Width = 17
        Height = 17
        Enabled = False
        TabOrder = 50
      end
      object Button23: TButton
        Left = 440
        Top = 168
        Width = 75
        Height = 25
        Caption = 'test'
        TabOrder = 51
        OnClick = Button23Click
      end
    end
    object Button3: TButton
      Left = 478
      Top = 51
      Width = 40
      Height = 20
      Caption = #35745'   '#31639
      TabOrder = 2
      OnClick = Button3Click
    end
    object GroupBox3: TGroupBox
      Left = 327
      Top = 1
      Width = 178
      Height = 39
      Caption = #31471#21475#36873#25321
      TabOrder = 3
      object ComboBox1: TComboBox
        Left = 7
        Top = 13
        Width = 117
        Height = 21
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 0
        Text = 'com1'
        OnChange = ComboBox1Change
        Items.Strings = (
          'com1'
          'com2')
      end
      object Button22: TButton
        Left = 130
        Top = 13
        Width = 40
        Height = 20
        Caption = #36830'   '#25509
        TabOrder = 1
        OnClick = Button22Click
      end
    end
    object GroupBox4: TGroupBox
      Left = 314
      Top = 241
      Width = 137
      Height = 85
      Caption = #19978#20256#25968#25454
      TabOrder = 4
      Visible = False
      object Label7: TLabel
        Left = 7
        Top = 13
        Width = 126
        Height = 13
        Caption = #23384#20648#25968#25454#32452#25968'              '
      end
      object Edit26: TEdit
        Left = 7
        Top = 33
        Width = 117
        Height = 21
        TabOrder = 0
        Visible = False
      end
      object Button24: TButton
        Left = 59
        Top = 59
        Width = 60
        Height = 20
        Caption = #21457#36865#25351#20196
        TabOrder = 1
        Visible = False
        OnClick = Button24Click
      end
    end
    object GroupBox5: TGroupBox
      Left = 1
      Top = 241
      Width = 528
      Height = 104
      Caption = #19978#20256#35774#23450#20540
      TabOrder = 5
      object Label8: TLabel
        Left = 200
        Top = 40
        Width = 52
        Height = 13
        Caption = #27874'     '#38271'   '
      end
      object Label9: TLabel
        Left = 336
        Top = 40
        Width = 14
        Height = 13
        Caption = 'nm'
      end
      object Label10: TLabel
        Left = 192
        Top = 72
        Width = 54
        Height = 13
        Caption = #27979#37327#20540'    '
      end
      object Label12: TLabel
        Left = 184
        Top = 11
        Width = 14
        Height = 13
        Caption = #31532
      end
      object Label13: TLabel
        Left = 240
        Top = 10
        Width = 14
        Height = 13
        Caption = #32452
      end
      object Label14: TLabel
        Left = 272
        Top = 11
        Width = 14
        Height = 13
        Caption = #20849
      end
      object Label15: TLabel
        Left = 336
        Top = 11
        Width = 14
        Height = 13
        Caption = #32452
      end
      object Label16: TLabel
        Left = 16
        Top = 48
        Width = 82
        Height = 13
        Caption = #19978#20256#25968#32452#21495'    '
      end
      object Label11: TLabel
        Left = 336
        Top = 72
        Width = 21
        Height = 13
        Caption = 'dBm'
      end
      object ComboBox2: TComboBox
        Left = 7
        Top = 13
        Width = 130
        Height = 21
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 0
        Text = '-'#65293'--'#36873#25321#19978#20256#31867#22411#65293#65293
        OnChange = ComboBox2Change
        Items.Strings = (
          '-'#65293'--'#36873#25321#19978#20256#31867#22411#65293#65293
          ' '#19978#20256#24403#21069#27979#37327#20540
          #19978#20256#23384#20648#25968#25454#32452#25968
          #19978#20256#20219#24847#19968#32452#23384#20648#25968#25454
          '')
      end
      object Edit27: TEdit
        Left = 256
        Top = 36
        Width = 70
        Height = 21
        TabOrder = 1
      end
      object Edit28: TEdit
        Left = 256
        Top = 68
        Width = 70
        Height = 21
        TabOrder = 2
      end
      object Button25: TButton
        Left = 28
        Top = 71
        Width = 60
        Height = 20
        Caption = #19978' '#20256' '#25968' '#25454
        TabOrder = 3
        OnClick = Button25Click
      end
      object Button28: TButton
        Left = 432
        Top = 48
        Width = 75
        Height = 25
        Caption = #20445#23384#19978#20256#21442#25968
        TabOrder = 4
        Visible = False
        OnClick = Button28Click
      end
      object Memo1: TMemo
        Left = -80
        Top = 104
        Width = 185
        Height = 57
        Lines.Strings = (
          '')
        TabOrder = 5
        Visible = False
      end
      object Edit29: TEdit
        Left = 208
        Top = 8
        Width = 25
        Height = 21
        TabOrder = 6
      end
      object Edit30: TEdit
        Left = 288
        Top = 8
        Width = 36
        Height = 21
        TabOrder = 7
      end
      object Edit31: TEdit
        Left = 96
        Top = 40
        Width = 41
        Height = 21
        TabOrder = 8
      end
    end
    object MSComm1: TMSComm
      Left = 149
      Top = 1
      Width = 32
      Height = 32
      ControlData = {
        21433412080000001A0300001A03000001568A64000006000000010000040000
        00020200600900000000080000000000000000003F00000011000000}
    end
    object Button26: TButton
      Left = 411
      Top = 354
      Width = 75
      Height = 25
      Caption = #36864#20986#31243#24207
      TabOrder = 7
      OnClick = Button26Click
    end
    object ComboBox3: TComboBox
      Left = 224
      Top = 48
      Width = 43
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 8
      Text = 'dBm'
      Items.Strings = (
        'dBm'
        'mw'
        'uw'
        'nw')
    end
    object ComboBox4: TComboBox
      Left = 224
      Top = 72
      Width = 43
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 9
      Text = 'dBm'
      Items.Strings = (
        'dBm'
        'mw'
        'uw'
        'nw')
    end
    object ComboBox5: TComboBox
      Left = 224
      Top = 104
      Width = 43
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 10
      Text = 'dBm'
      Items.Strings = (
        'dBm'
        'mw'
        'uw'
        'nw')
    end
    object ComboBox6: TComboBox
      Left = 224
      Top = 128
      Width = 43
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 11
      Text = 'dBm'
      Items.Strings = (
        'dBm'
        'mw'
        'uw'
        'nw')
    end
    object ComboBox7: TComboBox
      Left = 224
      Top = 152
      Width = 43
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 12
      Text = 'dBm'
      Items.Strings = (
        'dBm'
        'mw'
        'uw'
        'nw')
    end
    object ComboBox8: TComboBox
      Left = 224
      Top = 184
      Width = 42
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 13
      Text = 'dBm'
      Items.Strings = (
        'dBm'
        'mw'
        'uw'
        'nw')
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 401
    Width = 540
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer1Timer
    Left = 416
    Top = 40
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.txt'
    Filter = #25991#26412#25991#20214'(*.txt)|*.txt'
    InitialDir = 'c:'
    Top = 208
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.txt'
    Filter = #25991#26412#25991#20214'(*.txt)|*.txt'
    InitialDir = 'c:'
    Left = 345
    Top = 214
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer2Timer
    Left = 417
    Top = 70
  end
  object Timer3: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer3Timer
    Left = 417
    Top = 94
  end
  object Timer4: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer4Timer
    Left = 417
    Top = 118
  end
  object Timer5: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer5Timer
    Left = 417
    Top = 150
  end
  object Timer6: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer6Timer
    Left = 417
    Top = 182
  end
  object Timer7: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer7Timer
    Left = 361
    Top = 46
  end
  object Timer8: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer8Timer
    Left = 353
    Top = 70
  end
  object Timer9: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer9Timer
    Left = 361
    Top = 94
  end
  object Timer10: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer10Timer
    Left = 361
    Top = 126
  end
  object Timer11: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer11Timer
    Left = 361
    Top = 150
  end
  object Timer12: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer12Timer
    Left = 361
    Top = 182
  end
  object Timer13: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer13Timer
    Left = 416
    Top = 248
  end
  object Timer14: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer14Timer
    Left = 104
    Top = 304
  end
  object SaveDialog2: TSaveDialog
    Filter = #25991#26412#25991#20214'(*.txt)'
    Left = 24
    Top = 344
  end
  object Timer15: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer15Timer
    Left = 218
    Top = 206
  end
  object Timer16: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer16Timer
    Left = 290
    Top = 206
  end
end

						