tms ws fixes

emiMobileServer/Source/Main.pas

@@ -8,7 +8,7 @@ uses
   Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.ComCtrls, Vcl.Grids,
   System.Generics.Collections, System.IniFiles,
   Auth.Service, Auth.Server.Module, Api.Server.Module, App.Server.Module,
-  ExeInfo, Api.Service, Ws.Server.Module, Ws.Service;
+  ExeInfo, Api.Service, Ws.Server.Module, Ws.Service, WebSocket.Manager;
 
 type
   TFMain = class(TForm)

emiMobileServer/Source/WebSocket.Manager.pas

@@ -232,7 +232,7 @@ begin
 
   for i := 0 to Length(snapshot) - 1 do
   try
-    snapshot[i].WriteString(AMessage);
+    snapshot[i].Send(AMessage);
   except
     // Ignore disconnected or errored connections; they will be cleaned up
     // via the OnDisconnect event.