main.dfm

一个用C++ builder6.0做的UDP通信测试程序

object FUDP: TFUDP
  Left = 367
  Top = 225
  Width = 561
  Height = 396
  Caption = 'FUDP'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 350
    Width = 553
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 32
    Width = 521
    Height = 49
    Caption = 'UDP'#35774#32622
    TabOrder = 1
    object Label2: TLabel
      Left = 284
      Top = 22
      Width = 59
      Height = 13
      Caption = 'UDP'#31471#21475#65306
    end
    object Label1: TLabel
      Left = 23
      Top = 23
      Width = 59
      Height = 13
      Caption = 'UDP'#20027#26426#65306
    end
    object Port: TEdit
      Left = 363
      Top = 19
      Width = 126
      Height = 21
      TabOrder = 0
      Text = '1200'
    end
    object Host: TEdit
      Left = 88
      Top = 20
      Width = 163
      Height = 21
      TabOrder = 1
      Text = '192.168.1.111'
    end
  end
  object Panel1: TPanel
    Left = 16
    Top = 80
    Width = 520
    Height = 256
    Caption = 'Panel1'
    TabOrder = 2
    object Label3: TLabel
      Left = 6
      Top = 52
      Width = 84
      Height = 13
      Caption = #36755#20837#21457#36865#25968#25454#65306
    end
    object BtSendMsg: TButton
      Left = 405
      Top = 47
      Width = 85
      Height = 25
      Caption = #21457#36865
      TabOrder = 0
      OnClick = BtSendMsgClick
    end
    object Button2: TButton
      Left = 184
      Top = 211
      Width = 75
      Height = 25
      Caption = 'Button2'
      TabOrder = 1
    end
    object UDPMsg1111: TRichEdit
      Left = 312
      Top = 79
      Width = 178
      Height = 113
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        'UDPMsg1111')
      ParentFont = False
      TabOrder = 2
    end
    object Button1: TButton
      Left = 9
      Top = 11
      Width = 75
      Height = 25
      Caption = #36873#25321#25991#20214
      TabOrder = 3
      OnClick = Button1Click
    end
    object BtSendStream: TButton
      Left = 404
      Top = 9
      Width = 86
      Height = 25
      Caption = #21457#36865#25991#20214#20869#23481
      TabOrder = 4
      OnClick = BtSendStreamClick
    end
    object UDPStream: TEdit
      Left = 88
      Top = 13
      Width = 275
      Height = 21
      TabOrder = 5
      Text = 'UDPStream'
    end
    object UDPMsg: TEdit
      Left = 88
      Top = 48
      Width = 273
      Height = 21
      TabOrder = 6
      Text = 'UDPMsg'
    end
    object Output: TMemo
      Left = 8
      Top = 80
      Width = 297
      Height = 113
      Lines.Strings = (
        'Output')
      TabOrder = 7
    end
  end
  object Timer1: TTimer
    Left = 216
    Top = 8
  end
  object NMUDP1: TNMUDP
    RemotePort = 0
    LocalPort = 0
    ReportLevel = 1
    OnDataReceived = NMUDP1DataReceived
    OnDataSend = NMUDP1DataSend
    OnStatus = NMUDP1Status
    OnInvalidHost = NMUDP1InvalidHost
    OnStreamInvalid = NMUDP1StreamInvalid
    Left = 176
    Top = 8
  end
  object OpenDialog1: TOpenDialog
    Left = 256
    Top = 8
  end
end