dephi中用idhttp提交cookie

以前不管是做什么软件,只要是关于网页post提交cookie的,我都是用TcpClient,为什么呢?
因为我一直找不到idhttp提交Cookie的方法,今天终于有了结果。

在Idhttp中,要想修改Cookie的代码,就要用到Request的RawHeaders中的Values值。
这个值怎么用呢?
Values接受一个string的值,该值指定了所访问的变量。
如HTTP头是这样定义的(其中一些):
Accept-Language: zh-cn
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1;
Cookie: JSESSIONID=aoOYvjM-IKzh
而Values的值就可以是Cookie,User-Agent,Accept-Encoding……等等。

所以,代码应该是这样:
try
  idhttp1.Request.RawHeaders.Values['Cookie'] := '这里是cookie的值'; //
  memo1.Lines.Add(idhttp1.Request.RawHeaders.Values['Cookie']);
  idhttp1.Post('/webmail/login.jsp',data1,data2);
  memo1.Lines.Add(idhttp1.Request.RawHeaders.Values['Cookie']);
  idhttp1.Request.RawHeaders.Values['Cookie'] := 'asdfasdf';
  memo1.Lines.Add(idhttp1.Request.RawHeaders.Text);
except
  idhttp1.Get(idhttp1.Response.Location, data1);
end;
初一看,这代码是没有什么问题的。但,memo1的第一次ADD并没有任何值,奇怪。
而第三次ADD就被改为了'asdfasdf',正是我们所希望的。
我正是卡在了这里。为什么第一次idhttp1.Request.RawHeaders.Values['Cookie'] := '这里是cookie的值'; 没有结果呢?

搞了很久。我才发现,在第一次传值的时候,RawHeaders跟本没有被初始化。而第三次经过Post以后,RawHeaders被初始化了,所以得到了我们所要的结果。
也就是说,在写漏洞上传程序这些的时候,如果先Post让RawHeaders初始化,那就没什么意义了,因为Post的时候,Cookie就不能被带上了。

正确的代码应该是这样:
try
  idhttp1.Request.SetHeaders; //最重要的初始化。
  idhttp1.Request.RawHeaders.Values['Cookie'] := '这里是cookie的值';
  idhttp1.Post('/webmail/login.jsp',data1,data2);
except
  idhttp1.Get(idhttp1.Response.Location, data1);
end;


这里,最重要的初始化是必需的。
idhttp1.Request.SetHeaders
这个过程如果没有。就会出错。


http://www.cnblogs.com/taobataoma/archive/2007/08/16/858345.html
俺从这里拷贝过来滴
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、付费专栏及课程。

余额充值