From 505eed8501293a563753910a3e6372ac261128d9 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 3 Jul 2015 10:46:22 +0000
Subject: [PATCH] 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 | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/wst/trunk/server_service_intf.pas b/wst/trunk/server_service_intf.pas
index b53161e61..39093a84a 100644
--- a/wst/trunk/server_service_intf.pas
+++ b/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);