求解 用webbrowser登陸獲取cookie，再用idhttp去get為什么還是登錄之前的資訊
代碼如下:
IDhttp2:= TIdHTTP.Create(nil);
IDhttp2.ReadTimeout :=20000; //超時
IDHttp2.ConnectTimeout:=10000;
IDhttp2.AllowCookies:=false; //自定義管理cookie
IDhttp2.Request.ContentType:='application/x-www-form-urlencoded; charset=UTF-8';
IDhttp2.Request.UserAgent:='Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0)';
IDhttp2.Request.Accept:='Accept=*/*';
IDhttp2.Request.AcceptCharSet:='gb2312,utf-8;q=0.7,*;q=0.7';
IDhttp2.Request.Referer:='https://kyfw.12306.cn/otn/login/init';
IDhttp2.Request.AcceptLanguage:='zh-cn';
IDhttp2.HandleRedirects := True; //支持重定向
IDhttp2.Request.CacheControl := 'no-cache'; //不快取
IDhttp2.Request.AcceptEncoding := 'identity';// 'gzip, deflatee'; 壓縮格式，如果不需要，就置空
IDhttp2.Request.Host :='kyfw.12306.cn'; //主機網址
IDhttp2.HTTPOptions := IDhttp2.HTTPOptions + [hoKeepOrigProtocol];//設定協議
IDhttp2.ProtocolVersion := pv1_1;
IDhttp2.Request.Connection := 'Keep-Alive';
IDHttp2.IOHandler:=Form2.IDsl1;
URL:='http://bbs.csdn.net/home';
WEBCooKies :=(wB1.document as ihtmldocument2).cookie;
CookieStr := 'Cookie: ' + WEBCooKies;
Form2.mmo2.Text:= CookieStr ;
idHttp2.Request.CustomHeaders.Text:=CookieStr;
Form2.mmo1.Text:=UTF8Decode(IDHttp2.Get(URL));
uj5u.com熱心網友回復：
問題出在獲取webBrowser的cookie上，這么取并不能取到所有的cookie資訊。你可以把自己取到的cookie顯示出來和抓包的對比下就知道了。
獲取瀏覽器cookie可以用以下這個函式：
function GetCookie(url: string): string;
const
INTERNET_COOKIE_HTTPONLY = $00002000;
INTERNET_COOKIE_THIRD_PARTY = $00000010;
INTERNET_FLAG_RESTRICTED_ZONE= $00020000;
var
hModule:THandle;
InternetGetCookieEx:function(lpszUrl, lpszCookieName,lpszCookieData: PChar; var lpdwSize: DWORD;dwFlags:DWORD;lpReserved: Pointer): BOOL;StdCall;
CookieSize:DWORD;
cookiedata:PWideChar;
thebool:bool;
begin
result := '';
hModule:=GetModuleHandle('wininet.dll');
if hModule<>0 then
begin
@InternetGetCookieEx:=GetProcAddress(hModule,'InternetGetCookieExW');
if @InternetGetCookieEx<>nil then
begin
CookieSize:=10240;
Cookiedata := AllocMem(CookieSize);
thebool:=InternetGetCookieEx(PWideChar(url),nil,CookieData,CookieSize,INTERNET_COOKIE_HTTPONLY,nil);
if thebool then result := CookieData;
FreeMem(Cookiedata);
end;
FreeLibrary(hModule);
end;
end;
uj5u.com熱心網友回復：
參考 樓主 kfuuuupl8 的回復: 求解 用webbrowser登陸獲取cookie，再用idhttp去get為什么還是登錄之前的資訊
您好：有您這種方法我得不到COOKIE。是咋回事啊
uj5u.com熱心網友回復：
參考 1 樓 lynmison 的回復: 問題出在獲取webBrowser的cookie上，這么取并不能取到所有的cookie資訊。你可以把自己取到的cookie顯示出來和抓包的對比下就知道了。
您好：有您這種方法我得不到COOKIE。是咋回事啊
uj5u.com熱心網友回復：
有個專門的cookie管理控制元件，在他的事件里獲取的cookie
uj5u.com熱心網友回復：
參考 3 樓 kfuuuupl8 的回復: Quote: 參考 1 樓 lynmison 的回復:
DEBUG 運行下看函式是否正常執行，這個函式我都收納為自己的api了，目前沒有碰到過運行例外的。
uj5u.com熱心網友回復：
參考 5 樓 lynmison 的回復: Quote: 參考 3 樓 kfuuuupl8 的回復: Quote: 參考 1 樓 lynmison 的回復:
大神有QQ嗎，，私聊幫我解決一下問題！！
uj5u.com熱心網友回復：
你弄個簡單的小demo傳上來，我幫你找找問題。
uj5u.com熱心網友回復：
哪有這么個寫法： idHttp2.Request.CustomHeaders.Text:=CookieStr; ！！！！！！！！！！！
是不是應該給IdHttp設定CookieManager， 然后： CookieManager.AddServerCookie();
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/78879.html
標籤：網絡通信/分布式開發
上一篇：Delphi XE5 正式版發布了，附下載
下一篇：cxdbtreelist 復選框 取值
