mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-09 02:26:06 +02:00
35 lines
986 B
ObjectPascal
35 lines
986 B
ObjectPascal
{
|
|
This file is part of the Free Component Library (FCL)
|
|
Copyright (c) 2017-2018 by the Free Pascal development team
|
|
|
|
Windows HTTP Server API based TCustomWebApplication
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
program echo;
|
|
|
|
uses
|
|
fpHTTPSys, wmecho;
|
|
|
|
{
|
|
Before using this example you need to add the URL to the system using a
|
|
comand like the following (executed with Administrator priviledges):
|
|
|
|
netsh http add urlacl url=http://+:80/fpweb user=DOMAIN\User
|
|
|
|
Whereby DOMAIN\User is the user or group you want to execute this example in.
|
|
}
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.Urls.Add('http://+:80/fpweb');
|
|
Application.Run;
|
|
end.
|
|
|