TCustomWebApplication

type TCustomWebApplication = class(TCustomApplication)

protected

  procedure DoRun; override;

  function CreateEventLog; virtual;

  procedure FreeEventLog(); virtual;

  function InitializeWebHandler; virtual; abstract;

  procedure DoLog(); override;

  procedure SetTitle(); override;

  property WebHandler: TWebHandler; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure CreateForm();

  procedure Initialize; override;

  procedure Terminate; override;

  property HandleGetOnPost: Boolean; [rw]

  property RedirectOnError: Boolean; [rw]

  property RedirectOnErrorURL: string; [rw]

  property ApplicationURL: string; [rw]

  property AllowDefaultModule: Boolean; [rw]

  property DefaultModuleName: string; [rw]

  property ModuleVariable: string; [rw]

  property OnGetModule: TGetModuleEvent; [rw]

  property Email: string; [rw]

  property Administrator: string; [rw]

  property OnShowRequestException: TOnShowRequestException; [rw]

  property OnUnknownRequestEncoding: TOnUnknownEncodingEvent; [rw]

  property EventLog: TEventLog; [r]

  property PreferModuleName: Boolean; [rw]

  property LegacyRouting: Boolean; [rw]

end;

TCustomWebApplication

TObject