/components/fpweb/demo/helloworld/cgi/webmodule.pas

http://github.com/graemeg/lazarus · Pascal · 43 lines · 23 code · 14 blank · 6 comment · 0 complexity · dbb95ff71ba79b956742f8a6416c4dcf MD5 · raw file 

    

  1. unit webmodule; 
    2. 

  2. 

  3. {$mode objfpc}{$H+}
    4. 

  4. 

  5. interface
    6. 

  6. 

  7. uses
    8. 

  8.   Classes, SysUtils, FileUtil, LResources, HTTPDefs, websession, fpHTTP, fpWeb; 
    9. 

  9. 

  10. type
    11. 

  11. 

  12.   { TFPWebModule1 }
    13. 

  13. 

  14.   TFPWebModule1 = class(TFPWebModule)
    15. 

  15.     procedure func1callRequest(Sender: TObject; ARequest: TRequest;
    16. 

  16.       AResponse: TResponse; var Handled: Boolean);
    17. 

  17.   private
    18. 

  18.     { private declarations }
    19. 

  19.   public
    20. 

  20.     { public declarations }
    21. 

  21.   end; 
    22. 

  22. 

  23. var
    24. 

  24.   FPWebModule1: TFPWebModule1; 
    25. 

  25. 

  26. implementation
    27. 

  27. 

  28. { TFPWebModule1 }
    29. 

  29. 

  30. procedure TFPWebModule1.func1callRequest(Sender: TObject; ARequest: TRequest;
    31. 

  31.   AResponse: TResponse; var Handled: Boolean);
    32. 

  32. begin
    33. 

  33.   AResponse.Content := '<html><body>Hello World!</body></html>';
    34. 

  34. 

  35.   Handled := true;
    36. 

  36. end;
    37. 

  37. 

  38. initialization
    39. 

  39.   {$I webmodule.lrs}
    40. 

  40. 

  41.   RegisterHTTPModule('TFPWebModule1', TFPWebModule1); 
    42. 

  42. end.
    43.