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

FIX in Sample

Browse Source
This commit is contained in:
danieleteti 2015-10-18 16:38:48 +02:00
parent 7ca59a3b88
commit d9b1531aa7
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
samples/serversideviews/SampleControllerU.pas
View File

@ -103,7 +103,7 @@ end;
procedure TSampleController.Index(Ctx: TWebContext);
begin
Redirect('/customers');
Redirect('/index.html');
end;
procedure TSampleController.NewCustomer(Ctx: TWebContext);

3
samples/serversideviews/serversideviews.dpr
View File

@ -5,6 +5,7 @@ program serversideviews;
uses
System.SysUtils,
Winapi.Windows,
Winapi.ShellAPI,
IdHTTPWebBrokerBridge,
Web.WebReq,
Web.WebBroker,
@ -27,6 +28,8 @@ begin
try
LServer.DefaultPort := APort;
LServer.Active := True;
ShellExecute(0, PChar('open'), PChar('http://localhost:8080/index.html'),
nil, nil, SW_SHOWMAXIMIZED);
Writeln('Press ESC to stop the server');
LHandle := GetStdHandle(STD_INPUT_HANDLE);
while True do

1
samples/serversideviews/serversideviews.dproj
View File

@ -195,7 +195,6 @@
</DelphiCompile>
<DCCReference Include="WebModuleU.pas">
<Form>WebModule1</Form>
<FormType>dfm</FormType>
<DesignClass>TWebModule</DesignClass>
</DCCReference>
<DCCReference Include="SampleControllerU.pas"/>