1、IndyTCPserver的创建
IdTCPServer1.DefaultPort:= 8000;
IdTCPServer1.ListenQueue:= 1024; //同时处理请求队列数限制
IdTCPServer1.MaxConnections:= 1024; //同时连接数量限制，为0不限制连接数
IdTCPServer1.ContextClass:= TNewIdServerContext; //设置为自定义TIdServerContext类,作用稍后说明
TIdServerContext.Active:= True; //启动监听
2、Onconnect事件处理
procedure TMainForm.IdTCPServer1Connect(AContext: TIdContext);
beginvar Context:TNewIdServerContext; //Delphi 10.4.2 支持代码块定义变量Context:= TNewIdServerContext(AContext);if IdTCPServer1.Contexts.Count >= IdTCPServer1.ListenQueue thenbeginContext.Connection.Disconnect;Memo1.Lines.Add(Format('Socket连接已达到%d上限，%s:%d尝试连接被强制断开！', [IdTCPServer1.ListenQueue, Context.Binding.PeerIP, Context.Binding.PeerPort]));end;Context.mUserID:= 123456; //演示访问用户ID
end;
3、OnExecute事件
)
