首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > 编程 >

indy10 idhttp get步骤

2013-03-13 
indy10 idhttp get方法idhttp中对于get方法的定义:unit UMaininterfaceusesWindows, Messages, SysUtils,

indy10 idhttp get方法

idhttp中对于get方法的定义:

unit UMain;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,  IdHTTP, StdCtrls;type  TForm1 = class(TForm)    IdHTTP1: TIdHTTP;    Memo1: TMemo;    btnGetOne: TButton;    btnGetTwo: TButton;    btnGetThree: TButton;    btnGetFour: TButton;    procedure btnGetOneClick(Sender: TObject);    procedure btnGetTwoClick(Sender: TObject);    procedure btnGetThreeClick(Sender: TObject);    procedure btnGetFourClick(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}const  Cgeturl = 'http://www.soso.com/';  C302url = 'http://soso.com/';var  RespData : TStringStream;procedure TForm1.btnGetOneClick(Sender: TObject);begin  RespData := TStringStream.Create('');  IdHTTP1.Get(Cgeturl, RespData);  Memo1.Text := RespData.DataString;end;procedure TForm1.btnGetTwoClick(Sender: TObject);begin  RespData := TStringStream.Create('');  IdHTTP1.Get(C302url, RespData, [302]);  Memo1.Text := RespData.DataString;end;procedure TForm1.btnGetThreeClick(Sender: TObject);begin  Memo1.Text := IdHTTP1.Get(Cgeturl);end;procedure TForm1.btnGetFourClick(Sender: TObject);begin  Memo1.Text := IdHTTP1.Get(C302url, [302]);end;end.

Demo下载:

http://download.csdn.net/detail/none01/5128838

热点排行