Delphi Post登陆Delphi盒子论坛源码

unit Unit1;

interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.OleCtrls, SHDocVw,  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,  Vcl.StdCtrls;type  TForm1 = class(TForm)    SpeedButton1: TSpeedButton;    IdHTTP1: TIdHTTP;    Memo1: TMemo;    Edit1: TEdit;    Edit2: TEdit;    Edit3: TEdit;    procedure SpeedButton1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.SpeedButton1Click(Sender: TObject);Var  cCon:TSTringList;  cSTR,cText:TStringStream;  i:Integer;  TempHTTP:TIDHTTP;begin IdHTTP1:=TIDHTTP.Create(nil); TempHTTP:=TIDHTTP.Create(nil); cCon:=TStringList.Create; IDHTTP1.HandleRedirects:=True; TempHTTP.HandleRedirects:=True; cText:=TStringStream.Create; IDHTTP1.Request.Accept:='image/gif, image/jpeg, image/pjpeg, image/pjpeg,application/x-shockwave-flash, application/vnd.ms-excel, '; IDHTTP1.Request.Accept:=IDHTTP1.Request.Accept+'application/vnd.ms-powerpoint, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*'; IDHTTP1.Request.Referer:='http://bbs.2ccc.com/default.asp'; IDHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; InfoPath.2; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)'; IDHTTP1.Request.ContentType:='application/x-www-form-urlencoded'; IDHTTP1.Request.AcceptEncoding:='gzip, deflate'; IDHTTP1.Request.Host:='bbs.2ccc.com'; IDHTTP1.Request.CacheControl := 'no-cache'; idhttp1.Request.Connection := 'Keep-Alive'; cCon.Add('membername='+Trim(Edit1.Text)); cCon.Add('memberpass='+Trim(Edit2.Text)); cCon.Add('act=1'); IDHTTP1.Post('http://bbs.2ccc.com/login.asp',cCon,cText);// Edit3.Text:=IDHTTP1.Response.RawHeaders.Text; for i := 0 to IDHTTP1.CookieManager.CookieCollection.Count-1 do    Edit3.Text:=Edit3.Text+IDHTTP1.CookieManager.CookieCollection.Cookies[i].Value; //IDHTTP1.GET('http://bbs.2ccc.com/',cText); TempHTTP.Get('http://bbs.2ccc.com/',cText); Memo1.Text:=cText.DataString; cText.Free;end;end.