} } }

    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.


    原来,再大的房子,再大的床,没有相爱的人陪伴,都只是冰冷的物质。而如果身边有爱人陪伴,即使房子小,床小,也觉得无关紧要,因为这些物质上面有了爱的温度,成了家的元素。—— 何珞《婚房》#书摘#
    分享到: