capturing.dfm

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

object CapturingForm: TCapturingForm
  Left = 264
  Top = 159
  BorderIcons = [biMinimize, biMaximize]
  BorderStyle = bsDialog
  Caption = 'Capturing...'
  ClientHeight = 249
  ClientWidth = 163
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 145
    Height = 201
  end
  object Label1: TLabel
    Left = 24
    Top = 16
    Width = 40
    Height = 13
    Caption = 'Ethernet'
  end
  object Label2: TLabel
    Left = 54
    Top = 40
    Width = 10
    Height = 13
    Caption = 'IP'
  end
  object Label3: TLabel
    Left = 42
    Top = 64
    Width = 22
    Height = 13
    Caption = 'ARP'
  end
  object Label4: TLabel
    Left = 38
    Top = 88
    Width = 26
    Height = 13
    Caption = 'ICMP'
  end
  object Label5: TLabel
    Left = 43
    Top = 112
    Width = 21
    Height = 13
    Caption = 'TCP'
  end
  object Label6: TLabel
    Left = 41
    Top = 136
    Width = 23
    Height = 13
    Caption = 'UDP'
  end
  object Label7: TLabel
    Left = 20
    Top = 160
    Width = 44
    Height = 13
    Caption = 'TCPData'
  end
  object Label8: TLabel
    Left = 18
    Top = 184
    Width = 46
    Height = 13
    Caption = 'UDPData'
  end
  object lblEthernet: TLabel
    Left = 80
    Top = 16
    Width = 50
    Height = 13
    Caption = 'lblEthernet'
  end
  object lblIP: TLabel
    Left = 80
    Top = 40
    Width = 20
    Height = 13
    Caption = 'lblIP'
  end
  object lblARP: TLabel
    Left = 80
    Top = 64
    Width = 32
    Height = 13
    Caption = 'lblARP'
  end
  object lblICMP: TLabel
    Left = 80
    Top = 88
    Width = 36
    Height = 13
    Caption = 'lblICMP'
  end
  object lblTCP: TLabel
    Left = 80
    Top = 112
    Width = 31
    Height = 13
    Caption = 'lblTCP'
  end
  object lblUDP: TLabel
    Left = 80
    Top = 136
    Width = 33
    Height = 13
    Caption = 'lblUDP'
  end
  object lblTCPData: TLabel
    Left = 80
    Top = 160
    Width = 54
    Height = 13
    Caption = 'lblTCPData'
  end
  object lblUDPData: TLabel
    Left = 80
    Top = 184
    Width = 56
    Height = 13
    Caption = 'lblUDPData'
  end
  object btnClose: TButton
    Left = 8
    Top = 216
    Width = 145
    Height = 25
    Caption = 'Close'
    Default = True
    TabOrder = 0
    OnClick = btnCloseClick
  end
  object tmrView: TTimer
    Enabled = False
    OnTimer = tmrViewTimer
    Left = 16
    Top = 32
  end
end