umain.pas

Delphi实战演练一书的配套光盘

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Classes, HTTPApp;

type
  TMainWebModule = class(TWebModule)
    MainPageProducer: TPageProducer;
    procedure MainWebModulerootAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainWebModule: TMainWebModule;

implementation

{$R *.DFM}


procedure TMainWebModule.MainWebModulerootAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  response.content:=MainPageProducer.content;
end;

end.