paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

JSON Formatter: serialize enum's string representation, SaveTo(Stream/File) using UTF8, fix ContentType.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4384 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2015-11-09 12:21:26 +00:00
parent 9ddd49bfcd
commit 84e2cd2341
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
wst/trunk/base_json_formatter.pas
View File

@ -21,6 +21,7 @@ uses
const
sFORMAT = 'format';
sCONTENT_TYPE = 'contenttype';
s_json_ContentType = 'application/json';
s_json = 'json';
s_inner_value = '__';
@ -513,7 +514,7 @@ procedure TJsonRpcBaseFormatter.PutEnum(
const AData : TEnumIntType
);
begin
StackTop().CreateIntBuffer(AName,AData);
StackTop().CreateStringBuffer(AName,GetEnumName(ATypeInfo,AData));
end;
procedure TJsonRpcBaseFormatter.PutBool(
@ -638,7 +639,7 @@ var
begin
Result := GetDataBuffer(AName,locBuffer);
if Result then
AData := locBuffer.AsInteger;
AData := GetEnumValue(ATypeInfo,locBuffer.AsString);
end;
function TJsonRpcBaseFormatter.GetBool(
@ -1565,7 +1566,7 @@ end;
procedure TJsonRpcBaseFormatter.SaveToStream(AStream : TStream);
var
locBuffer : string;
locBuffer : UTF8String;
begin
if Assigned(FRootData) then begin
locBuffer := FRootData.AsJSON;