控制台编程

开发平台：

Delphi

Main.dfm：源码内容

							object MainForm: TMainForm
  Left = 198
  Top = 156
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsNone
  ClientHeight = 76
  ClientWidth = 104
  Color = clCream
  TransparentColor = True
  TransparentColorValue = clCream
  Constraints.MaxHeight = 240
  Constraints.MaxWidth = 112
  Constraints.MinHeight = 1
  Constraints.MinWidth = 1
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object TCPSender: TIdTCPClient
    Intercept = IdConnectionIntercept1
    IOHandler = IdIOHandlerSocket1
    MaxLineAction = maException
    ReadTimeout = 0
    Port = 8929
    Left = 160
  end
  object TCPReceiver: TIdTCPServer
    Active = True
    Bindings = <>
    CommandHandlers = <>
    DefaultPort = 8928
    Greeting.NumericCode = 0
    IOHandler = IdServerIOHandlerSocket1
    MaxConnectionReply.NumericCode = 0
    OnConnect = TCPReceiverConnect
    OnExecute = TCPReceiverExecute
    OnDisconnect = TCPReceiverDisconnect
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    ThreadMgr = IdThreadMgrDefault1
    Left = 32
  end
  object IdConnectionIntercept1: TIdConnectionIntercept
  end
  object IdIOHandlerSocket1: TIdIOHandlerSocket
    Left = 192
  end
  object IdServerIOHandlerSocket1: TIdServerIOHandlerSocket
    Left = 64
  end
  object IdAntiFreeze1: TIdAntiFreeze
    Left = 128
  end
  object IdThreadMgrDefault1: TIdThreadMgrDefault
    Left = 96
  end
  object SaveRegTimer: TTimer
    Interval = 100
    OnTimer = SaveRegTimerTimer
    Left = 40
    Top = 40
  end
end

						