RealICQClient/GroupClient/GroupWebSocket.pas

unit GroupWebSocket;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, WebSocket2, CustomServer2,
  blcksock, superobject;

type
  TGroupWebSocketClient = class(TWebSocketClientConnection)
  private
    procedure ProcessPing(aData: string); override;
    procedure ProcessPong(aData: string); override;
  public
    constructor Create(aHost, aPort, aResourceName: string;
      aOrigin: string = '-'; aProtocol: string = '-'; aExtension: string = '-';
      aCookie: string = '-'; aVersion: integer = 13); reintroduce; override;
  end;

implementation

{ TWebSocketClient }

constructor TGroupWebSocketClient.Create(aHost, aPort, aResourceName, aOrigin,
  aProtocol, aExtension, aCookie: string; aVersion: integer);
begin
  inherited;

end;

procedure TGroupWebSocketClient.ProcessPing(aData: string);
begin
  inherited;

end;

procedure TGroupWebSocketClient.ProcessPong(aData: string);
begin
  inherited;

end;

end.