unit1.~pas

WEB应用程序,delphi示例

unit Unit1;

interface

uses
  SysUtils, Classes, HTTPApp;

type
  TWebModule1 = class(TWebModule)
    procedure WebModule1WebActionItem1Action(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;

end.