DelphiPost登陸Delphi盒子論壇源碼

1、Delphi Post 登陸 Delphi 盒子論壇源碼unit Unit1;interfaceusesWinapi.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;t

2、ypeTForm1 = 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;varForm1: TForm1;implementation$R *.dfmprocedure TForm1.SpeedButton1Click(

3、Sender: TObject);VarcCon:TSTringList; cSTR,cText:TStringStream; i:Integer;TempHTTP:TIDHTTP;beginIdHTTP1:=TIDHTTP.Create(nil);TempHTTP:=TIDHTTP.Create(nil); cCon:=TStringList.Create; IDHTTP1.HandleRedirects:=True; TempHTTP.HandleRedirects:=True; cText:=TStringStream.Create;IDHTTP1.Request.Accept:=ima

4、ge/gif, image/jpeg, image/pjpeg, image/pjpeg,application/x-shockwave-flash, application/vnd.ms-excel, ;IDHTTP1.Request.Accept:=IDHTTP1.Request.Accept+applica tion/vnd.ms-powerpoint, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/x

5、aml+xml, */*;IDHTTP1.Request.Referer:=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-urle ncoded;IDHTTP1.Reque

6、st.AcceptEncoding:=gzip, deflate;IDHTTP1.Request.Host:=;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( / Edit3.Text:=IDHTTP1.Response.RawHeaders.Text;for i := 0 toIDHTTP1.CookieManager.CookieCollection.Count-1 doEdit3.Text:=Edit3.Text+IDHTTP1.CookieManager.CookieC