读书人

indy10 idhttp get步骤

发布时间: 2013-03-13 10:56:58 作者: rapoo

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

读书人网 >编程

热点推荐