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;