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

JsonRPC : Fix error finding, content type.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4385 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2015-11-09 12:25:35 +00:00
parent 84e2cd2341
commit 50422d2d69
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/json_formatter.pas
View File

@ -179,7 +179,7 @@ Var
begin begin
ClearStack(); ClearStack();
PushStack(GetRootData(),stObject); PushStack(GetRootData(),stObject);
elt := GetRootData().Elements[s_json_error]; elt := GetRootData().Find(s_json_error);
if Assigned(elt) and elt.InheritsFrom(TJSONObject) then begin if Assigned(elt) and elt.InheritsFrom(TJSONObject) then begin
remoteErr := TJSONObject(elt); remoteErr := TJSONObject(elt);
i := remoteErr.IndexOfName(s_json_code); i := remoteErr.IndexOfName(s_json_code);
@ -239,7 +239,7 @@ begin
Assert(Assigned(ATransport)); Assert(Assigned(ATransport));
propMngr := ATransport.GetPropertyManager(); propMngr := ATransport.GetPropertyManager();
propMngr.SetProperty( propMngr.SetProperty(
s_json_ContentType, sCONTENT_TYPE,
s_json s_json
); );
propMngr.SetProperty( propMngr.SetProperty(