main.dfm

一个SNOOP控件,各位看看可以对网络包进行分析.

object MainForm: TMainForm
  Left = 461
  Top = 129
  Width = 451
  Height = 443
  Caption = 'TCPFlag'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 48
    Width = 22
    Height = 13
    Caption = 'Filter'
  end
  object sbtFilter: TSpeedButton
    Left = 412
    Top = 48
    Width = 23
    Height = 22
    Caption = '...'
    OnClick = sbtFilterClick
  end
  object cbxAdapter: TComboBox
    Left = 8
    Top = 8
    Width = 185
    Height = 21
    Style = csDropDownList
    ImeName = '茄惫绢(茄臂) (MS-IME98)'
    ItemHeight = 13
    TabOrder = 0
  end
  object btnOpen: TButton
    Left = 200
    Top = 8
    Width = 75
    Height = 25
    Caption = '&Open'
    TabOrder = 1
    OnClick = btnOpenClick
  end
  object btnClose: TButton
    Left = 280
    Top = 8
    Width = 75
    Height = 25
    Caption = '&Close'
    TabOrder = 2
    OnClick = btnCloseClick
  end
  object ListView1: TListView
    Left = 8
    Top = 80
    Width = 425
    Height = 329
    Columns = <
      item
        Caption = 'Source IP'
        Width = 100
      end
      item
        Caption = 'Destination IP'
        Width = 100
      end
      item
        Caption = 'Source Port'
        Width = 100
      end
      item
        Caption = 'Destination Port'
        Width = 100
      end>
    RowSelect = True
    TabOrder = 4
    ViewStyle = vsReport
  end
  object btnClear: TButton
    Left = 360
    Top = 8
    Width = 75
    Height = 25
    Caption = 'C&lear'
    TabOrder = 3
    OnClick = btnClearClick
  end
  object edFilter: TEdit
    Left = 40
    Top = 48
    Width = 361
    Height = 21
    ImeName = '茄惫绢(茄臂) (MS-IME98)'
    TabOrder = 5
    Text = 'edFilter'
  end
  object SnoopTCP1: TSnoopTCP
    AdapterIndex = -1
    ThreadSafe = True
    Filter = 'tcp'
    SnapLen = 1600
    Flags = 1
    ReadTimeOut = 100
    OnCaptureTCP = SnoopTCP1CaptureTCP
    Left = 16
    Top = 104
  end
end