delphi 怎么将webbrowser的cookie给idhttp用

Question

如题所述

Answer 1

在 delphi 里，通过 WebBrowser 访问登录某站点后，将其 Cookie 数据传递给 IdHttp 控件使用，是一个常见的应用，以下是示例代码：

var JzCookie:string

//用 WebBrowser ç™»å½•æŒ‡ç‚¹ç«™ç‚¹
WebBrowser.Navigate('网址'); 
//等待站点响应完毕
while Web.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;
//获取 WebBrowser çš„ cookie å€¼
JzCookie := 'Cookie: ' + (Web.document as IHtmlDocument2).cookie;
//将 Cookie ä¼ é€’ç»™ IdHttp ç»„件
IdHTTP1.Request.CustomHeaders.Text := JzCookie;