Adjusted Access Violation without TSession Class set

HashLoad · Jul 9, 2019 · a42ff71 · a42ff71
1 parent c52582d
commit a42ff71
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/src/Horse.JWT.pas b/src/Horse.JWT.pas
@@ -63,12 +63,11 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: TProc);
         LJSON := LJWT.GetClaims.JSON;
 
         if Assigned(SessionClass) then
-        begin
-          LSession := SessionClass.Create;
-          TJson.JsonToObject(LSession, LJSON);
-        end
+          LSession := SessionClass.Create
         else
-          LSession := LJSON;
+          LSession := TJSONValue.Create;
+
+        TJson.JsonToObject(LSession, LJSON);
 
         THorseHackRequest(Req).SetSession(LSession);
 
@@ -97,4 +96,4 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: TProc);
   end;
 end;
 
-end.
+end.