HanDs
管理员

[Delphi文章] 用IDHTTP传送自定义Cookie 



最近研究IdHttp,传送Cookie,网上找了很多资料,但奉献不大,只能作为参考,研究了几天几夜,终于搞定了,下面贴出代码,供大家参考,代码如下:

procedure  Post_init;
begin
  http.Request.SetHeaders;//必须加上,才能完成下面的工作
  //http.Request.RawHeaders.Values['Cookie']:=_SESSION;//自定义Cookie
  //http.Request.CustomHeaders.Values['Cookie']:=Cookie; //也得加上,不然Cookie没有意义,研究了很多
  http.Http.Request.CustomHeaders.Text:='Cookie: '+Cookie;//最强悍的一个,上面两种方式有时候就是不行
  http.HandleRedirects:= true;
  http.Request.UserAgent := 'ouyangStudio/1.0';//自定义客户端的签名,可以自定义
  http.request.contenttype:='application/x-www-form-urlencoded';//使用POST方式提交时候,必须加上
  http.Request.Referer :='http://www.ouyangStudio.cn/index.php';
  http.Request.Host:=www.ouyangstudio.cn;
end;

下面同时对IdHttp的访问方式进行简单的说明,还是看代码吧:
function Post(AURL: string; const ASource: TStrings): string; overload;
function Post(AURL: string; const ASource: TStream): string; overload;
function Post(AURL: string; const ASource: TIdMultiPartFormDataStream): string; overload;
procedure Post(AURL: string; const ASource: TStrings; const AResponseContent: TStream); overload;
procedure Post(AURL: string; const ASource: TStream; const AResponseContent: TStream); overload;
procedure Post(AURL: string; const ASource: TIdMultiPartFormDataStream; AResponseContent: TStream); overload;
这是IdHttp进行POST方式的几个函数,就是几个参数:
第一个为URL值,第二个为本地传送的参数,第三个为服务器返回的参数(没有第三个函数的时候,返回的为服务器的参数)。
我们可以在第三个参数上面进行做文章,并可以做文件下载,读取web文件了。

get的方式如下:
procedure Get(AURL: string; const AResponseContent: TStream); overload;
function Get(AURL: string): string; overload;

参数和POST方式类型,但是没有第二个参数。

下面是IdHttp的相关例子:
HTTP.Post('http://www.ouyangstudio.cn/index.php',Params,ret);
showmessage(UTF8Decode(ret.DataString)); //UTF8编码的网页的代码
Cookie:='';
for i:=0 to Http.CookieManager.CookieCollection.Count -1 do
begin
   if(Cookie='') then Cookie:=HTTP.CookieManager.CookieCollection[i].CookieText else   Cookie:=_session+'; '+HTTP.CookieManager.CookieCollection.Items[i].ClientCookie;
end; //Cookie值获取

下面来一个比较好的DEBUG信息:
在Http控件的OnEndWork事件里面添加:
其他log为TMemo控件。

  log.Lines.Add('****************************(DEBUG开始)***************************');
  log.Lines.Add('=======(访问页面)=========');
  log.Lines.Add(HTTP.URL.URI);
  log.Lines.Add('=======(页面信息)=========');
  log.Lines.Add(Http.ResponseText);
  log.Lines.Add('=======(页面反馈)=========');
  log.Lines.Add('-------[发送过去的信息]---------------');
  log.Lines.AddStrings(HTTP.Request.RawHeaders);
  log.Lines.Add('-------[发送过去的自定义信息]---------------');
  log.Lines.AddStrings(HTTP.Request.CustomHeaders);
  log.Lines.Add('-------[返回回来的信息]---------------');
  Log.Lines.AddStrings(HTTP.Response.RawHeaders);
  log.Lines.Add('-------[返回回来的自定义信息]---------------');
  Log.Lines.AddStrings(HTTP.Response.CustomHeaders);
  log.Lines.Add('=======(页面内容)=========');
  log.Lines.Add(UTF8Decode(TStringStream(HTTP.Response.ContentStream).dataString));
  log.Lines.Add('***************************(DEBUG结束)***************************');


OK,先说这么多,呵呵,这些对大家绝对有用了,呵呵...


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
ID HT TP
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复