unit1.~dfm

把网卡设置成混杂模式

object Form1: TForm1
  Left = 97
  Top = 116
  Width = 740
  Height = 567
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 16
  object BitBtn1: TBitBtn
    Left = 640
    Top = 40
    Width = 75
    Height = 25
    Caption = '开始'
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 640
    Top = 80
    Width = 75
    Height = 25
    Caption = '暂停'
    TabOrder = 1
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 640
    Top = 120
    Width = 75
    Height = 25
    Caption = '终止'
    TabOrder = 2
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 640
    Top = 160
    Width = 75
    Height = 25
    Caption = '清空数据'
    TabOrder = 3
    OnClick = BitBtn4Click
  end
  object BitBtn5: TBitBtn
    Left = 640
    Top = 200
    Width = 75
    Height = 25
    Caption = '退出'
    TabOrder = 4
    OnClick = BitBtn5Click
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 553
    Height = 533
    ActivePage = TabSheet1
    Align = alLeft
    TabOrder = 5
    object TabSheet1: TTabSheet
      Caption = '查看数据'
      object StringGrid1: TStringGrid
        Left = 0
        Top = 0
        Width = 545
        Height = 201
        Align = alTop
        ColCount = 7
        DefaultRowHeight = 18
        FixedCols = 0
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = StringGrid1Click
        ColWidths = (
          67
          70
          64
          64
          64
          64
          117)
      end
      object Panel1: TPanel
        Left = 0
        Top = 201
        Width = 545
        Height = 301
        Align = alClient
        Caption = 'Panel1'
        TabOrder = 1
        object Memo1: TMemo
          Left = 186
          Top = 1
          Width = 358
          Height = 299
          Align = alClient
          TabOrder = 0
        end
        object Memo2: TMemo
          Left = 1
          Top = 1
          Width = 185
          Height = 299
          Align = alLeft
          TabOrder = 1
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '监听设置'
      ImageIndex = 1
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 97
        Height = 13
        AutoSize = False
        Caption = '缓冲记录数'
      end
      object Label2: TLabel
        Left = 24
        Top = 64
        Width = 73
        Height = 13
        AutoSize = False
        Caption = '筛选目标'
      end
      object Label3: TLabel
        Left = 136
        Top = 64
        Width = 73
        Height = 13
        AutoSize = False
        Caption = '筛选动作'
      end
      object Label4: TLabel
        Left = 232
        Top = 64
        Width = 41
        Height = 13
        AutoSize = False
        Caption = '内容'
      end
      object BitBtn6: TBitBtn
        Left = 366
        Top = 78
        Width = 75
        Height = 25
        Caption = '应用'
        TabOrder = 0
        OnClick = BitBtn6Click
      end
      object ComboBox1: TComboBox
        Left = 24
        Top = 80
        Width = 105
        Height = 24
        ItemHeight = 16
        TabOrder = 1
        Items.Strings = (
          '协议'
          '源地址'
          '源端口'
          '目的地址'
          '目的端口'
          '内容')
      end
      object ComboBox2: TComboBox
        Left = 136
        Top = 80
        Width = 89
        Height = 24
        ItemHeight = 16
        TabOrder = 2
        Items.Strings = (
          '排除'
          '包含')
      end
      object Edit1: TEdit
        Left = 232
        Top = 80
        Width = 121
        Height = 24
        TabOrder = 3
      end
      object Edit2: TEdit
        Left = 96
        Top = 16
        Width = 121
        Height = 24
        TabOrder = 4
        Text = '400'
      end
    end
  end
end