mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-12 00:48:21 +02:00
44 lines
798 B
ObjectPascal
44 lines
798 B
ObjectPascal
unit webmodule;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, HTTPDefs, websession, fpHTTP, fpWeb;
|
|
|
|
type
|
|
|
|
{ TFPWebModule1 }
|
|
|
|
TFPWebModule1 = class(TFPWebModule)
|
|
procedure func1callRequest(Sender: TObject; ARequest: TRequest;
|
|
AResponse: TResponse; var Handled: Boolean);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
FPWebModule1: TFPWebModule1;
|
|
|
|
implementation
|
|
|
|
{ TFPWebModule1 }
|
|
|
|
procedure TFPWebModule1.func1callRequest(Sender: TObject; ARequest: TRequest;
|
|
AResponse: TResponse; var Handled: Boolean);
|
|
begin
|
|
AResponse.Content := '<html><body>Hello World!</body></html>';
|
|
|
|
Handled := true;
|
|
end;
|
|
|
|
initialization
|
|
{$I webmodule.lrs}
|
|
|
|
RegisterHTTPModule('TFPWebModule1', TFPWebModule1);
|
|
end.
|
|
|