微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

[delphi]indy10 idhttp get方法

idhttp中对于get方法的定义:

[delphi]  view plain copy print ?
  1. procedure Get(AURL: string; AResponseContent: TStream); overload;  
  2. string; AResponseContent: TStream; AIgnoreReplies: array of SmallInt);  
  3.  overload;  
  4. function Get(AURL: string): string; overload;  
  5. string; AIgnoreReplies: of SmallInt): string; overload;  

其中的最基本的方法是过程类方法
?
    of SmallInt);  
  1.      overload;  
其他的几个get方法重载都是基于嵌套的此方法

参数:

[python]  ?
    AURL: string;   // get操作的目标URL  
  1. AResponseContent: TStream;  // 返回流  
  2. AIgnoreReplies: array of SmallInt;  // 忽略掉出现这些http状态码的错误  

示例代码

?
    unit UMain;  
  1.   
  2. interface  
  3. uses  
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  5.   Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,  
  6.   IdHTTP, StdCtrls;  
  7.   
  8. type  
  9.   TForm1 = class(TForm)  
  10.     IdHTTP1: TIdHTTP;  
  11.     Memo1: TMemo;  
  12.     btnGetone: TButton;  
  13.     btnGetTwo: TButton;  
  14.     btnGetThree: TButton;  
  15.     btnGetFour: TButton;  
  16.     procedure btnGetoneClick(Sender: TObject);  
  17. procedure btnGetTwoClick(Sender: TObject);  
  18. procedure btnGetThreeClick(Sender: TObject);  
  19. procedure btnGetFourClick(Sender: TObject);  
  20.   private  
  21.     { Private declarations }  
  22. public  
  23. { Public declarations }  
  24. end;  
  25. var  
  26.   Form1: TForm1;  
  27. implementation  
  28. {$R *.dfm}  
  29. const  
  30.   Cgeturl = 'http://www.soso.com/';  
  31.   C302url = 'http://soso.com/';  
  32. var  
  33.   RespData : TStringStream;  
  34. procedure TForm1.btnGetoneClick(Sender: TObject);  
  35. begin  
  36.   RespData := TStringStream.Create('');  
  37.   IdHTTP1.Get(Cgeturl, RespData);  
  38.   Memo1.Text := RespData.DataString;  
  39. end;  
  40. procedure TForm1.btnGetTwoClick(Sender: TObject);  
  41. begin  
  42. '');  
  43.   IdHTTP1.Get(C302url, RespData, [302]);  
  44.   Memo1.Text := RespData.DataString;  
  45. procedure TForm1.btnGetThreeClick(Sender: TObject);  
  46.   Memo1.Text := IdHTTP1.Get(Cgeturl);  
  47. procedure TForm1.btnGetFourClick(Sender: TObject);  
  48.   Memo1.Text := IdHTTP1.Get(C302url, [302]);  
  49. end.  

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 [email protected] 举报,一经查实,本站将立刻删除。

相关推荐