unit1.pas

Delphi 7组件与分布式应用开发源码,介绍了基础的组件应用实例

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);
var
  vCount: Integer;
  vTime, s: String;
  StringList1: TStringList;
begin
  //从Cookie中取访问次数和上次访问时间
  s := Request.CookieFields.Values['Count'];
  if s = '' then vCount := 1
            else vCount := StrToInt(s) + 1;
  vTime := Request.CookieFields.Values['Time'];
  //取得的内容显示出来
  Response.Content := '<h3>这是一个Cookie的例子</h3>';
  Response.Content := Response.Content + '<p>这是您第' + IntToStr(vCount) + '次访问这个Web应用程序</p>';
  Response.Content := Response.Content + '<p>您上次访问的时间是' + vTime + '</p>';
  //重新设置Cookie
  vTime := FormatDateTime('yyyy-mm-dd hh:nn:ss', Now);
  StringList1 := TStringList.Create;
  StringList1.Add('Count=' + IntToStr(vCount));
  StringList1.Add('Time=' + vTime);
  Response.SetCookieField(StringList1, '', '', Now + 10, False);
  Handled := True;
end;

end.