source: trunk/Pages/PageNotFound.pas

unit PageNotFound;

interface

uses
  Classes, SysUtils, WebPage, HTTPServer;

type

  { TPageNotFound }

  TPageNotFound = class(TWebPage)
    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
  end;

var
  PageNotFound: TPageNotFound;


implementation

{$R *.lfm}

uses
  WebSession;

{ TPageNotFound }

procedure TPageNotFound.DataModuleProduce(HandlerData: THTTPHandlerData);
begin
  with TWebSession(HandlerData), HtmlDocument.Body, SubItems.AddString do begin
    Response.StatusCode := StatusCodeNotFound;
    Text := Format(SPageNotFound, [Request.Path.Implode('/')]);
    GeneratePage(Self);
  end;
end;

end.