Delphi Cookie获取及使用

最新推荐文章于 2024-08-10 15:17:20 发布

Just do it

最新推荐文章于 2024-08-10 15:17:20 发布

阅读量711

点赞数

原文链接：http://www.cnblogs.com/limingliyu/p/5652008.html

版权

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

一：通过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;

转载于:https://www.cnblogs.com/limingliyu/p/5652008.html