繼之前利用delphi 2010 嚐試確遇到 SOCKER Eroor #0
目前改用Delphi studio 10 Seattle編寫已無SOCKER Error #0 的問題
但卻發生了 〔你的瀏覽器不允許你登入。(cookies被拒絕)〕
不知有沒有前輩遇過這問題，是否能指教一下
先在此謝過^^
以下是我的程試碼
procedure TForm1.Button4Click(Sender: TObject);
const sPostUrl = 'https://login.yahoo.com/config/login?.intl=tw&.done=https://tw.yahoo.com/';
var
respStream : TStringStream;
params : TStringList;
begin
params := TStringList.Create;
respStream := TStringStream.Create('',TEncoding.UTF8);
TRY
idhttp1.HTTPOptions :=[hoKeepOrigProtocol];
idhttp1.ProtocolVersion := pv1_1;
idhttp1.HandleRedirects := true;
//idhttp1.Request.ContentType := 'application/json';

//Headers Sent
idhttp1.Request.Accept :='*/*';
//idhttp1.Request.AcceptEncoding :='gzip, deflate';
idhttp1.Request.AcceptLanguage:='zh-TW';
idhttp1.Request.CacheControl :='no-cache';
idhttp1.Request.Connection :='Keep-Alive';
idhttp1.Request.ContentLength :=168;
idhttp1.Request.Host :='tw.yahoo.com';
idhttp1.Request.Referer :='https://login.yahoo.com/config/login?.intl=tw&.done=https://tw.yahoo.com/';
idhttp1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.3; Trident/7.0; rv:11.0) like Gecko/20100101 Firefox/12.0';

//POST DATA
params.Add('.persistent=y'); //保持登入選項
//params.Add('_crumb=HtQYlq0n');
//params.Add('_format=json');
params.Add('_loadtpl=1');
params.Add('_seqid=2');
//params.Add('_ts=1475463657');
//params.Add('_uuid=6T3ZyxViyUuC');
params.Add('countrycode=886');
params.Add('otp_channel=');
params.Add('passwd=' edit7.Text);
params.Add('signin=authtype');
params.Add('username=' edit6.Text); //帳號輸入
IdHTTP1.ReadTimeout := strtoint(edit10.Text);
IdHTTP1.Post(sPostUrl, params, respStream);
richedit1.Clear;
richedit1.Text := respStream.DataString;
respStream.SaveToFile('Cache\result.html');
FINALLY
params.Free;
END;
end;