source upload

contrib/mORMot/SQLite3/Samples/31 - WebSockets/Project31ChatClient.dpr

@@ -0,0 +1,85 @@
+/// simple SOA client using callbacks for a chat room
+program Project31ChatClient;
+
+{$APPTYPE CONSOLE}
+
+uses
+  {$I SynDprUses.inc} // use FastMM4 on older versions of Delphi
+  SysUtils,
+  Classes,
+  SynCommons,
+  mORMot,
+  mORMotHttpClient,
+  Project31ChatCallbackInterface in 'Project31ChatCallbackInterface.pas';
+
+type
+  TChatCallback = class(TInterfacedCallback,IChatCallback)
+  protected
+    procedure NotifyBlaBla(const pseudo, msg: string);
+  end;
+
+procedure TChatCallback.NotifyBlaBla(const pseudo, msg: string);
+begin
+  TextColor(ccLightBlue);
+  writeln(#13'@',pseudo,' ',msg);
+  TextColor(ccLightGray);
+  write('>');
+end;
+
+procedure Run;
+var Client: TSQLHttpClientWebsockets;
+    pseudo,msg: string;
+    Service: IChatService;
+    callback: IChatCallback;
+begin
+  writeln('Connecting to the local Websockets server...');
+  Client := TSQLHttpClientWebsockets.Create('127.0.0.1','8888',TSQLModel.Create([]));
+  try
+    Client.Model.Owner := Client;
+    Client.WebSocketsUpgrade(PROJECT31_TRANSMISSION_KEY);
+    if not Client.ServerTimeStampSynchronize then
+      raise EServiceException.Create(
+        'Error connecting to the server: please run Project31ChatServer.exe');
+    Client.ServiceDefine([IChatService],sicShared);
+    if not Client.Services.Resolve(IChatService,Service) then
+      raise EServiceException.Create('Service IChatService unavailable');
+    try
+      TextColor(ccWhite);
+      writeln('Please enter you name, then press [Enter] to join the chat');
+      writeln('Enter a void line to quit');
+      write('@');
+      TextColor(ccLightGray);
+      readln(pseudo);
+      if pseudo='' then
+        exit;
+      callback := TChatCallback.Create(Client,IChatCallback);
+      Service.Join(pseudo,callback);
+      TextColor(ccWhite);
+      writeln('Please type a message, then press [Enter]');
+      writeln('Enter a void line to quit');
+      repeat
+        TextColor(ccLightGray);
+        write('>');
+        readln(msg);
+        if msg='' then
+          break;
+        Service.BlaBla(pseudo,msg);
+      until false;
+    finally
+      callback := nil; // will unsubscribe from the remote publisher
+      Service := nil;  // release the service local instance BEFORE Client.Free
+    end;
+  finally
+    Client.Free;
+  end;
+end;
+
+
+begin
+  try
+    Run;
+  except
+    on E: Exception do
+      ConsoleShowFatalException(E);
+  end;
+end.