TWSConnection

type TWSConnection = class

protected

  procedure AllocateConnectionID; virtual;

  procedure SetCloseState(); virtual;

  procedure DoDisconnect; virtual; abstract;

  function DoReadMessage;

  procedure DispatchEvent();

  procedure SetHandShakeRequest();

  function HandleIncoming(); virtual;

  function GetHandshakeCompleted; virtual; abstract;

  function GetTransport; virtual; abstract;

  property Owner: TComponent; [r]

  function IsValidUTF8();

public

type

  TConnectionIDAllocator = procedure(

  out aID: string

) of object;

public

  IDAllocator: TConnectionIDAllocator;

  constructor Create(); virtual;

  destructor Destroy; override;

  class function GetCloseData();

  procedure Close();

  function CheckIncoming();

  function ReadMessage;

  procedure Disconnect;

  function FrameClass; virtual;

  procedure Send();

  property AutoDisconnect: Boolean; [rw]

  property CloseState: TCloseState; [r]

  property ConnectionID: string; [r]

  property FreeUserData: Boolean; [rw]

  property HandshakeRequest: TWSHandShakeRequest; [r]

  property HandshakeCompleted: Boolean; [r]

  property Options: TWSOptions; [r]

  property OutgoingFrameMask: Integer; [rw]

  property PeerIP: string; [r]

  property PeerPort: Word; [r]

  property Transport: IWSTransport; [r]

  property UserData: TObject; [rw]

  property WebSocketVersion: Integer; [rw]

  property OnMessageReceived: TWSMessageEvent; [rw]

  property OnControl: TWSControlEvent; [rw]

  property OnDisconnect: TNotifyEvent; [rw]

end;

TWSConnection

TObject