idHTTP最简洁的修改和取得Cookie例子

最新推荐文章于 2021-07-09 15:44:21 发布
最新推荐文章于 2021-07-09 15:44:21 发布
阅读量362 收藏
点赞数
原文链接：http://www.cnblogs.com/bwdblogs/p/10496085.html
版权

XE8 

我试了下，XE8上是点不出CookieManager.CookieCollection.Items[0].CookieText

但是点出了 IdHTTP1.CookieManager.CookieCollection.Cookies[0].CookieText

不知道是不是一样的，没测试

(一)http://www.delphitop.com/html/kongjian/3307.html

procedure TForm1.btn1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  mstrCookie: string;
  Cookies : TIdCookieManager;
  i: Integer;
begin
  IdHTTP := TIdHTTP.Create(nil);
 
  IdHTTP.Request.UserAgent := '';
  mstrCookie := 'aaa=5555&bb=12345';
  IdHTTP.Request.AcceptEncoding := '';
  if mstrCookie <> '' then
  begin
    IdHTTP.Request.SetHeaders; //说要加这一句。
    IdHTTP.Request.CustomHeaders.Add('Cookie: ' + mstrCookie); 
  end;
 
  IdHTTP.AllowCookies := True;
  Cookies := TIdCookieManager.Create(nil);
  IdHTTP.HandleRedirects := True;
  IdHTTP.CookieManager := Cookies;
 
  IdHTTP.ReadTimeout := 25000; //设置读取超时
  Memo1.text := IdHTTP.Get('http://www.baidu.com/');
 
   mstrCookie:='';
  //Memo1.Lines.Add (Cookies.CookieCollection.Items[0].CookieText); 
  for i := 0 to Cookies.CookieCollection.Count - 1 do
  begin
    Memo1.Lines.Add(Cookies.CookieCollection.Items[i].CookieName + 'Value：' + Cookies.CookieCollection.Items[i].Value);
    mstrCookie:=mstrCookie+  Cookies.CookieCollection.Items[i].CookieName+'='+  Cookies.CookieCollection.Items[i].Value +'&';
  end;
    Memo1.Lines.Add ( mstrCookie);
 
  IdHTTP.free;
end;
（二）http://www.delphitop.com/html/kongjian/3308.html

procedure TForm1.Button1Click(Sender: TObject);

var
      HTTP: TidHTTP;
      html, s:  string ;
      i:  integer ;
begin
      HTTP := TidHTTP . Create( nil );
      try
       HTTP . HandleRedirects :=  True ;
       HTTP . AllowCookies :=  True ;
          HTTP.Request.UserAgent := '';//这名原来没有，一定要加
       HTTP . Request . CustomHeaders . Values[ 'Cookie' ] :=  'abcd' ; //修改Cookie 抓包可见
{   发COOKIE改为

HTTP.Request.UserAgent := '';
mstrCookie := 'aaa=5555&bb=12345';
HTTP.Request.AcceptEncoding := '';
if mstrCookie <> '' then
begin
//IdHTTP.Request.SetHeaders;; //说要加这一句，在INDY10中找不到这个属性。
HTTP.Request.CustomHeaders.Add('Cookie: ' + mstrCookie);
end;}

       html := HTTP . Get( 'http://www.baidu.com/' );
       s :=  'Cookies: ' ;
       if  HTTP . CookieManager . CookieCollection . Count >  0  then
         for  i :=  0  to  HTTP . CookieManager . CookieCollection . Count -  1  do
           s := s + HTTP . CookieManager . CookieCollection . Items[i].CookieText;
       Memo1 . Lines . Add(s); //取得Cookie
      finally
       FreeAndNil(HTTP);
      end ;
end ;
//------------------------------------
unit  Unit1;
interface
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, IdCookieManager, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdHTTP;
type
   TForm1 =  class (TForm)
     IdHTTP1: TIdHTTP;
     IdCookieManager1: TIdCookieManager;
     procedure  FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end ;
var
   Form1: TForm1;
implementation
{$R *.dfm}
procedure  TForm1 . FormCreate(Sender: TObject);
var
  Params: TStringList;
  HTML, loginurl, myuser:  String ;
  count,i: integer ;
  _cookies, cookies:tstringlist;
  ll: boolean ;
  name,value: String ;
  procedure  setcookies;
  var  j: integer ; s: string ;
  begin
    count:=cookies . count;
    s:= '' ;
    for  j:= 1  to  count  do
    begin
      IdCookieManager1 . AddCookie(cookies[j- 1 ],IdHTTP1 . url . Host);
      s:=s+ '; ' +cookies[j- 1 ];
    end ;
    if  s<> ''  then
    begin
      delete(s, 1 , 2 );
      s:=s+ ';' ;
      IdHTTP1 . Request . CustomHeaders . Values[ 'Cookie' ]:=s;
      IdHTTP1 . Request . RawHeaders . Values[ 'Cookie' ]:=s;
      //('Cookie'+IdHTTP1.Request.RawHeaders.NameValueSeparator+s);
    end ; {}
  end ;
  procedure  extractcookie(cookie: string ;  var  name,value: string );
  var  i,k: integer ;
  begin
    i:=pos( '=' ,cookie);
    k:=pos( ';' ,cookie);
    if  k= 0  then  k:=length(cookie);
    if  i> 0  then
    begin
      name:=copy(cookie, 1 ,i- 1 );
      value:=copy(cookie,i+ 1 ,k-i- 1 );
    end       else
    begin
      name:= '' ;
      value:= '' ;
    end ;
  end ;
  procedure  savecookies;
  var  j: integer ;
  begin
    count:=IdCookieManager1 . CookieCollection . count;
    for  j:= 1  to  count  do
    begin
      extractcookie(IdCookieManager1 . CookieCollection . Items[j- 1 ].CookieText,name,value);
      cookies . Values[name]:=value;
    end ;
//   IdCookieManager1.CookieCollection.Clear;
  end ;
  procedure  saveit(name: string );
  begin
    with  tfilestream . create(name,fmcreate)  do
    try
      write ( pansichar (html)^,length(html));
    finally
      free;
    end ;
  end ;
begin
   ll:= false ;
   loginurl:= 'http://feedmelinks.com/login' ;
   Params := TStringList . Create;
   try
     cookies:=tstringlist . Create;
//    cookies.Duplicates:=dupIgnore;
//    cookies.Sorted:=true;
     idhttp1 . Host:= 'feedmelinks.com' ;
     html:=idhttp1 . Get( 'http://feedmelinks.com/' );// first get; get first cookie(s)
     savecookies;
     setcookies;
     html:=idhttp1 . Get(loginUrl); // next get; this is clean: used for retrieving the viewstate
     savecookies;
     myuser:= 'crystyignat' ;
     Params . Values[ 'userId' ] := myuser;
     Params . Values[ 'password' ] :=  'mypassword' ;
     Params . Values[ 'op' ] :=  'login' ;
     IdHTTP1 . HandleRedirects:= false ; // now this made the buzz, because the cookies were not set when following the redirect
     try
       setcookies;
       HTML := IdHTTP1 . Post(loginurl, Params); // now do the log in
       _Cookies := TStringList . Create;
       IdHTTP1 . Response . RawHeaders . Extract( 'Set-cookie' , _Cookies);
       for  i :=  0  to  _Cookies . Count -  1  do
       begin
//        IdCookieManager1.AddCookie(_Cookies[i], IdHTTP1.URL.Host);
         extractcookie(_Cookies[i],name,value);
         cookies . Values[name]:=value;
       end ;
       _cookies . free;
//      savecookies;
       if  pos( '<div class="welcome">Welcome, <b>' +myuser+ '</b>' ,html)> 0  then
       begin
         setCookies;
         html:=idhttp1 . Get( 'http://feedmelinks.com/' ); // software redirect
         savecookies;
         saveit( 'hhh.html' );
//        setCookies;
//        html:=idhttp1.Get('http://feedmelinks.com/portal'); // another software redirect
         //savecookies;
         ll:=pos( '<a class="tn" href="logout">log out' ,html)> 0 ;
       end ;
     except  on  e: EIdHTTPProtocolException  do
     begin
       if  e . ReplyErrorCode<> 302  then
          raise  e;
         // now this is the redirect
         count:=IdCookieManager1 . CookieCollection . count; // get the next cookie (this will be the userid)
         for  i:= 1  to  count  do
           cookies . Add(IdCookieManager1 . CookieCollection . Items[i- 1 ].CookieText);
         setcookies;
         html:=idhttp1 . Get(IdHTTP1 . Response . Location); // follow redirect
       end ;
     end ;
     cookies . free;
   except  on  e: EIdHTTPProtocolException  do
     begin
       showmessage(idHTTP1 . response . ResponseText);
     end ;
   end ;
   Params . Free;
   showmessage( 'logged in? : ' +booltostr(ll, true ));
end ;
end . procedure  TForm1 . Button1Click(Sender: TObject);
var
      HTTP: TidHTTP;
      html, s:  string ;
      i:  integer ;
begin
      HTTP := TidHTTP . Create( nil );
      try
       HTTP . HandleRedirects :=  True ;
       HTTP . AllowCookies :=  True ;
       HTTP . Request . CustomHeaders . Values[ 'Cookie' ] :=  'abcd' ; //修改Cookie 抓包可见
       html := HTTP . Get( 'http://www.baidu.com/' );
       s :=  'Cookies: ' ;
       if  HTTP . CookieManager . CookieCollection . Count >  0  then
         for  i :=  0  to  HTTP . CookieManager . CookieCollection . Count -  1  do
           s := s + HTTP . CookieManager . CookieCollection . Items[i].CookieText;
       Memo1 . Lines . Add(s); //取得Cookie
      finally
       FreeAndNil(HTTP);
      end ;
end ;
//------------------------------------
unit  Unit1;
interface
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, IdCookieManager, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdHTTP;
type
   TForm1 =  class (TForm)
     IdHTTP1: TIdHTTP;
     IdCookieManager1: TIdCookieManager;
     procedure  FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end ;
var
   Form1: TForm1;
implementation
{$R *.dfm}
procedure  TForm1 . FormCreate(Sender: TObject);
var
  Params: TStringList;
  HTML, loginurl, myuser:  String ;
  count,i: integer ;
  _cookies, cookies:tstringlist;
  ll: boolean ;
  name,value: String ;
  procedure  setcookies;
  var  j: integer ; s: string ;
  begin
    count:=cookies . count;
    s:= '' ;
    for  j:= 1  to  count  do
    begin
      IdCookieManager1 . AddCookie(cookies[j- 1 ],IdHTTP1 . url . Host);
      s:=s+ '; ' +cookies[j- 1 ];
    end ;
    if  s<> ''  then
    begin
      delete(s, 1 , 2 );
      s:=s+ ';' ;
      IdHTTP1 . Request . CustomHeaders . Values[ 'Cookie' ]:=s;
      IdHTTP1 . Request . RawHeaders . Values[ 'Cookie' ]:=s;
      //('Cookie'+IdHTTP1.Request.RawHeaders.NameValueSeparator+s);
    end ; {}
  end ;
  procedure  extractcookie(cookie: string ;  var  name,value: string );
  var  i,k: integer ;
  begin
    i:=pos( '=' ,cookie);
    k:=pos( ';' ,cookie);
    if  k= 0  then  k:=length(cookie);
    if  i> 0  then
    begin
      name:=copy(cookie, 1 ,i- 1 );
      value:=copy(cookie,i+ 1 ,k-i- 1 );
    end       else
    begin
      name:= '' ;
      value:= '' ;
    end ;
  end ;
  procedure  savecookies;
  var  j: integer ;
  begin
    count:=IdCookieManager1 . CookieCollection . count;
    for  j:= 1  to  count  do
    begin
      extractcookie(IdCookieManager1 . CookieCollection . Items[j- 1 ].CookieText,name,value);
      cookies . Values[name]:=value;
    end ;
//   IdCookieManager1.CookieCollection.Clear;
  end ;
  procedure  saveit(name: string );
  begin
    with  tfilestream . create(name,fmcreate)  do
    try
      write ( pansichar (html)^,length(html));
    finally
      free;
    end ;
  end ;
begin
   ll:= false ;
   loginurl:= 'http://feedmelinks.com/login' ;
   Params := TStringList . Create;
   try
     cookies:=tstringlist . Create;
//    cookies.Duplicates:=dupIgnore;
//    cookies.Sorted:=true;
     idhttp1 . Host:= 'feedmelinks.com' ;
     html:=idhttp1 . Get( 'http://feedmelinks.com/' );// first get; get first cookie(s)
     savecookies;
     setcookies;
     html:=idhttp1 . Get(loginUrl); // next get; this is clean: used for retrieving the viewstate
     savecookies;
     myuser:= 'crystyignat' ;
     Params . Values[ 'userId' ] := myuser;
     Params . Values[ 'password' ] :=  'mypassword' ;
     Params . Values[ 'op' ] :=  'login' ;
     IdHTTP1 . HandleRedirects:= false ; // now this made the buzz, because the cookies were not set when following the redirect
     try
       setcookies;
       HTML := IdHTTP1 . Post(loginurl, Params); // now do the log in
       _Cookies := TStringList . Create;
       IdHTTP1 . Response . RawHeaders . Extract( 'Set-cookie' , _Cookies);
       for  i :=  0  to  _Cookies . Count -  1  do
       begin
//        IdCookieManager1.AddCookie(_Cookies[i], IdHTTP1.URL.Host);
         extractcookie(_Cookies[i],name,value);
         cookies . Values[name]:=value;
       end ;
       _cookies . free;
//      savecookies;
       if  pos( '<div class="welcome">Welcome, <b>' +myuser+ '</b>' ,html)> 0  then
       begin
         setCookies;
         html:=idhttp1 . Get( 'http://feedmelinks.com/' ); // software redirect
         savecookies;
         saveit( 'hhh.html' );
//        setCookies;
//        html:=idhttp1.Get('http://feedmelinks.com/portal'); // another software redirect
         //savecookies;
         ll:=pos( '<a class="tn" href="logout">log out' ,html)> 0 ;
       end ;
     except  on  e: EIdHTTPProtocolException  do
     begin
       if  e . ReplyErrorCode<> 302  then
          raise  e;
         // now this is the redirect
         count:=IdCookieManager1 . CookieCollection . count; // get the next cookie (this will be the userid)
         for  i:= 1  to  count  do
           cookies . Add(IdCookieManager1 . CookieCollection . Items[i- 1 ].CookieText);
         setcookies;
         html:=idhttp1 . Get(IdHTTP1 . Response . Location); // follow redirect
       end ;
     end ;
     cookies . free;
   except  on  e: EIdHTTPProtocolException  do
     begin
       showmessage(idHTTP1 . response . ResponseText);
     end ;
   end ;
   Params . Free;
   showmessage( 'logged in? : ' +booltostr(ll, true ));
end ;
end .

转载于:https://www.cnblogs.com/bwdblogs/p/10496085.html

weixin_30542079
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
IdHTTP控件操作Cookies的DELPHI实例..rar
05-03
IdHTTP控件操作Cookies的DELPHI实例..rar
使用delphi XE的IdHTTP控件POST的例子
10-14
在这个例子中，我们将深入探讨如何利用`IdHTTP`进行POST请求，以及这个过程中的关键知识点。 首先，我们需要在表单上放置一个`TIdHTTP`组件和一个`TIdTCPClient`组件。`TIdHTTP`是负责执行HTTP请求的，而`...
Delphi IDhttp 获取Cookie
期待下集是个可爱梦儿
08-06 1288
获取post，或者get返回的cookie，除了过滤返回的字符串之外，最简单的方法是使用idhttp的CookieManager属性 比如获得IDhttp返回的全部Cookie if idhttp1.CookieManager.CookieCollection.Count >
如何用idhttp提交自己构造过的Cookie
06-06 129
如何用idhttp提交自己构造过的Cookie我不知道的是：如果把自己构造过的Cookie传给idhttp让它提交。比如站点 http://www.aaa.com 是要cookie的。我已经在程序上放了idhttp和IdCookieManager。我get http://www.aaa.com 后，idhttp通过IdCookieManager已经得到当前站点的Cookie了。我可以用f...
IdHTTP 设置cookie 和访问后读取Cookie 值。
gj333的专栏
05-08 5268
procedure TForm1.btn1Click(Sender: TObject); var   IdHTTP: TIdHTTP;   mstrCookie: string;   Cookies : TIdCookieManager;   i: Integer; begin   IdHTTP := TIdHTTP.Create(nil);   IdHTTP.Request.
IDHTTP的一个简单下载例子
08-10
在这个"IDHTTP的一个简单下载例子"中，我们将深入探讨如何利用`IDHTTP`组件来实现文件的下载功能。这个例子非常适合初学者，因为它的代码简洁明了，易于理解。 首先，`IDHTTP` 是Indy库中的一个组件，它提供了丰富...
IDHttp例子.rar
07-31
这个“IDHttp例子.rar”压缩包内的代码示例应该包含了上述步骤的完整实现，可以帮助你理解如何在实际项目中使用`TIDHttp`组件进行POST请求。通过学习这个例子，开发者能够掌握如何在C++ Builder 6.0中有效地实现...
Delphi使用IdHTTP控件操作Cookies的例子.rar
07-10
总的来说，这个例子展示了如何在Delphi中使用IdHTTP控件进行Cookie操作。通过设置和管理Cookie，开发者可以创建更复杂的网络应用，如模拟登录、保持会话状态等。希望这个示例能帮助你在Delphi开发过程中更好地理解和...
DelphiXE + idHttp和HttpServer + 当客户端与服务器作数据传输的实例+（源码+测试可用）
03-20
".ddp"是Delphi的项目文件，".dfm"是界面设计文件，".pas"是Pascal源代码文件，".dproj.local"是项目配置文件，".dsk"和".stat"可能涉及项目状态和设置，".identcache"和".cfg"则是服务器端的一些配置信息，".res...
delphi 7 idhttp post 的8种使用方法
04-12
delphi 7 idhttp post 的8种使用方法（含源码），介绍了8种使用方法，供学习交流使用。
delphi idhttp 使用方法
潇湘博客
05-15 8784
delphi idhttp 使用方法 IdHTTP1.Request.Connection:=Keep-Alive;    IdHTTP1.Request.UserAgent:=Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon);    IdHTTP1.Request.ContentType:=appl
TCP Ports list (3498 ports in list)
热门推荐
zyb378747350的专栏
01-11 41万+
参考地址:https://www.gasmi.net/tcp.php TCP Ports list (3498 ports in list) 1 tcpmux TCP Port Service Multiplexer 2 compressnet Management Utility 3 compressnet Compression Process
正则表达式作用
十七光年的博客
07-09 7442
匹配指定规则的字符串 常用方法 findall()：RE 匹配的所有子串，并把它们作为一个列表返回 findall()：RE 匹配的所有子串，并把它们作为一个列表返回 res=re.findall(‘www’,‘www.baidu.www.com’) print(res) 输出：[‘www’, ‘www’] match()：RE 是否在字符创开始的位置匹配（只匹配开始位置），如果不是起始位置匹配成功的话，match()就返回 none 匹配起始位置为 www，非其实位置返回 None,group()返回 r
hostapd加密方式
chaty_chu的博客
05-24 4512
hostapd有三种加密方式：WEP、WPA/WPA2、WPA-PSK/WPA2-PSK WEP 比较差的加密方式，已被破解并且不支持80211n。 配置文件中wep加密为： wep_key0=“xxxx” WPA/WPA2 WPA/WPA2是一种比WEP强壮的加密算法，挑选这种安全类型，路由器将选用Radius服务器进行身份认证并得到密钥的WPA或WPA2安全形式。因为要...
Delphi IDHTTP用法详解
Microblue（严 武）
11-19 2万+
一、IDHTTP的基本用法 IDHttp和WebBrowser一样，都可以实现抓取远端网页的功能，但是http方式更快、更节约资源，缺点是需要手动维护cook，连接等 IDHttp的创建，需要引入IDHttp procedure InitHttp(); begin http := TIdHTTP.Create(nil); http.ReadTimeout :
【转载】哇！！！这个真的是我见过最全的端口介绍了
小白渣的博客
06-28 2万+
                                                            &...
Win2000常用端口列表
feng_sundy 的专栏
10-27 1万+
Win2000常用端口列表  20=Ftp Data 21=FTP Open Server 23=Telnet 25=Smtp 31=Master Paradise.80 53=DNS,Bonk (DoS Exploit) 79=Finger 80=Http 110=Pop3 113=Auther Idnet 119=Nntp 121=BO jammerkillah 137=NetBios
rest idhttp
最新发布
07-04
使用rest idhttp可以实现许多常见的RESTful API操作，例如获取资源、创建资源、更新资源和删除资源等。我们可以使用idhttp的GET方法来获取服务器端返回的资源数据，使用POST方法来创建新的资源，使用PUT方法来更新...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值