Server Exception reporting to client: For the server to report the "faultCode" and the "faultString", a service implementation should raise an exception that inherits from "EBaseRemoteException".

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4201 8e941d3f-bd1b-0410-a28a-d453659cc2b4

wst/trunk/server_service_intf.pas

@@ -520,6 +520,12 @@ begin
       end;
     end;
   except
+    on e : EBaseRemoteException do begin
+      f.Clear();
+      f.SetSerializationStyle(ssNodeSerialization);
+      f.BeginExceptionList(e.FaultCode,e.FaultString);
+      f.EndExceptionList();
+    end;
     on e : Exception do begin
       f.Clear();
       f.SetSerializationStyle(ssNodeSerialization);