TDiocpCoderTcpServer 使用

uses diocp_coder_tcpServer,utils_zipTools,diocp_tcp_server,diocp_task

// 创建TCP SERVER
FTcpServer := TDiocpCoderTcpServer.Create(Self);
// 心跳
FTcpServer.KeepAlive := true;
// 工作线程数量
// GetSystemInfo(si);
// FTcpServer.WorkerCount := si.dwNumberOfProcessors * 2 + 1;
// 创建监视
FTcpServer.createDataMonitor;
// 注册编码、解码类
FTcpServer.registerCoderClass(TIOCPStreamDecoder, TIOCPStreamEncoder);
// 注册客户端上下文
FTcpServer.registerContextClass(TMyClientContext);
TFMMonitor.createAsChild(pnlMonitor, FTcpServer);
FTcpServer.LogicWorkerNeedCoInitialize := true;
FTcpServer.UseObjectPool := True;