Commit 7702a8a7 by Michael Brachmann

debugging websocket

parent 7cacc435
...@@ -25,8 +25,5 @@ object WsServerModule: TWsServerModule ...@@ -25,8 +25,5 @@ object WsServerModule: TWsServerModule
object XDataServer1CORS: TSparkleCorsMiddleware object XDataServer1CORS: TSparkleCorsMiddleware
Methods = 'Get' Methods = 'Get'
end end
object XDataServer1JWT: TSparkleJwtMiddleware
OnGetSecret = XDataServer1JWTGetSecret
end
end end
end end
...@@ -9,7 +9,7 @@ uses ...@@ -9,7 +9,7 @@ uses
Aurelius.Drivers.Interfaces, Aurelius.Drivers.Interfaces,
XData.Aurelius.ConnectionPool, XData.Server.Module, Sparkle.Comp.Server, XData.Aurelius.ConnectionPool, XData.Server.Module, Sparkle.Comp.Server,
XData.Comp.Server, XData.Comp.ConnectionPool, Sparkle.Comp.HttpSysDispatcher, XData.Comp.Server, XData.Comp.ConnectionPool, Sparkle.Comp.HttpSysDispatcher,
Sparkle.Comp.JwtMiddleware, Sparkle.Middleware.Jwt, Aurelius.Criteria.Linq, Aurelius.Criteria.Linq,
Sparkle.HttpServer.Module, Sparkle.HttpServer.Context, Sparkle.HttpServer.Module, Sparkle.HttpServer.Context,
Sparkle.Comp.CompressMiddleware, Sparkle.Comp.CorsMiddleware, Sparkle.Comp.CompressMiddleware, Sparkle.Comp.CorsMiddleware,
Sparkle.Comp.GenericMiddleware, Sparkle.Middleware.WebSocket, Sparkle.Comp.WebSocketMiddleware, Sparkle.Comp.GenericMiddleware, Sparkle.Middleware.WebSocket, Sparkle.Comp.WebSocketMiddleware,
...@@ -22,12 +22,10 @@ type ...@@ -22,12 +22,10 @@ type
XDataServer1: TXDataServer; XDataServer1: TXDataServer;
XDataServer1Logging: TSparkleGenericMiddleware; XDataServer1Logging: TSparkleGenericMiddleware;
XDataServer1CORS: TSparkleCorsMiddleware; XDataServer1CORS: TSparkleCorsMiddleware;
XDataServer1JWT: TSparkleJwtMiddleware;
XDataServer1WebSocket: TSparkleWebSocketMiddleware; XDataServer1WebSocket: TSparkleWebSocketMiddleware;
procedure XDataServer1LoggingMiddlewareCreate(Sender: TObject; procedure XDataServer1LoggingMiddlewareCreate(Sender: TObject;
var Middleware: IHttpServerMiddleware); var Middleware: IHttpServerMiddleware);
procedure XDataServer1JWTGetSecret(Sender: TObject; var Secret: string);
private private
{ Private declarations } { Private declarations }
public public
...@@ -86,10 +84,4 @@ begin ...@@ -86,10 +84,4 @@ begin
Middleware := TLoggingMiddleware.Create(Logger, 1); Middleware := TLoggingMiddleware.Create(Logger, 1);
end; end;
procedure TWsServerModule.XDataServer1JWTGetSecret(Sender: TObject;
var Secret: string);
begin
Secret := serverConfig.jwtTokenSecret;
end;
end. end.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment