Delphi Post登陆Delphi盒子论坛源码

unit Unit1;



interface



uses

  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.