Bug lazarus

HashLoad · Jan 13, 2021 · bdd4172 · bdd4172
1 parent 93155ef
commit bdd4172
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 7 deletions.
diff --git a/samples/lazarus/boss-lock.json b/samples/lazarus/boss-lock.json
@@ -1,11 +1,11 @@
 {
-	"hash": "d41d8cd98f00b204e9800998ecf8427e",
-	"updated": "2020-11-04T21:25:53.8317735-03:00",
+	"hash": "a4a6a33a3c5fb414fef69b653c591e0a",
+	"updated": "2021-01-13T10:38:00.9794777-03:00",
 	"installedModules": {
 		"github.com/hashload/horse": {
 			"name": "horse",
-			"version": "v2.0.3",
-			"hash": "fb7144725ff788c49af1307f97f23b5a",
+			"version": "2.0.8",
+			"hash": "f0d9be7d8b5059a6e99397562d39306c",
 			"artifacts": {},
 			"failed": false,
 			"changed": false

diff --git a/samples/lazarus/boss.json b/samples/lazarus/boss.json
@@ -6,6 +6,6 @@
 	"mainsrc": "./",
 	"projects": [],
 	"dependencies": {
-		"github.com/hashload/horse": "^v2.0.3"
+		"github.com/hashload/horse": "^v2.0.8"
 	}
 }
diff --git a/src/Horse.Jhonson.pas b/src/Horse.Jhonson.pas
@@ -39,7 +39,7 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED
 var
   LJSON: {$IF DEFINED(FPC)}TJsonData{$ELSE}TJSONValue{$ENDIF};
 begin
-  if ({$IF DEFINED(FPC)} StringCommandToMethodType(LWebRequest.Method)
+  if ({$IF DEFINED(FPC)} StringCommandToMethodType(Req.RawWebRequest.Method)
     {$ELSE} Req.RawWebRequest.MethodType{$ENDIF} in [mtPost, mtPut]) and (Req.RawWebRequest.ContentType = 'application/json') then
   begin
     LJSON := {$IF DEFINED(FPC)} GetJSON(Req.Body) {$ELSE}TJSONObject.ParseJSONValue(Req.Body){$ENDIF};
@@ -51,7 +51,7 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED
     if (Res.Content <> nil) and Res.Content.InheritsFrom({$IF DEFINED(FPC)}TJsonData{$ELSE}TJSONValue{$ENDIF}) then
     begin
       {$IF DEFINED(FPC)}
-      LWebResponse.ContentStream := TStringStream.Create(TJsonData(LContent).AsJSON);
+      Res.RawWebResponse.ContentStream := TStringStream.Create(TJsonData(Res.Content).AsJSON);
       {$ELSE}
       Res.RawWebResponse.Content := {$IF CompilerVersion > 27.0}TJSONValue(Res.Content).ToJSON{$ELSE}TJSONValue(LContent).ToString{$ENDIF};
       {$ENDIF}