Delphi中强制IdHTTP使用HTTP1.1(转)

最新推荐文章于 2025-06-18 15:53:39 发布

转载最新推荐文章于 2025-06-18 15:53:39 发布 · 2.3k 阅读

Delphi 专栏收录该内容

41 篇文章

订阅专栏

本文介绍在Delphi中使用IdHTTP控件往网站发包时，设置IdHTTP1.ProtocolVersion:=pv1_1却仍使用HTTP1.0的问题。通过查看INDY源码找到原因，修改代码添加IdHTTP1.HTTPOptions:=IdHTTP1.HTTPOptions+[hoKeepOrigProtocol]，最终实现强制使用HTTP1.1协议。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Delphi中强制IdHTTP使用HTTP1.1(转)

标签： delphi windows 工具 server

2011-07-18 07:46 952人阅读评论(0) 收藏举报

分类：

Delphi IdHttp控件（29）

前两天帮人写程序

用IdHTTP控件往一网站发包

如下：

Delphi代码
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);

但用抓包工具看，却发现是用的http1.0，而不是http1.1，明明设置了IdHTTP1.ProtocolVersion:=pv1_1

查看INDY的源码，发现在IdHTTP.pas中有如下代码和注释：

Delphi代码
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;

原因很明显了，于是改代码：

Delphi代码
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);

再用抓包工具看，能看到确实是使用http1.1协议了。