Скачать: CL | DM;

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]

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

---

← →
Ketmar ©   (2006-10-27 00:22) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c