unit1.pas

来自「Delphi 7组件与分布式应用开发源码,介绍了基础的组件应用实例」· PAS 代码 · 共 60 行

unit Unit1;

interface

uses
  SysUtils, Classes, HTTPApp;

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

var
  WebModule1: TWebModule1;

implementation

{$R *.dfm}

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Response.Content := '<h3>这个例子用于回传HTTP请求的内容</h3>';
  Response.Content := Response.Content + '<p>' + 'Host:'  + Request.Host + '</p>';
  Response.Content := Response.Content + '<p>' + 'RemoteAddr:'  + Request.RemoteAddr + '</p>';
  Response.Content := Response.Content + '<p>' + 'UserAgent:'  + Request.UserAgent + '</p>';
  Response.Content := Response.Content + '<p>' + 'PathInfo:'  + Request.PathInfo + '</p>';
  Response.Content := Response.Content + '<p>' + 'QueryFields:'  + Request.QueryFields.Text + '</p>';
  Response.Content := Response.Content + '<p>' + 'ContentFields:'  + Request.ContentFields.Text + '</p>';
  Handled := True;
end;

procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  i: Integer;
begin
  if Request.QueryFields.Count = 2 then
  begin
    i := StrToInt(Request.QueryFields.Values['Param1']) + StrToInt(Request.QueryFields.Values['Param2']);
    Response.Content := '<h3>';
    Response.Content := Response.Content + '<p>' + Request.QueryFields.Strings[0] + '</p>';
    Response.Content := Response.Content + '<p>' + Request.QueryFields.Strings[1] + '</p>' + '<hr>';
    Response.Content := Response.Content + '<p>' + 'Result=' + IntToStr(i) + '</p>';
    Response.Content := Response.Content + '</p>';
  end
  else
    Response.Content := '<h3>请使用带有完整参数的URL</h3>';
  Handled := True;
end;

end.