cap_main.~dfm

查询局域网IP STATUS_FAILED =$FFFF //定义异常出错代码 MAX_PACK_LEN =65535 //接收的最大IP报文

object Form1: TForm1
  Left = 198
  Top = 114
  Width = 693
  Height = 480
  Caption = '你们试过了就给分!!!!!'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object BitBtn1: TBitBtn
    Left = 615
    Top = 27
    Width = 65
    Height = 25
    Anchors = [akTop, akRight]
    Caption = '开始捕捉'
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 616
    Top = 70
    Width = 65
    Height = 25
    Anchors = [akTop, akRight]
    Caption = '暂停捕捉'
    TabOrder = 1
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 616
    Top = 110
    Width = 65
    Height = 25
    Anchors = [akTop, akRight]
    Caption = '结束捕捉'
    TabOrder = 2
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 615
    Top = 412
    Width = 65
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '退    出'
    TabOrder = 3
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 609
    Height = 453
    ActivePage = TabSheet1
    Align = alLeft
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 4
    object TabSheet1: TTabSheet
      Caption = '数据查看'
      object Splitter1: TSplitter
        Left = 0
        Top = 246
        Width = 601
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object StringGrid1: TStringGrid
        Left = 0
        Top = 0
        Width = 601
        Height = 246
        Align = alTop
        BiDiMode = bdLeftToRight
        ColCount = 7
        DefaultRowHeight = 17
        FixedCols = 0
        RowCount = 2
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowMoving, goColMoving, goEditing, goRowSelect]
        ParentBiDiMode = False
        TabOrder = 0
        OnClick = StringGrid1Click
        ColWidths = (
          57
          101
          45
          97
          54
          49
          158)
      end
      object Panel1: TPanel
        Left = 0
        Top = 249
        Width = 601
        Height = 176
        Align = alClient
        Caption = 'Panel1'
        TabOrder = 1
        object Splitter2: TSplitter
          Left = 371
          Top = 1
          Width = 3
          Height = 174
          Cursor = crHSplit
        end
        object Memo1: TMemo
          Left = 1
          Top = 1
          Width = 370
          Height = 174
          Align = alLeft
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          ScrollBars = ssBoth
          TabOrder = 0
          WordWrap = False
        end
        object Memo2: TMemo
          Left = 374
          Top = 1
          Width = 226
          Height = 174
          Align = alClient
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          ScrollBars = ssVertical
          TabOrder = 1
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '基本设置'
      ImageIndex = 1
      object Label1: TLabel
        Left = 12
        Top = 17
        Width = 84
        Height = 13
        AutoSize = False
        Caption = '缓冲记录数:'
      end
      object Label2: TLabel
        Left = 19
        Top = 66
        Width = 72
        Height = 13
        AutoSize = False
        Caption = '筛选目标:'
      end
      object Label7: TLabel
        Left = 145
        Top = 66
        Width = 72
        Height = 13
        AutoSize = False
        Caption = '筛选动作:'
      end
      object Label8: TLabel
        Left = 259
        Top = 63
        Width = 34
        Height = 13
        AutoSize = False
        Caption = '内容:'
      end
      object Edit2: TEdit
        Left = 95
        Top = 15
        Width = 92
        Height = 21
        TabOrder = 0
        Text = '200'
      end
      object Edit1: TEdit
        Left = 259
        Top = 81
        Width = 160
        Height = 20
        TabOrder = 1
      end
      object ComboBox1: TComboBox
        Left = 16
        Top = 81
        Width = 121
        Height = 21
        Style = csDropDownList
        Ctl3D = False
        ItemHeight = 13
        ParentCtl3D = False
        TabOrder = 2
        Items.Strings = (
          '协议'
          '源地址'
          '目的地址'
          '源端口'
          '目的端口'
          '内容')
      end
      object ComboBox2: TComboBox
        Left = 144
        Top = 81
        Width = 97
        Height = 21
        Style = csDropDownList
        Ctl3D = False
        ItemHeight = 13
        ParentCtl3D = False
        TabOrder = 3
        Items.Strings = (
          '排除'
          '包含')
      end
      object BitBtn6: TBitBtn
        Left = 427
        Top = 79
        Width = 55
        Height = 25
        Caption = '应用'
        TabOrder = 4
        OnClick = BitBtn6Click
      end
    end
  end
  object BitBtn5: TBitBtn
    Left = 616
    Top = 149
    Width = 65
    Height = 25
    Anchors = [akTop, akRight]
    Caption = '清空数据'
    TabOrder = 5
    OnClick = BitBtn5Click
  end
  object cap_ip1: Tcap_ip
    OnCap = cap_ip1Cap
    Left = 210
    Top = 22
  end
end