paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 17:10:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

* allow port to be specified on command line

Browse Source 
* use a standard port as default

git-svn-id: trunk@37949 -
This commit is contained in:
svenbarth 2018-01-12 16:14:25 +00:00
parent 84632a39e0
commit 16fb199902
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/examples/echo/fphttp/echo.lpr
View File

@ -3,10 +3,10 @@ program echo;
{$mode objfpc}{$H+}
uses
fphttpapp, wmecho;
SysUtils, fphttpapp, wmecho;
begin
Application.Port:=2018;
Application.Port:=StrToIntDef(ParamStr(1), 8080);
Application.Initialize;
Application.Run;
end.