Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 07:45:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge branch 'sempare_adaptor_support' of https://github.com/darnocian/delphimvcframework into darnocian-sempare_adaptor_support

Browse Source
This commit is contained in:
Daniele Teti 2024-01-03 11:11:13 +01:00
commit c91d1dd3ec
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/MVCFramework.View.Renderers.Sempare.pas
View File

@ -44,6 +44,7 @@ interface
uses
MVCFramework,
MVCFramework.Commons,
MVCFramework.Logger,
System.Classes,
Sempare.Template;
@ -91,7 +92,7 @@ begin
except
on e: Exception do
begin
writeln(e.Message); // not the most ideal way of doing things... we would want to use a logger
Log.Error('[%s] %s', [e.Classname, e.Message], LOGGERPRO_TAG);
raise e;
end;
end;

2
samples/serversideviews_sempare/ServerSideViewsSempare.dpr
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);