mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-17 05:40:36 +01:00
14 lines
182 B
ObjectPascal
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.
|
|
|