Cookies 修改

unit Unit1;  interface  uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, MSHTML;   //在写代码之前我们先引用MSHTML单元  type   TForm1 = class(TForm)     Panel1: TPanel;     Label1: TLabel;     Label2: TLabel;     EdURL: TEdit;     EdCookies: TEdit;     Button1: TButton;     WebBrowser1: TWebBrowser;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure WebBrowser1DocumentComplete(Sender: TObject;       const pDisp: IDispatch; var URL: OleVariant);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;  var   Form1: TForm1;    Doc: IHTMLDocument2; //全局的变量 implementation  {$R *.dfm}  procedure TForm1.Button1Click(Sender: TObject); begin    //我们开始写代码    Webbrowser1.Navigate(EdURL.Text); //打开连接地址    //浏览器 部分  已经搞定了   end;  procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;   const pDisp: IDispatch; var URL: OleVariant); begin   if not Webbrowser1.Busy then  //这句代码的意思是   begin     Doc:=Webbrowser1.Document as IHTMLDocument2; //将Webbrowser1.Document转化为IHTMLDocument2接口     EdCookies.Text:=Doc.cookie; //将获取到的COOKIES放到EdCookies.text里面   end;  end;   procedure TForm1.Button2Click(Sender: TObject); begin   Doc.cookie:=EdCookies.Text;  //设置Doc的COOKIES等于EdCookies.Text   Webbrowser1.Refresh;  //修改后  自动刷新 end;  end.