Delphi Post Delphi 상자 포럼 소스에 로그인
6636 단어 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.
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
[Delphi] TStringBuilder그리고 꼭 사용해야만 할까? 그림처럼 Heap 영역에 "Hello" 공간을 생성하고 포인팅을 한다. "Hello World" 공간을 새로 생성한 후 포인팅을 하게 된다. 결국 "Hello" 라는 String 객체가 ...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.