tcpmsgserver.dfm

使用delphi自带的控件

object dmeMsgServer: TdmeMsgServer
  OldCreateOrder = True
  OnCreate = DataModuleCreate
  Left = 302
  Top = 136
  Height = 333
  Width = 539
  object tcpMsgServer: TIdTCPServer
    Bindings = <>
    CommandHandlers = <
      item
        CmdDelimiter = ' '
        Command = 'Login'
        Disconnect = False
        Name = 'Login'
        OnCommand = tcpMsgServerLoginCommand
        ParamDelimiter = ' '
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end
      item
        CmdDelimiter = ' '
        Command = 'Logoff'
        Disconnect = False
        Name = 'Logoff'
        OnCommand = tcpMsgServerLogoffCommand
        ParamDelimiter = ' '
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end>
    DefaultPort = 10555
    Greeting.NumericCode = 0
    MaxConnectionReply.NumericCode = 0
    OnNoCommandHandler = tcpMsgServerNoCommandHandler
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    Left = 80
    Top = 56
  end
end