zoukankan      html  css  js  c++  java
  • Delphi Cookie获取及使用

    以下方法为网上搜集整理,留做备份,随时更新

    一:通过URL获取

    CanGetIECookie(URL,g_cookie);

    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;

    二:从响应报文中获取

    idc := TIdHTTP.Create(nil);

    for i := 0 to idc.Response.RawHeaders.Count - 1 do
          begin
            tmp := Idc.Response.RawHeaders[i];
            if pos('cookie:', LowerCase(tmp)) = 0 then
              Continue;

            tmp := Trim(Copy(tmp, Pos('Cookie:', tmp) + Length('Cookie:'), Length(tmp)));

            if cookie = '' then
              cookie := tmp
            else
              cookie := cookie + '; ' + tmp;
          end;

    三:通过TWebBrowser 控件获取

    WB_logon: TWebBrowser

    cookie := WB_logon.OleObject.document.cookie;

    将cookie添加至请求中

    var

      idc : TIDHTTP;

    begin

      idc := TIdHTTP.Create(nil);

      idc.Request.CustomHeaders.Add('cookie:' + g_cookie);

    end;

  • 相关阅读:
    linux 开机启动设置
    Ubuntu安装Oracle时出现乱码,及其他安装错误
    ubuntu 设置DNS
    opencv cuda TK1 TX1 兼容设置
    int to string
    post文件的html
    vc 获得调用者的模块名称
    dlib landmark+人面识别
    android破解
    jquery $(document).ready() 与window.onload的区别
  • 原文地址:https://www.cnblogs.com/limingliyu/p/5652008.html
Copyright © 2011-2022 走看看