Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

webbrowser и кукисы [D6, XP]

Raptoridze © (2006-10-25 02:55:00)
имееться twebbrowser на форме
я делаю webbrowser1.navigate(' http://yandex.ru');
как мне после загрузки почистить кукисы от домена яндекс?

Ketmar (2006-10-27 00:22:00) [1]
вообще-то, в MSDN всё есть. но учитывая название конференции -- не стану туда отсылать. %-) а вообще -- WinInet: FindFirstUrlCacheEntry(), FindNextUrlCacheEntry(), DeleteUrlCacheEntry(), etc...

Raptoridze (2006-10-27 00:04:00) [2]
ок, тогда как можно почистить кукисы не используя ие, я например пытался делать так, просто находил файл на винте и удалял его, но работает только после перезапуска ие
а так на лету не удаляет из кеша

Ketmar (2006-10-27 00:01:00) [3]
>[4] Raptoridze 26-Oct-2006, 23:59
>а есть какие то предложения лучше?)
лично я IE не использую. и никому не советую. %-)
но [1] -- это абсолютная бредятина, к твоему вопросу отношения не имеющая.

Raptoridze (2006-10-26 23:59:00) [4]
> Ketmar ©
а есть какие то предложения лучше?)

Ketmar (2006-10-26 23:51:00) [5]
>[1] LexXL 25-Oct-2006, 08:22
ну и какого ангела ты сюда кинул кучу дурно пахнущего мусора?

Raptoridze (2006-10-26 23:45:00) [6]
как это все примнить хз )) особенно эти ивентсы

LexXL (2006-10-25 08:22:00) [7]
поковыряйся может-поможет;
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.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »