Recent

Author Topic: Lazarus IDE v2.2.0+dfsg1-5ubuntu1 using weblaz 1.0 package=Call to abstract met.  (Read 556 times)

DecayAssault

  • New Member
  • *
  • Posts: 13
Hi, all!
I am new to weblaz and I am trying to start my HelloWorld:
Code: Pascal  [Select][+][-]
  1. unit Unit1;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. interface
  6.  
  7. uses
  8.   SysUtils, Classes, httpdefs, fpHTTP, fpWeb, cthreads;
  9.  
  10. type
  11.  
  12.   { TFPWebModule1 }
  13.  
  14.   TFPWebModule1 = class(TFPWebModule)
  15.     procedure DataModuleCreate(Sender: TObject);
  16.     procedure DataModuleRequest(Sender: TObject; ARequest: TRequest;
  17.       AResponse: TResponse; var Handled: Boolean);
  18.   private
  19.  
  20.   public
  21.  
  22.   end;
  23.  
  24. var
  25.   FPWebModule1: TFPWebModule1;
  26.  
  27. implementation
  28.  
  29. {$R *.lfm}
  30.  
  31. { TFPWebModule1 }
  32.  
  33.  
  34.  
  35. procedure TFPWebModule1.DataModuleCreate(Sender: TObject);
  36. begin
  37.  
  38. end;
  39.  
  40. procedure TFPWebModule1.DataModuleRequest(Sender: TObject; ARequest: TRequest;
  41.   AResponse: TResponse; var Handled: Boolean);
  42. begin
  43.  
  44.   AResponse.Content := ARequest.Command;
  45.   Handled := true;
  46.  
  47. end;
  48.  
  49. initialization
  50.   RegisterHTTPModule('TFPWebModule1', TFPWebModule1);
  51. end.
  52.                                        
I am getting error "Call to abstract method at address..."
Why so?
Where I could find .lpr file an write into it
Code: Pascal  [Select][+][-]
  1. Application.LegacyRouting := true;

Thanks :)

 

TinyPortal © 2005-2018