Changed exception message text in JSON-RPC client to better identify remote exceptions

This commit is contained in:
Daniele Teti 2019-10-11 00:31:56 +02:00
parent 6bdf5547bc
commit cf3839ef25

View File

@ -217,7 +217,7 @@ begin
fOnReceiveResponse(aJSONRPCObject, lJSONRPCResponse);
end;
if Assigned(lJSONRPCResponse.Error) and FRaiseExceptionOnError then
raise EMVCJSONRPCException.CreateFmt('Error [%d]: %s',
raise EMVCJSONRPCException.CreateFmt('[REMOTE EXCEPTION][%d]: %s',
[lJSONRPCResponse.Error.Code, lJSONRPCResponse.Error.ErrMessage]);
Result := lJSONRPCResponse;
end;