Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.145.119.199] |
|
Сообщ.
#1
,
|
|
|
Вот пример кода:
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, HTTPApp, WebUtils; 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); var List: TStringList; begin List := TStringList.Create; try List.Add('LastVisit=' + FormatDateTime('mm/dd/yyyy hh:mm:ss', Now)); Response.SetCookieField(List, '', '', Now + 10, False); Response.Content := 'Cookie set -- ' + Response.Cookies[0].Name; finally List.Free; end; Handled := True; end; procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); var Params: TParamsList; begin Params := TParamsList.Create; try Params.AddParameters(Request.CookieFields); Response.Content := 'You last set the cookie on ' + Params['LastVisit']; finally Params.Free; end; end; end. А вот пример странички: <!-- This document was created with HomeSite v2.0 --> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"> <HTML> <HEAD> <TITLE>Delphi 4 Developer's Guide Cookie Setting and Retreiving Example</TITLE> </HEAD> <BODY BGCOLOR="Silver"> <FONT SIZE="+1"><FONT SIZE="+1"><FONT COLOR="Red"><B>Delphi 4 Developer's Guide - Cookie Example</B></FONT></FONT></FONT> <P> The following links set and get a cookie onto your browser<P> <A HREF="../bin/cookie.dll/cookie">Click Here</A> to set the cookies <P> <A HREF="../bin/cookie.dll/getcookie">Click Here</A> to get cookie. </BODY> </HTML> © Delphi 4 Developer's Guide |