Hi, all!
I am new to weblaz and I am trying to start my HelloWorld:
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
Application.LegacyRouting := true;
Thanks
