ConnectionRequest Event

Fired when a request for connection comes from a remote host.

Syntax

type TConnectionRequestEvent = procedure ConnectionRequest(Sender: TObject; const Address: String; Port: Integer;var  Accept: Boolean) of object;

property OnConnectionRequest: TConnectionRequestEvent read FOnConnectionRequest write FOnConnectionRequest;

Remarks

This event indicates an incoming connection. The connection is accepted by default. Address and Port will contain information about remote host requesting the inbound connection. If you want to refuse it, you can set the Accept parameter to False.