unit1.~dfm

为在Delphi中使用Winpcap 写的。Delphi6和Delphi2007中测试通过。需先安装Winpcap的驱动3.1.

object Form1: TForm1
  Left = 207
  Top = 112
  Width = 591
  Height = 377
  Caption = #25968#23383#25509#25910#26426#27979#35797
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 20
  object Label1: TLabel
    Left = 16
    Top = 23
    Width = 105
    Height = 20
    AutoSize = False
    Caption = #36873#25321#32593#21345#65306
  end
  object Label2: TLabel
    Left = 8
    Top = 72
    Width = 129
    Height = 20
    AutoSize = False
    Caption = 'DDS'#20223#30495#39057#29575':'
  end
  object Label3: TLabel
    Left = 247
    Top = 67
    Width = 49
    Height = 20
    AutoSize = False
    Caption = 'MHz'
  end
  object Label4: TLabel
    Left = 8
    Top = 112
    Width = 129
    Height = 20
    AutoSize = False
    Caption = #25509#25910#20449#21495#39057#29575':'
  end
  object Label5: TLabel
    Left = 247
    Top = 126
    Width = 49
    Height = 20
    AutoSize = False
    Caption = 'MHz'
  end
  object Label6: TLabel
    Left = 8
    Top = 160
    Width = 129
    Height = 20
    AutoSize = False
    Caption = #25968#25454#20445#23384#36335#24452':'
  end
  object Label7: TLabel
    Left = 302
    Top = 67
    Width = 123
    Height = 20
    AutoSize = False
    Caption = #21516#27493#23383#33410#25968#65306
  end
  object ComboBox_NetCard: TComboBox
    Left = 135
    Top = 20
    Width = 290
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 20
    ParentFont = False
    TabOrder = 0
  end
  object BitBtn_Open: TBitBtn
    Left = 434
    Top = 16
    Width = 107
    Height = 33
    Caption = #25171#24320#32593#21345
    TabOrder = 1
    OnClick = BitBtn_OpenClick
  end
  object BitBtn_Sent: TBitBtn
    Left = 302
    Top = 113
    Width = 107
    Height = 33
    Caption = #21442#25968#35774#23450
    TabOrder = 2
    OnClick = BitBtn_SentClick
  end
  object Memo_Rec: TMemo
    Left = 8
    Top = 192
    Width = 537
    Height = 137
    TabOrder = 3
  end
  object BitBtnRecData: TBitBtn
    Left = 434
    Top = 112
    Width = 107
    Height = 33
    Caption = #35835#21462#25968#25454
    TabOrder = 4
    OnClick = BitBtnRecDataClick
  end
  object ComboBox_DDSFre: TComboBox
    Left = 136
    Top = 64
    Width = 105
    Height = 28
    ItemHeight = 20
    ItemIndex = 0
    TabOrder = 5
    Text = '1691.000'
    Items.Strings = (
      '1691.000'
      '1700.000')
  end
  object ComboBox1_SignFre: TComboBox
    Left = 143
    Top = 118
    Width = 98
    Height = 28
    ItemHeight = 20
    ItemIndex = 0
    TabOrder = 6
    Text = '1691.000'
    Items.Strings = (
      '1691.000'
      '1700.000')
  end
  object Edit_Save: TEdit
    Left = 144
    Top = 152
    Width = 241
    Height = 28
    Color = clBtnShadow
    ReadOnly = True
    TabOrder = 7
    Text = 'C:\'#27979#35797#25968#25454
    OnDblClick = Edit_SaveDblClick
  end
  object Edit_Syn: TEdit
    Left = 434
    Top = 64
    Width = 66
    Height = 28
    TabOrder = 8
    Text = '120'
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 528
    Top = 8
  end
  object SaveDialog1: TSaveDialog
    Filter = #25991#20214#22841'|(*.dat)'
    Left = 512
    Top = 80
  end
end