commit 2136694a2045120af80fb7064f600a75f793720c
author Jens Geyer <jensg@apache.org> 周一 12月 30 22:04:51 2013 +0100
committer Jens Geyer <jensg@apache.org> 周一 12月 30 22:06:08 2013 +0100
tree ad3016c9f18e8108456315520d5d8c4f32d16536
parent ad0141aea57f7a5881a9c899a74445f8825fc267

THRIFT-2297: TJsonProtocol implementation for Delphi does not allow for both possible slash (solidus) encodings, including a test case

Patch: Jens Geyer

lib/delphi/src/Thrift.Protocol.JSON.pas

diff --git a/lib/delphi/src/Thrift.Protocol.JSON.pas b/lib/delphi/src/Thrift.Protocol.JSON.pas
index 2cc4bbd..cce6c3c 100644
--- a/lib/delphi/src/Thrift.Protocol.JSON.pas
+++ b/lib/delphi/src/Thrift.Protocol.JSON.pas
@@ -264,8 +264,8 @@
                      0,0,0,0, 0,0,0,0, 0,0,0,0,  0,0,0,0,
                      1,1,Byte('"'),1,  1,1,1,1, 1,1,1,1, 1,1,1,1);
 
-  ESCAPE_CHARS     = '"\btnfr';
-  ESCAPE_CHAR_VALS = '"\'#8#9#10#12#13;
+  ESCAPE_CHARS     = '"\/btnfr';
+  ESCAPE_CHAR_VALS = '"\/'#8#9#10#12#13;
 
   DEF_STRING_SIZE = 16;