www.pudn.com > modbus_udp.rar > udp_Unit.dfm, change:2012-06-12,size:5964b


object Form1: TForm1 
  Left = 177 
  Top = 139 
  Width = 1213 
  Height = 626 
  Caption = 'Form1' 
  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 
  DesignSize = ( 
    1205 
    592) 
  PixelsPerInch = 96 
  TextHeight = 13 
  object SourceGroupBox: TGroupBox 
    Left = 652 
    Top = 68 
    Width = 431 
    Height = 85 
    Anchors = [akLeft, akTop, akRight] 
    Caption = 'Source' 
    TabOrder = 0 
    object HostNameLabel: TLabel 
      Left = 12 
      Top = 16 
      Width = 54 
      Height = 13 
      Caption = 'Host name:' 
    end 
    object HostAddressLabel: TLabel 
      Left = 12 
      Top = 32 
      Width = 65 
      Height = 13 
      Caption = 'Host address:' 
    end 
    object HostName: TLabel 
      Left = 200 
      Top = 16 
      Width = 3 
      Height = 13 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clMaroon 
      Font.Height = -11 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object HostAddress: TLabel 
      Left = 200 
      Top = 32 
      Width = 3 
      Height = 13 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clMaroon 
      Font.Height = -11 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object PortLabel: TLabel 
      Left = 12 
      Top = 48 
      Width = 22 
      Height = 13 
      Caption = 'Port:' 
    end 
    object Port: TLabel 
      Left = 200 
      Top = 48 
      Width = 3 
      Height = 13 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clMaroon 
      Font.Height = -11 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object BufferSizeLabel: TLabel 
      Left = 12 
      Top = 64 
      Width = 49 
      Height = 13 
      Caption = 'Buffer size' 
    end 
    object BufferSize: TLabel 
      Left = 200 
      Top = 64 
      Width = 3 
      Height = 13 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clMaroon 
      Font.Height = -11 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
  end 
  object UDPMemo: TMemo 
    Left = 648 
    Top = 160 
    Width = 545 
    Height = 313 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clNavy 
    Font.Height = -11 
    Font.Name = 'Courier New' 
    Font.Style = [] 
    ParentFont = False 
    ScrollBars = ssVertical 
    TabOrder = 1 
  end 
  object GroupBox1: TGroupBox 
    Left = 52 
    Top = 52 
    Width = 513 
    Height = 101 
    Anchors = [akLeft, akTop, akRight] 
    Caption = 'Source' 
    TabOrder = 2 
    object Label1: TLabel 
      Left = 12 
      Top = 16 
      Width = 54 
      Height = 13 
      Caption = 'Host name:' 
    end 
    object Label2: TLabel 
      Left = 12 
      Top = 32 
      Width = 65 
      Height = 13 
      Caption = 'Host address:' 
    end 
    object hostname1: TLabel 
      Left = 200 
      Top = 16 
      Width = 3 
      Height = 13 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clMaroon 
      Font.Height = -11 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object hostaddress1: TLabel 
      Left = 200 
      Top = 32 
      Width = 3 
      Height = 13 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clMaroon 
      Font.Height = -11 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object Label5: TLabel 
      Left = 12 
      Top = 48 
      Width = 22 
      Height = 13 
      Caption = 'Port:' 
    end 
    object port1: TLabel 
      Left = 200 
      Top = 48 
      Width = 3 
      Height = 13 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clMaroon 
      Font.Height = -11 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object DestinationLabel: TLabel 
      Left = 12 
      Top = 64 
      Width = 96 
      Height = 13 
      Caption = 'Destination address:' 
    end 
    object DestinationAddress: TLabel 
      Left = 200 
      Top = 64 
      Width = 3 
      Height = 13 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clMaroon 
      Font.Height = -11 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object Label7: TLabel 
      Left = 12 
      Top = 80 
      Width = 49 
      Height = 13 
      Caption = 'Buffer size' 
    end 
    object buffersize1: TLabel 
      Left = 200 
      Top = 80 
      Width = 3 
      Height = 13 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clMaroon 
      Font.Height = -11 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
  end 
  object Memo1: TMemo 
    Left = 8 
    Top = 160 
    Width = 625 
    Height = 313 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clNavy 
    Font.Height = -11 
    Font.Name = 'Courier New' 
    Font.Style = [] 
    ParentFont = False 
    ScrollBars = ssVertical 
    TabOrder = 3 
  end 
  object SendButton: TButton 
    Left = 148 
    Top = 496 
    Width = 100 
    Height = 25 
    Caption = 'Send Message' 
    TabOrder = 4 
    OnClick = SendButtonClick 
  end 
  object Button1: TButton 
    Left = 292 
    Top = 496 
    Width = 100 
    Height = 25 
    Caption = 'Send Message' 
    TabOrder = 5 
    OnClick = Button1Click 
  end 
  object UDPClient: TIdUDPClient 
    Host = '192.168.1.4' 
    Port = 8003 
    ReceiveTimeout = 1000 
    Left = 624 
    Top = 24 
  end 
  object UDPServer: TIdUDPServer 
    Bindings = <> 
    DefaultPort = 8003 
    OnUDPRead = UDPServerUDPRead 
    Left = 664 
    Top = 24 
  end 
  object IdAntiFreeze1: TIdAntiFreeze 
    Left = 712 
    Top = 24 
  end 
end