main.dfm

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

object MainForm: TMainForm
  Left = 151
  Top = 334
  Width = 401
  Height = 384
  Caption = 'Expert'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 225
    Width = 393
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 393
    Height = 27
    Align = alTop
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 0
      Top = 1
      Width = 69
      Height = 25
      Align = alNone
      AutoSize = True
      ButtonHeight = 23
      Caption = 'ToolBar1'
      Flat = True
      Images = ImageList1
      TabOrder = 0
      object tbOpen: TToolButton
        Left = 0
        Top = 0
        Action = ActionOpen
        AutoSize = True
      end
      object tbClose: TToolButton
        Left = 23
        Top = 0
        Action = ActionClose
        AutoSize = True
      end
      object tbClear: TToolButton
        Left = 46
        Top = 0
        Action = ActionClear
        AutoSize = True
        Wrap = True
      end
    end
    object chkViewHexa: TCheckBox
      Left = 76
      Top = 3
      Width = 85
      Height = 23
      Caption = 'View Hexa'
      TabOrder = 1
      OnClick = chkViewHexaClick
    end
  end
  object mmData: TMemo
    Left = 8
    Top = 236
    Width = 377
    Height = 77
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    ImeName = '茄惫绢(茄臂) (MS-IME98)'
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object pcView: TPageControl
    Left = 0
    Top = 27
    Width = 393
    Height = 198
    ActivePage = tsEthernet
    Align = alTop
    Constraints.MinHeight = 50
    TabOrder = 2
    OnChange = pcViewChange
    object tsEthernet: TTabSheet
      Caption = 'Ethernet'
      object lvEthernet: TListView
        Left = 8
        Top = 8
        Width = 249
        Height = 150
        Hint = 'Ethernet'
        Columns = <>
        PopupMenu = pmPacketField
        TabOrder = 0
        OnData = lvEthernetData
      end
    end
    object tsIP: TTabSheet
      Caption = 'IP'
      ImageIndex = 1
      object lvIP: TListView
        Left = 8
        Top = 8
        Width = 250
        Height = 150
        Hint = 'IP'
        Columns = <>
        PopupMenu = pmPacketField
        TabOrder = 0
        OnData = lvIPData
      end
    end
    object tsARP: TTabSheet
      Caption = 'ARP'
      ImageIndex = 2
      object lvARP: TListView
        Left = 8
        Top = 8
        Width = 250
        Height = 150
        Hint = 'ARP'
        Columns = <>
        PopupMenu = pmPacketField
        TabOrder = 0
        OnData = lvARPData
      end
    end
    object tsICMP: TTabSheet
      Caption = 'ICMP'
      ImageIndex = 3
      object lvICMP: TListView
        Left = 8
        Top = 8
        Width = 250
        Height = 150
        Hint = 'ICMP'
        Columns = <>
        PopupMenu = pmPacketField
        TabOrder = 0
        OnData = lvICMPData
      end
    end
    object tsTCP: TTabSheet
      Caption = 'TCP'
      ImageIndex = 4
      object lvTCP: TListView
        Left = 8
        Top = 8
        Width = 250
        Height = 150
        Hint = 'TCP'
        Columns = <>
        PopupMenu = pmPacketField
        TabOrder = 0
        OnChange = lvDataChange
        OnData = lvTCPData1
      end
    end
    object tsUDP: TTabSheet
      Caption = 'UDP'
      ImageIndex = 5
      object lvUDP: TListView
        Left = 8
        Top = 8
        Width = 250
        Height = 150
        Hint = 'UDP'
        Columns = <>
        PopupMenu = pmPacketField
        TabOrder = 0
        OnChange = lvDataChange
        OnData = lvUDPData1
      end
    end
    object tsTCPData: TTabSheet
      Caption = 'TCPData'
      ImageIndex = 6
      object lvTCPData: TListView
        Left = 8
        Top = 8
        Width = 250
        Height = 150
        Hint = 'TCPData'
        Columns = <>
        PopupMenu = pmPacketField
        TabOrder = 0
        OnChange = lvDataChange
        OnData = lvTCPDataData
      end
    end
    object tsUDPData: TTabSheet
      Caption = 'UDPData'
      ImageIndex = 7
      object lvUDPData: TListView
        Left = 8
        Top = 8
        Width = 250
        Height = 150
        Hint = 'UDPData'
        Columns = <>
        PopupMenu = pmPacketField
        TabOrder = 0
        OnChange = lvDataChange
        OnData = lvUDPDataData
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 320
    Width = 393
    Height = 18
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 56
    Top = 80
    object File1: TMenuItem
      Caption = '&File'
      object miOpenFile: TMenuItem
        Action = ActionOpenFile
      end
      object miSave: TMenuItem
        Action = ActionSave
      end
      object miSaveAs: TMenuItem
        Action = ActionSaveAs
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object miExit: TMenuItem
        Action = ActionExit
      end
    end
    object Edit: TMenuItem
      Caption = 'Edit'
      object miOpen: TMenuItem
        Action = ActionOpen
      end
      object miClose: TMenuItem
        Action = ActionClose
      end
      object miOption: TMenuItem
        Action = ActionOption
      end
    end
    object View1: TMenuItem
      Caption = 'View'
      object PacketField1: TMenuItem
        Action = ActionPacketField
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object miAbout: TMenuItem
        Action = ActionAbout
      end
      object miHomePage: TMenuItem
        Action = ActionHomePage
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 24
    Top = 80
    object ActionOpen: TAction
      Category = 'Edit'
      Caption = 'Open'
      ImageIndex = 0
      ShortCut = 16463
      OnExecute = ActionOpenExecute
    end
    object ActionClose: TAction
      Category = 'Edit'
      Caption = 'Close'
      ImageIndex = 1
      OnExecute = ActionCloseExecute
    end
    object ActionClear: TAction
      Category = 'Edit'
      Caption = 'Clear'
      ImageIndex = 2
      OnExecute = ActionClearExecute
    end
    object ActionOption: TAction
      Category = 'Edit'
      Caption = 'Option'
      OnExecute = ActionOptionExecute
    end
    object ActionOpenFile: TAction
      Category = 'File'
      Caption = 'Open File'
      OnExecute = ActionOpenFileExecute
    end
    object ActionSave: TAction
      Category = 'File'
      Caption = 'Save'
      ShortCut = 16467
      OnExecute = ActionSaveExecute
    end
    object ActionSaveAs: TAction
      Category = 'File'
      Caption = 'Save &As'
      OnExecute = ActionSaveAsExecute
    end
    object ActionExit: TAction
      Category = 'File'
      Caption = 'E&xit'
      OnExecute = ActionExitExecute
    end
    object ActionAbout: TAction
      Category = 'Help'
      Caption = '&About'
      OnExecute = ActionAboutExecute
    end
    object ActionHomePage: TAction
      Category = 'Help'
      Caption = '&Home Page'
      OnExecute = ActionHomePageExecute
    end
    object ActionPacketField: TAction
      Category = 'View'
      Caption = 'Packet Field'
      OnExecute = ActionPacketFieldExecute
    end
  end
  object ImageList1: TImageList
    Left = 120
    Top = 80
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000001042104210421042
      0000000000001042104210421042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000010001000100010001042
      0000000010001000100010001042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000E0031863
      0000000000000000000000000000000000000000000010001042100010001042
      0000000010001042100010001042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000001863E003
      1863000000000000000000000000000000000000000010421000104210001042
      0000000010421000104210001042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000E0031863
      E003186300000000000000000000000000000000000010001042100010001042
      0000000010001042100010001042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000001863E003
      1863E00318630000000000000000000000000000000010421000104210001042
      0000000010421000104210001042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000E0031863
      E0031863E0031863000000000000000000000000000010001042100010001042
      0000000010001042100010001042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000001863E003
      1863E0031863E003186300000000000000000000000010421000104210001042
      0000000010421000104210001042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000E0031863
      E0031863E0031863E00318630000000000000000000010001042100010001042
      0000000010001042100010001042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000001863E003
      1863E0031863E003186300000000000000000000000010421000104210001042
      0000000010421000104210001042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000E0031863
      E0031863E0031863000000000000000000000000000010001042100010001042
      0000000010001042100010001042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000001863E003
      1863E00318630000000000000000000000000000000010421000104210001042
      0000000010421000104210001042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000E0031863
      E003186300000000000000000000000000000000000010001042100010001042
      0000000010001042100010001042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000001863E003
      1863000000000000000000000000000000000000000010421000104210001042
      0000000010421000104210001042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000E0031863
      0000000000000000000000000000000000000000000010001042100010000000
      0000000010001042100010000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFE1C3FFFF0000F9FFC183FFFF0000
      F8FFC183DFFB0000F87FC1838FFF0000F83FC18387F70000F81FC183C7EF0000
      F80FC183E3CF0000F807C183F19F0000F807C183F83F0000F80FC183FC7F0000
      F81FC183F83F0000F83FC183F19F0000F87FC183C3CF0000F8FFC18387E70000
      F9FFC3878FFB0000FFFFFFFFFFFF000000000000000000000000000000000000
      000000000000}
  end
  object Snoop1: TSnoop
    AdapterIndex = -1
    ThreadSafe = True
    SnapLen = 68
    Flags = 1
    ReadTimeOut = 100
    OnGetRemoteAdapterInfo = Snoop1GetRemoteAdapterInfo
    OnCapture = Snoop1Capture
    Left = 24
    Top = 112
  end
  object pmPacketField: TPopupMenu
    Left = 88
    Top = 80
    object miPacketField: TMenuItem
      Action = ActionPacketField
    end
  end
  object odFile: TOpenDialog
    DefaultExt = 'cap'
    Filter = 'Capture File (*.cap)|*.cap|Any File (*.*)|*.*'
    Left = 56
    Top = 112
  end
  object sdFile: TSaveDialog
    DefaultExt = 'cap'
    Filter = 'Capture File (*.cap)|*.cap|Any File (*.*)|*.*'
    Left = 88
    Top = 112
  end
end