frmthreadclientform.dfm

数据通信,没什么很详细的,只是一个素材源玛

object frmThreadClient: TfrmThreadClient
  Left = 558
  Top = 205
  Width = 415
  Height = 480
  Caption = 'client_ Threads'
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 407
    Height = 73
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 16
      Width = 31
      Height = 13
      Caption = 'Server'
    end
    object Label2: TLabel
      Left = 144
      Top = 16
      Width = 19
      Height = 13
      Caption = 'Port'
    end
    object edtIP: TEdit
      Left = 64
      Top = 8
      Width = 73
      Height = 21
      TabOrder = 0
      Text = '10.0.1.252'
    end
    object sptPort: TSpinEdit
      Left = 176
      Top = 8
      Width = 49
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 1
      Value = 6000
    end
    object btnConnect: TBitBtn
      Left = 240
      Top = 8
      Width = 75
      Height = 25
      Caption = '&Connect'
      TabOrder = 2
      OnClick = btnConnectClick
    end
    object btnDisConnect: TBitBtn
      Left = 320
      Top = 8
      Width = 75
      Height = 25
      Caption = '&DisConnect'
      TabOrder = 3
      OnClick = btnDisConnectClick
    end
    object btnSend: TBitBtn
      Left = 24
      Top = 40
      Width = 75
      Height = 25
      Caption = '&Send'
      TabOrder = 4
      OnClick = btnSendClick
    end
    object edtMsg: TEdit
      Left = 104
      Top = 40
      Width = 289
      Height = 21
      TabOrder = 5
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 415
    Width = 407
    Height = 31
    Panels = <>
  end
  object memLog: TMemo
    Left = 0
    Top = 73
    Width = 407
    Height = 342
    Align = alClient
    Lines.Strings = (
      'memLog')
    TabOrder = 2
  end
  object IdTCPClient: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 0
    OnDisconnected = IdTCPClientDisconnected
    OnConnected = IdTCPClientConnected
    Port = 0
    Left = 56
    Top = 112
  end
end