TsgcHTTPServer › 事件 › OnTCPConnect

OnTCPConnect 事件

在客户端于 TCP 层连接之后、HTTP 请求被解析之前触发，因此可以接受或拒绝连接。

语法

property OnTCPConnect: TsgcWSOnTCPConnect;
// TsgcWSOnTCPConnect = procedure(Connection: TsgcWSConnection; var Accept: Boolean) of object

默认值

—

备注

OnTCPConnect 在 TCP 连接被接受之后、HTTP 请求被解析之前调用。这是检查 Connection.PeerIP 并拒绝不需要的客户端的最早机会，例如实现每 IP 速率限制。将 Accept 设为 False 立即关闭连接，或保持 True（默认值）以便服务器继续解析请求。

示例

procedure OnTCPConnectEvent(aConnection: TsgcWSConnection; var Accept: Boolean);
begin
  Accept := aConnection.PeerIP <> '192.168.0.100';
end;

返回事件