• idhttp与Webbrowser共享Cookie

    • 让idhttp与浏览器共享Cookie信息,这样只要浏览器登录以后,idhttp就不用登录了,抓取数据包神马的就是浮云了。

      uses
      ..., WinInet;


      function CanGetIECookie(const URL: string; var Cookie: string): boolean;
      var
      lpvBuffer: array[0..1000] of byte;
      lpdwBufferLength: cardinal;
      begin
      lpdwBufferLength := sizeof(lpvBuffer);
      result := InternetGetCookie(PChar(URL), nil, @lpvBuffer, lpdwBufferLength);
      if result then
      Cookie := pchar(@lpvBuffer);
      end;


      if CanGetIECookie(url, str) then
      begin
      CookieStr := 'Cookie: ' + str;
      idHttp1.Request.CustomHeaders.Text := CookieStr;
      Memo1.Lines.Text := IdHTTP1.Get(WebSite);
      end;

      标签: webbrowser, cookie, idhttp

    • 当前暂无评论 »

      • 发表评论: ( 注意:为了防止广告评论,本站链接已经启用nofollow)
      •   您的名字
      •   E-mail
      •   您的网址(选填)

Powered by Typecho)))   ICP:蜀ICP备05009250号