delphi使用IdHTTP模拟提交页面方法

Posted in delphi Write comment 1.拖入TIdHTTP控件,HandleRedirect设为True,否则可能会出现HTTP 307错误。

2.主要的设置在Request里。
2.1 userAgent应该改为Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; CIBA; MAXTHON 2.0)
2.2 如果Accept-Encoding设为了gzip, deflate,那么需要再解码,所以如果没有必要的话Accept-Encoding应该设为空。
2.3 Referer应该设为post之前那个页面.

3.若需要取得cookie。

3.1 拖入TidCookieManager控件,将IdHTTP的CookieManager指向它,设定AllowCookies为True


3.2 设置全局变量mycookie:string;

3.3 在TidCookieManager的OnNewCookie事件中
  mycookie:=ACookie.ClientCookie;

3.4 然后在用TIdHTTP控件Get页面后即可获取cookie
  idhtp1.Get(‘http://de.mofeel.net/’);
  cookies:=’Cookie:’+mycookie;
  idhtp1.Request.CustomHeaders.Text:=cookies;
4.设置HTTPOptions的hoForceEncodeParams为False,否则post的数据可能会以%20形式编码。

5.若要使用HTTP/1.1,可将HTTPOptions的hoKeepOrigProtocol设为True,然后将ProtocolVersion设为pv1_1

1.拖入TIdHTTP控件,HandleRedirect设为True,否则可能会出现HTTP 307错误。

2.主要的设置在Request里。
2.1 userAgent应该改为Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; CIBA; MAXTHON 2.0)
2.2 如果Accept-Encoding设为了gzip, deflate,那么需要再解码,所以如果没有必要的话Accept-Encoding应该设为空。
2.3 Referer应该设为post之前那个页面.

3.若需要取得cookie。

3.1 拖入TidCookieManager控件,将IdHTTP的CookieManager指向它,设定AllowCookies为True


3.2 设置全局变量mycookie:string;

3.3 在TidCookieManager的OnNewCookie事件中
  mycookie:=ACookie.ClientCookie;

3.4 然后在用TIdHTTP控件Get页面后即可获取cookie
  idhtp1.Get(‘http://de.mofeel.net/’);
  cookies:=’Cookie:’+mycookie;
  idhtp1.Request.CustomHeaders.Text:=cookies;
4.设置HTTPOptions的hoForceEncodeParams为False,否则post的数据可能会以%20形式编码。

5.若要使用HTTP/1.1,可将HTTPOptions的hoKeepOrigProtocol设为True,然后将ProtocolVersion设为pv1_1

 

Delphi 2010 是一个集成开发环境(IDE),供开发者使用 Object Pascal 编程语言。要使用 Delphi 2010 的 IdHTTP 组件进行 JSON 提交,首先需要将 IdHTTP 组件放置在窗体的设计区域或者手动创建一个 IdHTTP 对象。 在代码中,需要导入 IdHTTP 单元,然后创建一个 IdHTTP 对象。然后,使用 Post 方法将 JSON 数据提交到服务器。在 Post 方法中,我们需要设置请求的 URL,并将 JSON 数据转换为字节数组。 具体代码如下: 1. 首先,确保你已经导入 IdHTTP 单元: ``` uses IdHTTP; ``` 2. 在窗体或类的声明部分,添加一个私有变量来持有 IdHTTP 对象: ``` private Http: TIdHTTP; ``` 3. 在创建窗体或类的构造函数中,创建 IdHTTP 对象并设置一些属性: ``` constructor TForm1.Create(AOwner: TComponent); begin inherited Create(AOwner); Http := TIdHTTP.Create(Self); Http.HandleRedirects := True; end; ``` 4. 在需要提交 JSON 数据的地方,使用以下代码: ``` procedure TForm1.PostJSONData(const URL: string; const JSONData: string); var Request: TStringStream; Response: string; begin Request := TStringStream.Create(JSONData, TEncoding.UTF8); try Response := Http.Post(URL, Request); ShowMessage(Response); // 可以根据需要处理服务器的响应结果 finally Request.Free; end; end; ``` 在这个例子中,URL 是目标服务器的地址,JSONData 是要提交的 JSON 数据。完成后,你可以根据需要处理服务器的响应结果。 这是使用 Delphi 2010 的 IdHTTP 组件提交 JSON 数据的简单示例。希望对你有所帮助!
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值