TWebBrowser 获得了它的 cookie

用 TWebBrowser 登录到 cndev，获得了它的 cookie

[阅读: 280] 2009-06-30 12:50:25

AJSTAT_ok_pages=2; AJSTAT_ok_times=1; NoxForumLastLoginCookie=username=cGNwbGF5ZXI=; NoxForumAutoLoginCookie=username=cGNwbGF5ZXI=&password=MTIzNDU2; __utma=108597456.1912997526.1246337188.1246337188.1246337188.1; __utmb=108597456.2.10.1246337188; __utmc=108597456; __utmz=108597456.1246337194.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none)

========================

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
FHTMLDocument := WebBrowser1.Document as IHTMLDocument2;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
S: string;
begin
if Assigned(FHTMLDocument) then S := FHTMLDocument.cookie;

Memo1.Lines.Add(S);
end;