Merge pull request #8 from GlerystonMatos/glerystonmatos/compilationxe6

Settings for compilation in Delphi XE6
HashLoad · Sep 12, 2020 · b7af0ee · b7af0ee
2 parents a15b828 + 3381da2
commit b7af0ee
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Horse.Jhonson.pas b/src/Horse.Jhonson.pas
@@ -40,7 +40,7 @@ procedure Jhonson(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED(FP
 
     if Assigned(LContent) and LContent.InheritsFrom({$IF DEFINED(FPC)}TJsonData{$ELSE}TJSONValue{$ENDIF}) then
     begin
-      LWebResponse.Content := {$IF DEFINED(FPC)}TJsonData(LContent).AsJSON {$ELSE}TJSONValue(LContent).ToJSON{$ENDIF};
+      LWebResponse.Content := {$IF DEFINED(FPC)}TJsonData(LContent).AsJSON {$ELSE}{$IF CompilerVersion > 27.0}TJSONValue(LContent).ToJSON{$ELSE}TJSONValue(LContent).ToString{$ENDIF}{$ENDIF};
       LWebResponse.ContentType := 'application/json';
     end;
   end;