TsgcWebSocketServer_HTTPAPI › Events › OnTCPConnect
在客户端在 TCP 层连接之后、WebSocket 握手之前触发,因此可以接受或拒绝连接。
property OnTCPConnect: TsgcWSHTTPAPITCPConnect;
// TsgcWSHTTPAPITCPConnect = procedure(Connection: TsgcWSConnection; var Accept: Boolean) of object
—
OnTCPConnect 在 HTTP.SYS 接受 TCP 连接之后、处理 WebSocket 握手之前调用。使用它检查 Connection.PeerIP 或其他套接字属性,并决定是否继续。将 Accept 设置为 False 可立即拒绝连接;保留为 True(默认值)可让服务器继续处理 WebSocket 握手或正常 HTTP 请求管道。
procedure OnTCPConnectEvent(Connection: TsgcWSConnection; var Accept: Boolean);
begin
Accept := Connection.PeerIP <> '10.0.0.1';
end;