TWSHeaders

type TWSHeaders = class

protected

  function GetS();

  procedure SetS();

  function GetH();

  procedure SetH();

public

const

  WSHeaderNames = array [0..8] of string; = ('Host', 'Origin', 'Connection', 'Upgrade', SSecWebSocketProtocol, SSecWebSocketVersion, SSecWebSocketExtensions, SSecWebSocketKey, SSecWebSocketAccept)

public

  constructor Create(); virtual;

  destructor Destroy; override;

  property RawHeaders: TStrings; [r]

  property Resource: string; [rw]

  property Host: string; [rw]

  property Origin: string; [rw]

  property Connection: string; [rw]

  property Upgrade: string; [rw]

  property Protocol: string; [rw]

  property Version: string; [rw]

  property Extensions: string; [rw]

  property Key: string; [rw]

end;

TWSHeaders

TObject