TCustomWebsocketClient

type TCustomWebsocketClient = class(TComponent)

protected

  procedure CheckInactive;

  procedure Loaded; override;

  function CreateClientConnection(); virtual;

  procedure MessageReceived();

  procedure ControlReceived(); virtual;

  function CheckHandShakeResponse(); virtual;

  function CreateHandShakeRequest; virtual;

  function CreateHandshakeResponse(); virtual;

  procedure SendHandShakeRequest; virtual;

  function ReadHandShakeResponse; virtual;

  function DoHandShake;

  property Transport: TWSClientTransport; [r]

public

  property Connection: TWebSocketClientConnection; [r]

  destructor Destroy; override;

  function CheckIncoming;

  procedure Connect;

  procedure Disconnect();

  procedure Ping();

  procedure Pong();

  procedure SendData();

  procedure SendMessage();

  property Active: Boolean; [rw]

  property CheckTimeOut: Integer; [rw]

  property ConnectTimeout: Integer; [rw]

  property HostName: string; [rw]

  property MessagePump: TWSMessagePump; [rw]

  property Options: TWSOptions; [rw]

  property OutGoingFrameMask: Integer; [rw]

  property Port: Integer; [rw]

  property Resource: string; [rw]

  property UseSSL: Boolean; [rw]

  property OnSendHandShake: TWSClientHandShakeEvent; [rw]

  property OnHandshakeResponse: TWSClientHandShakeResponseEvent; [rw]

  property OnMessageReceived: TWSMessageEvent; [rw]

  property OnDisconnect: TNotifyEvent; [rw]

  property OnConnect: TNotifyEvent; [rw]

  property OnControl: TWSControlEvent; [rw]

end;

TCustomWebsocketClient

TObject