main.dfm

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

object MainForm: TMainForm
  Left = 222
  Top = 146
  BorderStyle = bsDialog
  Caption = 'Dump'
  ClientHeight = 110
  ClientWidth = 323
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object sbtFileName: TSpeedButton
    Left = 296
    Top = 40
    Width = 23
    Height = 22
    Caption = '...'
    OnClick = sbtFileNameClick
  end
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 37
    Height = 13
    Caption = 'Adapter'
  end
  object Label2: TLabel
    Left = 8
    Top = 40
    Width = 44
    Height = 13
    Caption = 'FileName'
  end
  object lblCaptureCount: TLabel
    Left = 8
    Top = 80
    Width = 6
    Height = 13
    Caption = '0'
  end
  object cbxAdapter: TComboBox
    Left = 56
    Top = 8
    Width = 257
    Height = 21
    Style = csDropDownList
    ImeName = '茄惫绢(茄臂) (MS-IME98)'
    ItemHeight = 13
    TabOrder = 0
  end
  object btnOpen: TButton
    Left = 160
    Top = 72
    Width = 75
    Height = 25
    Caption = '&Open'
    TabOrder = 1
    OnClick = btnOpenClick
  end
  object btnClose: TButton
    Left = 240
    Top = 72
    Width = 75
    Height = 25
    Caption = '&Close'
    TabOrder = 2
    OnClick = btnCloseClick
  end
  object edFileName: TEdit
    Left = 56
    Top = 40
    Width = 233
    Height = 21
    ImeName = '茄惫绢(茄臂) (MS-IME98)'
    TabOrder = 3
  end
  object Snoop1: TSnoop
    AdapterIndex = -1
    ThreadSafe = False
    SnapLen = 1600
    Flags = 1
    ReadTimeOut = 100
    OnCapture = Snoop1Capture
    Left = 32
    Top = 72
  end
  object sdFileName: TSaveDialog
    DefaultExt = 'cap'
    Filter = 'Capture File (*.cap)|*.cap|Any File (*.*)|*.*'
    Left = 96
    Top = 72
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 128
    Top = 72
  end
  object SnoopDump1: TSnoopDump
    Left = 64
    Top = 72
  end
end