Delphi Post登岸Delphi盒子论坛源码
添加时间:2013-5-14 点击量:
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.
原来,再大的房子,再大的床,没有相爱的人陪伴,都只是冰冷的物质。而如果身边有爱人陪伴,即使房子小,床小,也觉得无关紧要,因为这些物质上面有了爱的温度,成了家的元素。—— 何珞《婚房》#书摘#
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.
原来,再大的房子,再大的床,没有相爱的人陪伴,都只是冰冷的物质。而如果身边有爱人陪伴,即使房子小,床小,也觉得无关紧要,因为这些物质上面有了爱的温度,成了家的元素。—— 何珞《婚房》#书摘#