mORMot Open Source

Solved by this way : http://pastebin.com/UrMHSneL

Another question... Chrome and Firefox returns a 401 and 400 when try to access : http://localhost:8888/whatever/

IExplorer goes well.

I solved this saving reference from TWebSocketProtocolChat and THttpServerResp:

  // protocol class implementation
  TCCAgentWSProtocol = class(TWebSocketProtocolChat)
  protected
    procedure ProcessFrame(Sender: THttpServerResp; const Frame: TWebSocketFrame);
  public
    CCAgentWS: TCCAgentWS; // my class using websocket protocol class
  end;

  // ProcessFrame implementation
procedure TCCAgentWSProtocol.ProcessFrame(Sender: THttpServerResp; const Frame: TWebSocketFrame);
begin
  case Frame.opcode of
    focContinuation:
    begin
      CCAgentWS.fWSProtocol := Self;
      CCAgentWS.fWSHttpServerResp := Sender;
    end;
    focConnectionClose:
    begin
      CCAgentWS.fWSProtocol := Nil;
      CCAgentWS.fWSHttpServerResp := Nil;
    end;
    ...
  end;
end;

It is not a mORMot solution but "it is what it is".

Thanks.