下面是简单的介绍&＃xff1a;
首先在
&＃xff08;通过idHttp的COOKIEManager&＃xff09;&＃xff0c;剩下的 你就专心实现你要完成
的东西就可以啦。
不知道你玩过KOK没有&＃xff0c;下面的代码是登陆KOK注册页面的部分代码&＃xff1a;
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, IdCOOKIEManager, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;
type
TForm1 &＃61; class(TForm)
http: TIdHTTP;
COOKIEMngr: TIdCOOKIEManager;
edtUserName: TLabeledEdit;
edtPassword: TLabeledEdit;
btnLogin: TButton;
COOKIEs: TMemo;
Memo1: TMemo;
btnInfor: TButton;
Button1: TButton;
edtSN: TLabeledEdit;
procedure btnLoginClick(Sender: TObject);
procedure btnInforClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//这个函数是登陆页面&＃xff0c;
procedure TForm1.btnLoginClick(Sender: TObject);
var
s, s1: TStringStream;
i: Integer;
begin
s :&＃61; TStringStream.Create(&＃39;&＃39;);
s1 :&＃61; TStringStream.Create(&＃39;&＃39;);
try
//{
s.WriteString(&＃39;action&＃61;LOGIN&gameSelect&＃61;gkk&&＃39;);
s.WriteString(&＃39;acct&＃61;&＃39; &＃43; edtUserName.Text &＃43; &＃39;&&＃39;);
s.WriteString(&＃39;pwd&＃61;&＃39; &＃43; edtPassword.Text);
http.Request.ContentType :&＃61; &＃39;application/x-www-form-urlencoded&＃39;;
try
http.
except
http.Get(http.Response.Location, s1);
end;
//}
Memo1.Lines.Text :&＃61; s1.DataString;
//下面的是显示COOKIEs信息的代码
COOKIEs.Clear;
for i :&＃61; 0 to COOKIEMngr.COOKIECollection.Count - 1 do
COOKIEs.Lines.Add(COOKIEMngr.COOKIECollection.Items[i].COOKIEText);
finally
s.Free;
s1.Free;
end;
end;
//这是KOK注册页面中&＃xff0c;显示帐户信息的函数
procedure TForm1.btnInforClick(Sender: TObject);
var
s, s1: TStringStream;
i: Integer;
begin
{
}
s :&＃61; TStringStream.Create(&＃39;&＃39;);
s1 :&＃61; TStringStream.Create(&＃39;&＃39;);
try
s.WriteString(&＃39;action&＃61;INFO&＃39;);
http.Request.ContentType :&＃61; &＃39;application/x-www-form-urlencoded&＃39;;
try
http.Post(&＃39;http://register.kok.com.cn/billing/servlet/walletServlet&＃39;, s, s1)
except
http.Get(http.Response.Location, s1);
end;
Memo1.Lines.Text :&＃61; s1.DataString;
COOKIEs.Clear;
for i :&＃61; 0 to COOKIEMngr.COOKIECollection.Count - 1 do
COOKIEs.Lines.Add(COOKIEMngr.COOKIECollection.Items[i].COOKIEText);
finally
s.Free;
s1.Free;
end;
end;
end.
--------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
const
DFW_LOGIN_URL &＃61; &＃39;http://www.delphibbs.com/delphibbs/chkuser.asp&＃39;;
UserName &＃61; &＃39;你的用户名&＃39;;
Password &＃61; &＃39;你的密码&＃39;; //晕&＃xff0c;刚才把密码写出来了&＃xff0c;得改一下了
var
Params: TStrings;
HTML: String;
begin
Params:&＃61;TStringList.Create;
try
Params.Add(&＃39;URL&＃61;&＃39;&＃43;&＃39;/delphibbs/collections.asp&＃39;);
//登录成功后跳转到的URL&＃xff0c;这里直接转到"我收藏的问题"
Params.Add(&＃39;QUERY_STRING&＃61;&＃39;); //登录成功后跳转URL的参数
Params.Add(&＃39;txtName&＃61;&＃39;&＃43;UserName);
Params.Add(&＃39;txtPass&＃61;&＃39;&＃43;Password);
//Params.Add(&＃39;chkSave&＃61;&＃39;); //是否记住我的密码
IdHttp.HandleRedirects:&＃61;True;
HTML:&＃61;IdHttp.Post(DFW_LOGIN_URL,Params);
if Pos(&＃39;
ShowMessage(&＃39;登录失败&＃xff01;&＃39;) //登录失败则用户名为空
else
ShowMessage(&＃39;登录成功&＃xff01;&＃39;);
//分析HTML&＃xff0c;取出每一条收藏贴子的URL&＃xff0c;下载保存
finally
Params.Free;
end;
end;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, IdCOOKIEManager, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;
type
TForm1 &＃61; class(TForm)
http: TIdHTTP;
COOKIEMngr: TIdCOOKIEManager;
edtUserName: TLabeledEdit;
edtPassword: TLabeledEdit;
btnLogin: TButton;
COOKIEs: TMemo;
Memo1: TMemo;
btnInfor: TButton;
Button1: TButton;
edtSN: TLabeledEdit;
procedure btnLoginClick(Sender: TObject);
procedure btnInforClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//这个函数是登陆页面&＃xff0c;
procedure TForm1.btnLoginClick(Sender: TObject);
var
s, s1: TStringStream;
i: Integer;
begin
s :&＃61; TStringStream.Create(&＃39;&＃39;);
s1 :&＃61; TStringStream.Create(&＃39;&＃39;);
try
//{
s.WriteString(&＃39;action&＃61;LOGIN&gameSelect&＃61;gkk&&＃39;);
s.WriteString(&＃39;acct&＃61;&＃39; &＃43; edtUserName.Text &＃43; &＃39;&&＃39;);
s.WriteString(&＃39;pwd&＃61;&＃39; &＃43; edtPassword.Text);
http.Request.ContentType :&＃61; &＃39;application/x-www-form-urlencoded&＃39;;
try
http.
except
http.Get(http.Response.Location, s1);
end;
//}
Memo1.Lines.Text :&＃61; s1.DataString;
//下面的是显示COOKIEs信息的代码
COOKIEs.Clear;
for i :&＃61; 0 to COOKIEMngr.COOKIECollection.Count - 1 do
COOKIEs.Lines.Add(COOKIEMngr.COOKIECollection.Items[i].COOKIEText);
finally
s.Free;
s1.Free;
end;
end;
//这是KOK注册页面中&＃xff0c;显示帐户信息的函数
procedure TForm1.btnInforClick(Sender: TObject);
var
s, s1: TStringStream;
i: Integer;
begin
{
}
s :&＃61; TStringStream.Create(&＃39;&＃39;);
s1 :&＃61; TStringStream.Create(&＃39;&＃39;);
try
s.WriteString(&＃39;action&＃61;INFO&＃39;);
http.Request.ContentType :&＃61; &＃39;application/x-www-form-urlencoded&＃39;;
try
http.Post(&＃39;http://register.kok.com.cn/billing/servlet/walletServlet&＃39;, s, s1)
except
http.Get(http.Response.Location, s1);
end;
Memo1.Lines.Text :&＃61; s1.DataString;
COOKIEs.Clear;
for i :&＃61; 0 to COOKIEMngr.COOKIECollection.Count - 1 do
COOKIEs.Lines.Add(COOKIEMngr.COOKIECollection.Items[i].COOKIEText);
finally
s.Free;
s1.Free;
end;
end;
end.
--------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
const
DFW_LOGIN_URL &＃61; &＃39;http://www.delphibbs.com/delphibbs/chkuser.asp&＃39;;
UserName &＃61; &＃39;你的用户名&＃39;;
Password &＃61; &＃39;你的密码&＃39;; //晕&＃xff0c;刚才把密码写出来了&＃xff0c;得改一下了
var
Params: TStrings;
HTML: String;
begin
Params:&＃61;TStringList.Create;
try
Params.Add(&＃39;URL&＃61;&＃39;&＃43;&＃39;/delphibbs/collections.asp&＃39;);
//登录成功后跳转到的URL&＃xff0c;这里直接转到"我收藏的问题"
Params.Add(&＃39;QUERY_STRING&＃61;&＃39;); //登录成功后跳转URL的参数
Params.Add(&＃39;txtName&＃61;&＃39;&＃43;UserName);
Params.Add(&＃39;txtPass&＃61;&＃39;&＃43;Password);
//Params.Add(&＃39;chkSave&＃61;&＃39;); //是否记住我的密码
IdHttp.HandleRedirects:&＃61;True;
HTML:&＃61;IdHttp.Post(DFW_LOGIN_URL,Params);
if Pos(&＃39;
ShowMessage(&＃39;登录失败&＃xff01;&＃39;) //登录失败则用户名为空
else
ShowMessage(&＃39;登录成功&＃xff01;&＃39;);
//分析HTML&＃xff0c;取出每一条收藏贴子的URL&＃xff0c;下载保存
finally
Params.Free;
end;
end;
--------------------------------------------------------------------------------
搞了几天&＃xff0c;终于有了点眉目&＃xff0c;以下是我登录一个asp站点的delphi程序&＃xff0c;使用了IDHttp控件和IDCOOKIEManager控件&＃xff0c;在delphi7&＃xff08;带indy9&＃xff09;&＃xff0b;win2k pro调试通过。
有不当之处请指正&＃xff0c;如转载请注明作者&＃xff1a;yannqi。
1、网站asp程序&＃xff1a;
判断如果有COOKIE显示用户名和邮件&＃xff1b;如果没有将获得的用户名和邮件写入COOKIE。
<%
if (request.COOKIEs("name")&＃61;"" or request.COOKIEs("email")&＃61;"") then
Response.COOKIEs("name") &＃61; request("name")
Response.COOKIEs("email") &＃61; request("email")
Response.write(request("name")&＃43;","&＃43;request("email")&＃43;",写入COOKIE")
else
Response.write("Name:"&＃43;request.COOKIEs("name"))
Response.write("
email:"&＃43;request.COOKIEs("email"))
end if
%>
if (request.COOKIEs("name")&＃61;"" or request.COOKIEs("email")&＃61;"") then
Response.COOKIEs("name") &＃61; request("name")
Response.COOKIEs("email") &＃61; request("email")
Response.write(request("name")&＃43;","&＃43;request("email")&＃43;",写入COOKIE")
else
Response.write("Name:"&＃43;request.COOKIEs("name"))
Response.write("
email:"&＃43;request.COOKIEs("email"))
end if
%>
2、delphi form
object Form1: TForm1
Left &＃61; 258
Top &＃61; 154
Width &＃61; 650
Height &＃61; 388
Caption &＃61; &＃39;Form1&＃39;
Color &＃61; clBtnFace
Font.Charset &＃61; DEFAULT_CHARSET
Font.Color &＃61; clWindowText
Font.Height &＃61; -11
Font.Name &＃61; &＃39;MS Sans Serif&＃39;
Font.Style &＃61; []
OldCreateOrder &＃61; False
PixelsPerInch &＃61; 96
TextHeight &＃61; 13
object btnLogin: TButton
Left &＃61; 256
Top &＃61; 24
Width &＃61; 75
Height &＃61; 25
Caption &＃61; &＃39;提交&＃39;
TabOrder &＃61; 0
OnClick &＃61; btnLoginClick
end
object edtUserName: TLabeledEdit
Left &＃61; 0
Top &＃61; 24
Width &＃61; 121
Height &＃61; 21
EditLabel.Width &＃61; 50
EditLabel.Height &＃61; 13
EditLabel.Caption &＃61; &＃39;UserName&＃39;
TabOrder &＃61; 1
Text &＃61; &＃39;yannqi&＃39;
end
object edtPassword: TLabeledEdit
Left &＃61; 128
Top &＃61; 24
Width &＃61; 121
Height &＃61; 21
EditLabel.Width &＃61; 25
EditLabel.Height &＃61; 13
EditLabel.Caption &＃61; &＃39;Email&＃39;
TabOrder &＃61; 2
Text &＃61; &＃39;xayahe&＃64;163.com&＃39;
end
object Memo1: TMemo
Left &＃61; 312
Top &＃61; 64
Width &＃61; 321
Height &＃61; 281
Lines.Strings &＃61; (
&＃39;Memo1&＃39;)
TabOrder &＃61; 3
end
object COOKIEs: TMemo
Left &＃61; 8
Top &＃61; 64
Width &＃61; 297
Height &＃61; 281
Lines.Strings &＃61; (
&＃39;COOKIEs&＃39;)
TabOrder &＃61; 4
end
object btnInfor: TButton
Left &＃61; 336
Top &＃61; 24
Width &＃61; 75
Height &＃61; 25
Caption &＃61; &＃39;测试&＃39;
TabOrder &＃61; 5
OnClick &＃61; btnInforClick
end
object Button3: TButton
Left &＃61; 416
Top &＃61; 24
Width &＃61; 43
Height &＃61; 25
Caption &＃61; &＃39;清空&＃39;
TabOrder &＃61; 6
OnClick &＃61; Button3Click
end
object http: TIdHTTP
MaxLineAction &＃61; maException
ReadTimeout &＃61; 0
AllowCOOKIEs &＃61; False
ProxyParams.BasicAuthentication &＃61; False
ProxyParams.ProxyPort &＃61; 0
Request.ContentLength &＃61; -1
Request.ContentRangeEnd &＃61; 0
Request.ContentRangeStart &＃61; 0
Request.ContentType &＃61; &＃39;text/html&＃39;
Request.Accept &＃61; &＃39;text/html, */*&＃39;
Request.BasicAuthentication &＃61; False
Request.UserAgent &＃61; &＃39;Mozilla/3.0 (compatible; Indy Library)&＃39;
HTTPOptions &＃61; [hoForceEncodeParams]
COOKIEManager &＃61; COOKIEMngr
Left &＃61; 120
Top &＃61; 96
end
object COOKIEMngr: TIdCOOKIEManager
Left &＃61; 152
Top &＃61; 96
end
end
Left &＃61; 258
Top &＃61; 154
Width &＃61; 650
Height &＃61; 388
Caption &＃61; &＃39;Form1&＃39;
Color &＃61; clBtnFace
Font.Charset &＃61; DEFAULT_CHARSET
Font.Color &＃61; clWindowText
Font.Height &＃61; -11
Font.Name &＃61; &＃39;MS Sans Serif&＃39;
Font.Style &＃61; []
OldCreateOrder &＃61; False
PixelsPerInch &＃61; 96
TextHeight &＃61; 13
object btnLogin: TButton
Left &＃61; 256
Top &＃61; 24
Width &＃61; 75
Height &＃61; 25
Caption &＃61; &＃39;提交&＃39;
TabOrder &＃61; 0
OnClick &＃61; btnLoginClick
end
object edtUserName: TLabeledEdit
Left &＃61; 0
Top &＃61; 24
Width &＃61; 121
Height &＃61; 21
EditLabel.Width &＃61; 50
EditLabel.Height &＃61; 13
EditLabel.Caption &＃61; &＃39;UserName&＃39;
TabOrder &＃61; 1
Text &＃61; &＃39;yannqi&＃39;
end
object edtPassword: TLabeledEdit
Left &＃61; 128
Top &＃61; 24
Width &＃61; 121
Height &＃61; 21
EditLabel.Width &＃61; 25
EditLabel.Height &＃61; 13
EditLabel.Caption &＃61; &＃39;Email&＃39;
TabOrder &＃61; 2
Text &＃61; &＃39;xayahe&＃64;163.com&＃39;
end
object Memo1: TMemo
Left &＃61; 312
Top &＃61; 64
Width &＃61; 321
Height &＃61; 281
Lines.Strings &＃61; (
&＃39;Memo1&＃39;)
TabOrder &＃61; 3
end
object COOKIEs: TMemo
Left &＃61; 8
Top &＃61; 64
Width &＃61; 297
Height &＃61; 281
Lines.Strings &＃61; (
&＃39;COOKIEs&＃39;)
TabOrder &＃61; 4
end
object btnInfor: TButton
Left &＃61; 336
Top &＃61; 24
Width &＃61; 75
Height &＃61; 25
Caption &＃61; &＃39;测试&＃39;
TabOrder &＃61; 5
OnClick &＃61; btnInforClick
end
object Button3: TButton
Left &＃61; 416
Top &＃61; 24
Width &＃61; 43
Height &＃61; 25
Caption &＃61; &＃39;清空&＃39;
TabOrder &＃61; 6
OnClick &＃61; Button3Click
end
object http: TIdHTTP
MaxLineAction &＃61; maException
ReadTimeout &＃61; 0
AllowCOOKIEs &＃61; False
ProxyParams.BasicAuthentication &＃61; False
ProxyParams.ProxyPort &＃61; 0
Request.ContentLength &＃61; -1
Request.ContentRangeEnd &＃61; 0
Request.ContentRangeStart &＃61; 0
Request.ContentType &＃61; &＃39;text/html&＃39;
Request.Accept &＃61; &＃39;text/html, */*&＃39;
Request.BasicAuthentication &＃61; False
Request.UserAgent &＃61; &＃39;Mozilla/3.0 (compatible; Indy Library)&＃39;
HTTPOptions &＃61; [hoForceEncodeParams]
COOKIEManager &＃61; COOKIEMngr
Left &＃61; 120
Top &＃61; 96
end
object COOKIEMngr: TIdCOOKIEManager
Left &＃61; 152
Top &＃61; 96
end
end
3、unit1。pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, IdCOOKIEManager, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;
type
TForm1 &＃61; class(TForm)
http: TIdHTTP;
COOKIEMngr: TIdCOOKIEManager;
edtUserName: TLabeledEdit;
edtPassword: TLabeledEdit;
btnLogin: TButton;
COOKIEs: TMemo;
Memo1: TMemo;
btnInfor: TButton;
Button3: TButton;
procedure btnLoginClick(Sender: TObject);
procedure btnInforClick(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnLoginClick(Sender: TObject);
var
s, s1: TStringStream;
i: Integer;
begin
s :&＃61; TStringStream.Create(&＃39;&＃39;);
s1 :&＃61; TStringStream.Create(&＃39;&＃39;);
try
s.WriteString(&＃39;name&＃61;&＃39; &＃43; edtUserName.Text &＃43; &＃39;&&＃39;);
s.WriteString(&＃39;email&＃61;&＃39; &＃43; edtPassword.Text);
http.Request.ContentType :&＃61; &＃39;application/x-www-form-urlencoded&＃39;;
try
http.Post(&＃39;http://localhost/COOKIEtest.asp&＃39;, s, s1)
except
http.Get(http.Response.Location, s1);
end;
//}
Memo1.Lines.Text :&＃61; s1.DataString;
//下面的是显示COOKIEs信息的代码
COOKIEs.Clear;
COOKIEs.Lines.Add(inttostr(COOKIEMngr.COOKIECollection.Count));
for i :&＃61; 0 to COOKIEMngr.COOKIECollection.Count - 1 do
COOKIEs.Lines.Add(COOKIEMngr.COOKIECollection.Items[i].COOKIEText);
finally
s.Free;
s1.Free;
end;
end;
procedure TForm1.btnInforClick(Sender: TObject);
var
s, s1: TStringStream;
i: Integer;
begin
s :&＃61; TStringStream.Create(&＃39;&＃39;);
s1 :&＃61; TStringStream.Create(&＃39;&＃39;);
try
http.Request.ContentType :&＃61; &＃39;application/x-www&＃39;;
http.AllowCOOKIEs:&＃61;true;
try
http.Post(&＃39;http://localhost/COOKIEtest.asp&＃39;, s, s1)
except
http.Get(http.Response.Location, s1);
end;
Memo1.Lines.Text :&＃61; s1.DataString;
COOKIEs.Clear;
for i :&＃61; 0 to COOKIEMngr.COOKIECollection.Count - 1 do
COOKIEs.Lines.Add(COOKIEMngr.COOKIECollection.Items[i].COOKIEText);
finally
s.Free;
s1.Free;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
COOKIEs.Clear;
Memo1.Clear;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, IdCOOKIEManager, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;
type
TForm1 &＃61; class(TForm)
http: TIdHTTP;
COOKIEMngr: TIdCOOKIEManager;
edtUserName: TLabeledEdit;
edtPassword: TLabeledEdit;
btnLogin: TButton;
COOKIEs: TMemo;
Memo1: TMemo;
btnInfor: TButton;
Button3: TButton;
procedure btnLoginClick(Sender: TObject);
procedure btnInforClick(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnLoginClick(Sender: TObject);
var
s, s1: TStringStream;
i: Integer;
begin
s :&＃61; TStringStream.Create(&＃39;&＃39;);
s1 :&＃61; TStringStream.Create(&＃39;&＃39;);
try
s.WriteString(&＃39;name&＃61;&＃39; &＃43; edtUserName.Text &＃43; &＃39;&&＃39;);
s.WriteString(&＃39;email&＃61;&＃39; &＃43; edtPassword.Text);
http.Request.ContentType :&＃61; &＃39;application/x-www-form-urlencoded&＃39;;
try
http.Post(&＃39;http://localhost/COOKIEtest.asp&＃39;, s, s1)
except
http.Get(http.Response.Location, s1);
end;
//}
Memo1.Lines.Text :&＃61; s1.DataString;
//下面的是显示COOKIEs信息的代码
COOKIEs.Clear;
COOKIEs.Lines.Add(inttostr(COOKIEMngr.COOKIECollection.Count));
for i :&＃61; 0 to COOKIEMngr.COOKIECollection.Count - 1 do
COOKIEs.Lines.Add(COOKIEMngr.COOKIECollection.Items[i].COOKIEText);
finally
s.Free;
s1.Free;
end;
end;
procedure TForm1.btnInforClick(Sender: TObject);
var
s, s1: TStringStream;
i: Integer;
begin
s :&＃61; TStringStream.Create(&＃39;&＃39;);
s1 :&＃61; TStringStream.Create(&＃39;&＃39;);
try
http.Request.ContentType :&＃61; &＃39;application/x-www&＃39;;
http.AllowCOOKIEs:&＃61;true;
try
http.Post(&＃39;http://localhost/COOKIEtest.asp&＃39;, s, s1)
except
http.Get(http.Response.Location, s1);
end;
Memo1.Lines.Text :&＃61; s1.DataString;
COOKIEs.Clear;
for i :&＃61; 0 to COOKIEMngr.COOKIECollection.Count - 1 do
COOKIEs.Lines.Add(COOKIEMngr.COOKIECollection.Items[i].COOKIEText);
finally
s.Free;
s1.Free;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
COOKIEs.Clear;
Memo1.Clear;
end;
end.
![[echarts] 同指标对比柱状图相关的知识介绍及应用示例](https://img7.php1.cn/3cdc5/c7bc/ae9/d860963d11bbd36d.jpeg)
京公网安备 11010802041100号