main.dfm

用Delphi 6实现的简单UDP客户端、服务端间的测试程序

object Form1: TForm1
  Left = 247
  Top = 185
  Width = 502
  Height = 275
  Caption = 'UDP Server'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 122
    Width = 63
    Height = 13
    Caption = #25910#21040#30340#20449#24687':'
  end
  object Label2: TLabel
    Left = 32
    Top = 160
    Width = 63
    Height = 13
    Caption = #25910#21040#23383#33410#25968':'
  end
  object lbBytes: TLabel
    Left = 104
    Top = 160
    Width = 6
    Height = 13
    Caption = '0'
  end
  object edInfo: TEdit
    Left = 104
    Top = 120
    Width = 337
    Height = 21
    TabOrder = 0
    Text = #25910#21040#30340#20449#24687
  end
  object btnListen: TButton
    Left = 168
    Top = 48
    Width = 75
    Height = 25
    Caption = #24320#22987#30417#21548
    TabOrder = 1
    OnClick = btnListenClick
  end
  object edPort: TEdit
    Left = 32
    Top = 48
    Width = 121
    Height = 21
    TabOrder = 2
    Text = '7001'
  end
  object IdUDPServer: TIdUDPServer
    Bindings = <>
    DefaultPort = 7001
    OnUDPRead = IdUDPServerUDPRead
    Left = 424
    Top = 16
  end
end