main.dfm

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

object Form1: TForm1
  Left = 322
  Top = 289
  Width = 561
  Height = 296
  Caption = 'UDP Client'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 37
    Top = 48
    Width = 39
    Height = 13
    Caption = #26381#21153#31471':'
  end
  object Label2: TLabel
    Left = 25
    Top = 126
    Width = 51
    Height = 13
    Caption = #24453#21457#20449#24687':'
  end
  object btnSend: TButton
    Left = 80
    Top = 152
    Width = 75
    Height = 25
    Caption = #21457#36865
    TabOrder = 0
    OnClick = btnSendClick
  end
  object edInfo: TEdit
    Left = 80
    Top = 122
    Width = 441
    Height = 21
    TabOrder = 1
    Text = #22312#27492#36755#20837#35201#21457#36865#30340#20449#24687
  end
  object edServerHost: TEdit
    Left = 80
    Top = 48
    Width = 97
    Height = 21
    TabOrder = 2
    Text = 'IP'
  end
  object edServerPort: TEdit
    Left = 184
    Top = 48
    Width = 41
    Height = 21
    TabOrder = 3
    Text = '7001'
  end
  object IdUDPClient: TIdUDPClient
    Active = True
    Port = 0
    Left = 416
    Top = 16
  end
  object IdIPWatch: TIdIPWatch
    Active = False
    HistoryEnabled = False
    HistoryFilename = 'iphist.dat'
    Left = 376
    Top = 16
  end
end