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