Need help on WebSockets client low level usage

edwinsn · 2016-01-19 16:24:49

Hi Arnaud,

I'm new to WebSockets and I'm lost in the great amount of classes defined in SynBidirSock.pas

I want to do something using the client class like the following (taken from https://github.com/andremussche/DelphiWebsockets):

  client := TIdHTTPWebsocketClient.Create(Self);
  client.Port := 12345;
  client.Host := 'localhost';
  client.SocketIOCompatible := True;
  client.SocketIO.OnEvent(C_SERVER_EVENT,
    procedure(const ASocket: ISocketIOContext; const aArgument: TSuperArray; const aCallback: ISocketIOCallback)
    begin
      ShowMessageInMainthread('Data PUSHED from server: ' + aArgument[0].AsJSon);
      //server wants a response?
      if aCallback <> nil then
        aCallback.SendResponse('thank for the push!');
    end);
  client.Connect;
  client.SocketIO.Emit(C_CLIENT_EVENT, SO([ 'request', 'some data']),
    //provide callback
    procedure(const ASocket: ISocketIOContext; const aJSON: ISuperObject; const aCallback: ISocketIOCallback)
    begin
      //show response (threadsafe)
      ShowMessageInMainthread('RESPONSE: ' + aJSON.AsJSon);
    end);

Which class in the mORMot framework I should use? I guess its

THttpClientWebSockets

?
And How to send and receive JSON data? Thanks.

ab · 2016-01-19 16:32:10

Why do you want to use TIdHTTPWebsocketClient ?
I do not understand your problem.

Did you take a look at the documentation, and the samples?
See http://synopse.info/files/html/Synopse% … l#TITL_150
and https://github.com/synopse/mORMot/tree/ … WebSockets

edwinsn · 2016-01-20 03:48:56

Hi ab,

I need to communicate with the Chrome browser via WebSockets: https://developer.chrome.com/devtools/d … r-protocol

ab · 2016-01-20 07:55:37

See the first sample detailed in the doc.
https://github.com/synopse/mORMot/blob/ … Server.dpr
There is a html page to work with a browser as a client
https://github.com/synopse/mORMot/blob/ … erver.html

edwinsn · 2016-01-20 08:40:37

Thanks ab, so I'm trying THttpClientWebSockets, according your latest reply it seems that I'm not using the correct class, so will try TWebSocketServer now...

You can ignore my current testing result: using THttpClientWebSockets:

var
  myStr: string;
begin
  if Assigned(FWSCli) then
    FWSCli.Free;

  //FWSCli := TSQLHttpClientWebsockets.Create(cSvrAddr, cCefDebugPort, TSQLModel.Create([])); //same error.
  FWSCli := THttpClientWebSockets.Open(cSvrAddr, cCefDebugPort);
  FWSCli.Settings.SetFullLog;

  myStr := FWSCli.WebSocketsUpgrade('ws://localhost:9289/someUri', '', True, True);
  LogIt('WebSocketsUpgrade result: ' + myStr);

Result:

WebSocketsUpgrade result: Invalid HTTP Upgrade Header

daisutao · 2016-10-13 01:51:02

It is so strange, there is a class named TWebSocketServer, but no class TWebSocketClient.

the client demo is a html page, but i want write client with delphi, how?

mpv · 2016-10-13 06:32:47

You have a THttpClientWebSockets class for this

daisutao · 2016-10-13 07:56:52

i guess it is, but i don't known how to use it .

daisutao · 2016-10-13 08:05:59

i guess it is, but i don't known how to use it .

mORMot Open Source

#1 2016-01-19 16:24:49

Need help on WebSockets client low level usage

#2 2016-01-19 16:32:10

Re: Need help on WebSockets client low level usage

#3 2016-01-20 03:48:56

Re: Need help on WebSockets client low level usage

#4 2016-01-20 07:55:37

Re: Need help on WebSockets client low level usage

#5 2016-01-20 08:40:37

Re: Need help on WebSockets client low level usage

#6 2016-10-13 01:51:02

Re: Need help on WebSockets client low level usage

#7 2016-10-13 06:32:47

Re: Need help on WebSockets client low level usage

#8 2016-10-13 07:56:52

Re: Need help on WebSockets client low level usage

#9 2016-10-13 08:05:59

Re: Need help on WebSockets client low level usage

Board footer