本文整理自网络，侵删。
以下方法为网上搜集整理,留做备份，随时更新
一：通过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;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
