TTCPServerClient

type TTCPServerClient = class(TTCPServerClientBase)

protected

  FServer: TF5TCPServer;

  FState: TTCPServerClientState;

  FTerminated: Boolean;

  FRemoteAddr: TSocketAddr;

  FSocket: TSysSocket;

  FConnection: TTCPConnection;

  FReferenceCount: Integer;

  FOrphanClient: Boolean;

  FClientID: Int64;

  FPollThread: TTCPServerThreadBase;

  FPollIndex: Integer;

  FUserTag: NativeInt;

  FUserObject: TObject;

  procedure Log();

  function GetState;

  function GetStateStr;

  procedure SetState();

  procedure SetNegotiating;

  procedure SetReady;

  function GetRemoteAddrStr;

  function GetBlockingConnection;

  procedure ConnectionLog();

  procedure ConnectionStateChange();

  procedure ConnectionReady();

  procedure ConnectionReadShutdown();

  procedure ConnectionShutdown();

  procedure ConnectionClose();

  procedure ConnectionRead();

  procedure ConnectionWrite();

  procedure ConnectionReadActivity();

  procedure ConnectionWorkerExecute();

  procedure TriggerStateChange;

  procedure TriggerNegotiating;

  procedure TriggerConnected;

  procedure TriggerReady;

  procedure TriggerReadShutdown;

  procedure TriggerShutdown;

  procedure TriggerClose;

  procedure TriggerRead;

  procedure TriggerWrite;

  procedure TriggerReadActivity;

  procedure Start;

  procedure Process();

  procedure AddReference;

  procedure SetClientOrphaned;

public

  constructor Create();

  destructor Destroy; override;

  procedure Finalise; override;

  property State: TTCPServerClientState; [r]

  property StateStr: string; [r]

  property Terminated: Boolean; [r]

  property Connection: TTCPConnection; [r]

  property BlockingConnection: TTCPBlockingConnection; [r]

  procedure Close;

  procedure ReleaseReference;

  property RemoteAddr: TSocketAddr; [r]

  property RemoteAddrStr: string; [r]

  property ClientID: Int64; [r]

  procedure TerminateWorkerThread;

  property UserTag: NativeInt; [rw]

  property UserObject: TObject; [rw]

end;

TTCPServerClient

TTCPServerClientBase

TObject