unit Client;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, mORMotHttpClient, mORMot;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FSQLHttpClientWebsockets: TSQLHttpClientWebsockets;
    procedure Run;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  Server;

{$R *.dfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  try
    for i:= 0 to 100 do
      Run;

    ShowMessage('No errors encountered');
  except on e: Exception do
    ShowMessage('Error encountered: ' + e.Message);
  end;
end;

procedure TForm1.Run;
begin
  FSQLHttpClientWebsockets := TSQLHttpClientWebsockets.Create('127.0.0.1', '50010' ,TSQLModel.Create([]));
  try
    FSQLHttpClientWebsockets.Model.Owner := FSQLHttpClientWebsockets;
    FSQLHttpClientWebsockets.RetryOnceOnTimeout := true;
    FSQLHttpClientWebsockets.WebSocketsUpgrade(WEBSOCKET_ENCRYPTION_KEY);

    // Fails here when debugging in IDE
    FSQLHttpClientWebsockets.ServiceDefine([IWSSGeneral],sicShared);
  finally
    FSQLHttpClientWebsockets.Free;
  end;
end;

end.