pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Server side Exceptions forwarding to client fix.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4510 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2016-02-16 19:36:30 +00:00
parent 980f7f882d
commit 11ff04e6c3
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/server_service_intf.pas
View File

@ -523,6 +523,8 @@ begin
on e : EBaseRemoteException do begin on e : EBaseRemoteException do begin
f.Clear(); f.Clear();
f.SetSerializationStyle(ssNodeSerialization); f.SetSerializationStyle(ssNodeSerialization);
if (e.FaultString = '') and (e.Message <> '') then
e.FaultString := e.Message;
f.BeginExceptionList(e.FaultCode,e.FaultString); f.BeginExceptionList(e.FaultCode,e.FaultString);
f.EndExceptionList(); f.EndExceptionList();
end; end;