guiunit.dfm

一个国外比较早的IOCP控件

object ChatForm: TChatForm
  Left = 435
  Top = 247
  BorderStyle = bsSingle
  Caption = 'Chat application'
  ClientHeight = 242
  ClientWidth = 361
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 82
    Height = 13
    Caption = 'Client IP address:'
  end
  object Label2: TLabel
    Left = 8
    Top = 40
    Width = 50
    Height = 13
    Caption = 'Client port:'
  end
  object Label3: TLabel
    Left = 8
    Top = 72
    Width = 46
    Height = 13
    Caption = 'Message:'
  end
  object EdClientIP: TEdit
    Left = 96
    Top = 8
    Width = 257
    Height = 21
    TabOrder = 0
    Text = '127.0.0.1'
  end
  object EdClientPort: TEdit
    Left = 96
    Top = 40
    Width = 257
    Height = 21
    TabOrder = 1
    Text = '4532'
  end
  object EdMessage: TEdit
    Left = 96
    Top = 72
    Width = 257
    Height = 21
    TabOrder = 2
    Text = 'Test message'
  end
  object BtSend: TButton
    Left = 96
    Top = 104
    Width = 89
    Height = 25
    Caption = 'Send'
    Enabled = False
    TabOrder = 3
    OnClick = BtSendClick
  end
  object BtStartStop: TButton
    Left = 192
    Top = 104
    Width = 81
    Height = 25
    Caption = 'Start '
    TabOrder = 4
    OnClick = BtStartStopClick
  end
  object LBHistory: TListBox
    Left = 0
    Top = 136
    Width = 361
    Height = 105
    ItemHeight = 13
    TabOrder = 5
  end
  object ThreadExecutor: TDnThreadExecutor
    Logger = Logger
    LogLevel = llMandatory
    Active = False
    RefuseOverload = False
    PreCreateThreads = True
    MinThread = 4
    MaxThread = 5
    MaxQueueSize = 1024
    SyncContextCreating = True
    Left = 328
    Top = 8
  end
  object TcpReactor: TDnTcpReactor
    Active = False
    Executor = ThreadExecutor
    Logger = Logger
    LogLevel = llMandatory
    Left = 328
    Top = 48
  end
  object Logger: TDnCallbackLogger
    ShowProcessId = False
    ProcessIdWidth = 5
    ShowThreadId = False
    ThreadIdWidth = 5
    ShowDateTime = False
    DateTimeFormat = 'ss.nn.hh mm.dd.yyyy'
    MinLevel = llMandatory
    Active = False
    OnLogMessage = LoggerLogMessage
    Left = 272
    Top = 48
  end
  object WinSockMgr: TDnWinSockMgr
    Active = False
    Left = 328
    Top = 88
  end
  object TcpListener: TDnTcpListener
    Active = False
    Port = 4532
    Address = '0.0.0.0'
    UseNagle = True
    BackLog = 5
    Reactor = TcpReactor
    Executor = ThreadExecutor
    Logger = Logger
    LogLevel = llMandatory
    KeepAlive = False
    OnIncoming = TcpListenerIncoming
    Left = 272
    Top = 8
  end
  object TcpRequestor: TDnTcpRequestor
    Reactor = TcpReactor
    LogLevel = llMandatory
    Logger = Logger
    Executor = ThreadExecutor
    Active = False
    OnWrite = TcpRequestorWrite
    OnClose = TcpRequestorClose
    OnError = TcpRequestorError
    OnLineRead = TcpRequestorLineRead
    OnClientClose = TcpRequestorClientClose
    Left = 272
    Top = 88
  end
  object TcpConnecter: TDnTcpConnecter
    Reactor = TcpReactor
    LogLevel = llMandatory
    Logger = Logger
    Executor = ThreadExecutor
    Active = False
    OnConnect = TcpConnecterConnect
    OnError = TcpConnecterError
    Left = 272
    Top = 128
  end
end