Для своего браузера -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.145.191.22]

Модераторы: Rouse_, jack128, Krid

Ссылки по теме:

Для своего браузера! (Как мне сохранить свой КУКИ?)

Для своего браузера! , Как мне сохранить свой КУКИ?

--= Eagle =--

Сообщ. #1 , 09.05.05, 10:02

чудо в перьях

Профиль · PM

Вот пример кода:

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.

А вот пример странички:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">

<HTML>

<HEAD>

<TITLE>Delphi 4 Developer's Guide Cookie Setting and Retreiving Example</TITLE>

</HEAD>

Delphi 4 Developer's Guide - Cookie Example

The following links set and get a cookie onto your browser

<A HREF="../bin/cookie.dll/cookie">Click Here</A> to set the cookies

<A HREF="../bin/cookie.dll/getcookie">Click Here</A> to get cookie.

</BODY>

</HTML>

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0206 ] [ 16 queries used ] [ Generated: 3.05.24, 14:05 GMT ]