Force loading from file

This commit is contained in:
Conrad Vermeulen 2024-01-02 16:28:59 +00:00
parent 5b151feffa
commit 6e99ace343

View File

@ -10,6 +10,7 @@ uses
Winapi.ShellAPI,
Winapi.Windows,
{$ENDIF }
Sempare.Template,
IdHTTPWebBrokerBridge,
Web.WebReq,
Web.WebBroker,
@ -27,6 +28,7 @@ procedure RunServer(APort: Integer);
var
LServer: TIdHTTPWebBrokerBridge;
begin
TTemplateRegistry.Instance.LoadStrategy := [tlsLoadFile];
ReportMemoryLeaksOnShutdown := True;
Writeln(Format('Starting HTTP Server on port %d', [APort]));
LServer := TIdHTTPWebBrokerBridge.Create(nil);