unit1.pas

来自「IntraWeb.Develop.Sample」· PAS 代码 · 共 59 行

unit Unit1;

interface

uses
  SysUtils, Classes, HTTPApp;

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

var
  WebModule1: TWebModule1;

implementation

{$R *.dfm}

procedure TWebModule1.WebModule1Actions0Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  tmp:String;
  Page:TStringList;
begin
  Page:=TStringList.Create;
  try
    with Page do
    begin
      Add('<p align="Center">Page Mode Example!</p>');
      tmp:=Request.URL;
      Add('<p> URL='+tmp+'</p>');

      tmp:=Request.PathInfo;
      Add('<p>PathInfo='+tmp+'</p>');

      tmp:=Request.From;
      Add('<p>From='+tmp+'</p>');
      tmp:=Request.Host;
      Add('<p>Host='+tmp+'</p>');

      tmp:=request.RemoteAddr;
      Add('<p>RemoterAddress='+tmp+'</p>');

      Response.Content:=Page.Text;
    end;
  finally
    Page.Free;
  end;
  Handled:=True;
end;

end.