¡iÂà¡jDelphi¤¤üL¨îIdHTTP¨Ï¥ÎHTTP1.1
«e两¤Ñûñ¤H写µ{§Ç
¥ÎIdHTTP±±¥ó©¹¤@ÊI¯¸发¥]
¦p¤U¡G
Delphi¥N码
IdHTTP1.Request.Connection:='Keep-Alive';
IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)';
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
IdHTTP1.Request.Referer:='http://www.xxx.com';
IdHTTP1.Request.Accept:='image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/msword, */*';
IdHTTP1.Request.AcceptLanguage:='zh-cn';
IdHTTP1.Request.AcceptEncoding:='gzip, deflate';
IdHTTP1.Request.CacheControl:='no-cache';
IdHTTP1.ReadTimeout:=60000;
IdHTTP1.ProtocolVersion:=pv1_1;
sHtml:=IdHTTP1.Post('http://www.xxx.com/login.asp',sPost);
¦ý¥Î§ì¥]¤u¨ã¬Ý¡AúÒ发现¬O¥Îªºhttp1.0¡A¦Ó¤£¬Ohttp1.1¡A©ú©ú设¸m¤FIdHTTP1.ProtocolVersion:=pv1_1
¬d¬ÝINDYªº·½码¡A发现¦bIdHTTP.pas¤¤¦³¦p¤U¥N码©Mª`释¡G
Delphi¥N码
OldProtocol := FProtocolVersion;
// If hoKeepOrigProtocol is SET, is possible to assume that the developer
// is sure in operations of the server
if not (hoKeepOrigProtocol in FOptions) then
FProtocolVersion := pv1_0;
ì¦]«Ü©ú显¤F¡A¤_¬O§ï¥N码¡G
Delphi¥N码
IdHTTP1.Request.Connection:='Keep-Alive';
IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)';
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
IdHTTP1.Request.Referer:='http://www.xxx.com';
IdHTTP1.Request.Accept:='image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/msword, */*';
IdHTTP1.Request.AcceptLanguage:='zh-cn';
IdHTTP1.Request.AcceptEncoding:='gzip, deflate';
IdHTTP1.Request.CacheControl:='no-cache';
IdHTTP1.ReadTimeout:=60000;
IdHTTP1.HTTPOptions:=IdHTTP1.HTTPOptions+[hoKeepOrigProtocol];//关键这¦æ
IdHTTP1.ProtocolVersion:=pv1_1;
sHtml:=IdHTTP1.Post('http://www.xxx.com/login.asp',sPost);
¦A¥Î§ì¥]¤u¨ã¬Ý¡A¯à¬Ý¨ìÚÌ实¬O¨Ï¥Îhttp1.1协议¤F¡C
ºK¦Û¡Ghttp://hi.baidu.com/gcwocxuedxfnwzr/item/1f25202dd39bb7160975086f
|