fpc/packages/fcl-web/examples/echo/fphttp/echo.lpr
svenbarth 16fb199902 * allow port to be specified on command line
* use a standard port as default

git-svn-id: trunk@37949 -
2018-01-12 16:14:25 +00:00

14 lines
182 B
ObjectPascal

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