1 files changed, 43 insertions, 0 deletions
diff --git a/packages/fcl-web/examples/helloworld/webmodule/webmodule.pas b/packages/fcl-web/examples/helloworld/webmodule/webmodule.pas
new file mode 100644
index 0000000000..1a5f746800
--- /dev/null
+++ b/packages/fcl-web/examples/helloworld/webmodule/webmodule.pas
@@ -0,0 +1,43 @@
+unit webmodule;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, HTTPDefs, 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
+
+{$R *.lfm}
+
+{ 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
+  RegisterHTTPModule('TFPWebModule1', TFPWebModule1); 
+end.
+