Forum > Networking and Web Programming

Lazarus IDE v2.2.0+dfsg1-5ubuntu1 using weblaz 1.0 package=Call to abstract met.

(1/1)

DecayAssault:
Hi, all!
I am new to weblaz and I am trying to start my HelloWorld:

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---unit Unit1; {$mode objfpc}{$H+} interface uses  SysUtils, Classes, httpdefs, fpHTTP, fpWeb, cthreads; type   { TFPWebModule1 }   TFPWebModule1 = class(TFPWebModule)    procedure DataModuleCreate(Sender: TObject);    procedure DataModuleRequest(Sender: TObject; ARequest: TRequest;      AResponse: TResponse; var Handled: Boolean);  private   public   end; var  FPWebModule1: TFPWebModule1; implementation {$R *.lfm} { TFPWebModule1 }   procedure TFPWebModule1.DataModuleCreate(Sender: TObject);begin end; procedure TFPWebModule1.DataModuleRequest(Sender: TObject; ARequest: TRequest;  AResponse: TResponse; var Handled: Boolean);begin   AResponse.Content := ARequest.Command;  Handled := true; end; initialization  RegisterHTTPModule('TFPWebModule1', TFPWebModule1);end.                                        I am getting error "Call to abstract method at address..."
Why so?
Where I could find .lpr file an write into it

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---Application.LegacyRouting := true;
Thanks :)

Navigation

[0] Message Index