Webbrowser 如何导入Cookie问题

[baody8]

Cookie文件保存在MyCookie.txt, 这样导入不对吗，怎么无效呢

   
doc:=wb1.Document as ihtmldocument2;

AssignFile(wText, 'MyCookie.txt');
Reset(WText);
Readln(WText,s);

doc.cookie:= s; //导入Cooike

[安禄山中兴大唐]

看贴的代码，可能页面应该已经加载完毕了吧，然后再导入cookie的话，页面上的脚本都已经执行完毕了，自然不会有什么变化。 可以试着直接用js代码操作cookie，然后delphi调用js代码。

[lyhoo163]

procedure TForm1.Button1Click(Sender: TObject);
var document: IHTMLDocument2;      //定义变量
    cookies: String;
begin
  document := WebBrowser.Document as IHTMLDocument2;
  document.cookie:=edit1.text;     // 通过edit1指定cookie赋值给document
  WebBrowser1.Refresh;             // 刷新页面,修改cookie
end;

试试。

[baody8]

引用 2 楼 lyhoo163 的回复:

procedure TForm1.Button1Click(Sender: TObject);
var document: IHTMLDocument2;      //定义变量
    cookies: String;
begin
  document := WebBrowser.Document as IHTMLDocument2;
  document.cookie:=edit1.text;     // 通过edit1指定cookie赋值给document
  WebBrowser1.Refresh;             // 刷新页面,修改cookie
end;

试试。

哎不行