aula18-parte01

Cesar4D · Cesar4D · commit 4901ffa2ad9d · 2025-05-01T00:50:42.000-03:00
diff --git a/Server/Src/XData.DM.dfm b/Server/Src/XData.DM.dfm
@@ -13,6 +13,10 @@ object XDataDM: TXDataDM
     end
     object XDataServer1Compress: TSparkleCompressMiddleware
     end
+    object XDataServer1JWT: TSparkleJwtMiddleware
+      ForbidAnonymousAccess = True
+      OnGetSecretEx = XDataServer1JWTGetSecretEx
+    end
   end
   object SparkleHttpSysDispatcher1: TSparkleHttpSysDispatcher
     Left = 128
diff --git a/Server/Src/XData.DM.pas b/Server/Src/XData.DM.pas
@@ -12,14 +12,17 @@ interface
   Sparkle.Comp.HttpSysDispatcher,
   XData.Comp.Server,
   Sparkle.Comp.CompressMiddleware,
-  Sparkle.Comp.CorsMiddleware;
+  Sparkle.Comp.CorsMiddleware, Sparkle.Comp.JwtMiddleware;
 
 type
   TXDataDM = class(TDataModule)
     XDataServer1: TXDataServer;
     SparkleHttpSysDispatcher1: TSparkleHttpSysDispatcher;
     XDataServer1CORS: TSparkleCorsMiddleware;
     XDataServer1Compress: TSparkleCompressMiddleware;
+    XDataServer1JWT: TSparkleJwtMiddleware;
+    procedure XDataServer1JWTGetSecretEx(Sender: TObject; const JWT: TJWT; Context: THttpServerContext;
+      var Secret: TBytes);
   private
 
   public
@@ -35,4 +38,10 @@ implementation
 
 {$R *.dfm}
 
+procedure TXDataDM.XDataServer1JWTGetSecretEx(Sender: TObject; const JWT: TJWT; Context: THttpServerContext;
+  var Secret: TBytes);
+begin
+  Secret := TEncoding.UTF8.GetBytes('sua-chave-secreta-1234567890-12345');
+end;
+
 end.
