capturedata_u.~dfm

dekphi下的封包控件

object CaptureData_F: TCaptureData_F
  Left = 324
  Top = 130
  BorderStyle = bsDialog
  Caption = 'Data Capture'
  ClientHeight = 483
  ClientWidth = 711
  Color = 10386763
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object Label1: TLabel
    Left = 125
    Top = 7
    Width = 35
    Height = 15
    Caption = 'Addr1:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 278
    Top = 7
    Width = 35
    Height = 15
    Caption = 'Addr2:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 428
    Top = 7
    Width = 32
    Height = 15
    Caption = 'Port1:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 504
    Top = 6
    Width = 32
    Height = 15
    Caption = 'Port2:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 582
    Top = 7
    Width = 48
    Height = 15
    Caption = 'Protocol:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 6
    Top = 41
    Width = 700
    Height = 283
    BevelInner = bvLowered
    BevelOuter = bvLowered
    TabOrder = 0
    object grdDataList: TStringGrid
      Left = 2
      Top = 2
      Width = 696
      Height = 279
      Align = alClient
      Color = clBlack
      ColCount = 7
      Ctl3D = False
      DefaultColWidth = 96
      DefaultRowHeight = 18
      FixedCols = 0
      RowCount = 2
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      Options = [goFixedHorzLine, goRowSelect]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      OnClick = grdDataListClick
      OnDrawCell = grdDataListDrawCell
    end
  end
  object Memo1: TMemo
    Left = 6
    Top = 324
    Width = 369
    Height = 153
    Color = clBlack
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object Memo2: TMemo
    Left = 375
    Top = 324
    Width = 330
    Height = 153
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object edtPort1: TEdit
    Left = 464
    Top = 7
    Width = 36
    Height = 23
    TabOrder = 5
    Text = '0'
  end
  object edtPort2: TEdit
    Left = 540
    Top = 6
    Width = 36
    Height = 23
    TabOrder = 6
    Text = '0'
  end
  object cbbProtocol: TComboBox
    Left = 633
    Top = 6
    Width = 74
    Height = 23
    Style = csDropDownList
    ItemHeight = 15
    ItemIndex = 0
    TabOrder = 7
    Items.Strings = (
      ''
      'IP'
      'ICMP'
      'IGMP'
      'GGP'
      'TCP'
      'PUP'
      'UDP'
      'IDP'
      'NP'
      'RAW'
      'MAX')
  end
  object edtAddr1: TEdit
    Left = 163
    Top = 7
    Width = 108
    Height = 23
    TabOrder = 3
    Text = '0.0.0.0'
  end
  object edtAddr2: TEdit
    Left = 316
    Top = 7
    Width = 108
    Height = 23
    TabOrder = 4
    Text = '0.0.0.0'
  end
  object btnStart: TBitBtn
    Left = 9
    Top = 8
    Width = 53
    Height = 25
    Caption = 'Start'
    TabOrder = 8
    OnClick = btnStartClick
  end
  object btnStop: TBitBtn
    Left = 65
    Top = 8
    Width = 53
    Height = 25
    Caption = 'Stop'
    Enabled = False
    TabOrder = 9
    OnClick = btnStopClick
  end
  object cap_ip1: Tcap_ip
    OnCap = cap_ip1Cap
    Left = 208
    Top = 80
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.cds'
    Filter = 'CDS Files|*.CDS'
    Left = 334
    Top = 193
  end
end