webbrowser и кукисы

← →
Raptoridze (2006-10-25 02:55) [0]

имееться twebbrowser на форме
я делаю webbrowser1.navigate("http://yandex.ru");
как мне после загрузки почистить кукисы от домена яндекс?

← →
LexXL (2006-10-25 08:22) [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.

← →
Raptoridze (2006-10-26 23:45) [2]

как это все примнить хз )) особенно эти ивентсы

← →
Ketmar © (2006-10-26 23:51) [3]

>[1] LexXL 25-Oct-2006, 08:22
ну и какого ангела ты сюда кинул кучу дурно пахнущего мусора?

← →
Raptoridze (2006-10-26 23:59) [4]

> Ketmar ©
а есть какие то предложения лучше?)

← →
Ketmar © (2006-10-27 00:01) [5]

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

← →
Raptoridze (2006-10-27 00:04) [6]

ок, тогда как можно почистить кукисы не используя ие, я например пытался делать так, просто находил файл на винте и удалял его, но работает только после перезапуска ие
а так на лету не удаляет из кеша

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

webbrowser и кукисы Найти похожие ветки