delphi7中idhttp接收与提交cookie的问题

作者：伊倓 | 来源：互联网 | 2023-08-25 13:20

下面是简单的介绍：首先在（通过idHttp的CookieManager），剩下的你就专心实现你要完成的东西就可以啦。不知道你

下面是简单的介绍&＃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;&＃39;,HTML)>0 then

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

%>

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

3、unit1。pas

转:https://www.cnblogs.com/dwbboy/archive/2011/02/22/1961766.html

推荐阅读

string
利用 Delphi 中的 IdTCPServer 和 IdTCPClient 实现高效文件传输

本文介绍了如何利用 Delphi 中的 IdTCPServer 和 IdTCPClient 控件实现高效的文件传输。这些控件在默认情况下采用阻塞模式，并且服务器端已经集成了多线程处理，能够支持任意大小的文件传输，无需担心数据包大小的限制。与传统的 ClientSocket 相比，Indy 控件提供了更为简洁和可靠的解决方案，特别适用于开发高性能的网络文件传输应用程序。 ... [详细]

蜡笔小新 2024-11-08 16:34:23
string
VB.net 进程通信中FindWindow、FindWindowEX、SendMessage函数的理解

目录一、代码背景二、主要工具三、函数解析1、FindWindow：2、FindWindowEx：3、SendMessage： ... [详细]

蜡笔小新 2024-11-13 14:28:28
string
WinMain 函数详解及示例

本文详细介绍了 WinMain 函数的参数及其用途，并提供了一个具体的示例代码来解析 WinMain 函数的实现。 ... [详细]

蜡笔小新 2024-11-13 12:49:31
jsp
Python 伦理黑客技术：深入探讨后门攻击（第三部分）

在《Python 伦理黑客技术：深入探讨后门攻击（第三部分）》中，作者详细分析了后门攻击中的Socket问题。由于TCP协议基于流，难以确定消息批次的结束点，这给后门攻击的实现带来了挑战。为了解决这一问题，文章提出了一系列有效的技术方案，包括使用特定的分隔符和长度前缀，以确保数据包的准确传输和解析。这些方法不仅提高了攻击的隐蔽性和可靠性，还为安全研究人员提供了宝贵的参考。 ... [详细]

蜡笔小新 2024-11-09 16:33:02
object
如何在C#中配置组合框的背景颜色？

如何在C#中配置组合框的背景颜色？ ... [详细]

蜡笔小新 2024-11-08 13:06:59
dll
c/c++常用代码doc,ppt,xls文件格式转PDF格式[转]

[转]doc,ppt,xls文件格式转PDF格式http:blog.csdn.netlee353086articledetails7920355确实好用。需要注意的是#import ... [详细]

蜡笔小新 2024-11-12 16:19:40
object
Delphi 7下最小化到系统托盘（主要是WM_TRAYMSG和WM_SYSCOMMAND消息）

在Delphi7下要制作系统托盘，只能制作一个比较简单的系统托盘，因为ShellAPI文件定义的TNotifyIconData结构体是比较早的版本。定义如下：1234 ... [详细]

蜡笔小新 2024-11-12 12:32:15
string
开发技巧：在Interface Builder中实现UIButton文本居中对齐的方法与步骤

开发技巧：在Interface Builder中实现UIButton文本居中对齐的方法与步骤 ... [详细]

蜡笔小新 2024-11-11 17:13:04
string
DVWA学习笔记系列：深入理解CSRF攻击机制

DVWA学习笔记系列：深入理解CSRF攻击机制 ... [详细]

蜡笔小新 2024-11-11 13:19:51
dll
C++实现的键盘输入记录程序源代码分析与应用

本文详细解析了使用C++实现的键盘输入记录程序的源代码，该程序在Windows应用程序开发中具有很高的实用价值。键盘记录功能不仅在远程控制软件中广泛应用，还为开发者提供了强大的调试和监控工具。通过具体实例，本文深入探讨了C++键盘记录程序的设计与实现，适合需要相关技术的开发者参考。 ... [详细]

蜡笔小新 2024-11-10 15:44:03
string
使用Maven JAR插件将单个或多个文件及其依赖项合并为一个可引用的JAR包

本文介绍了如何利用Maven中的maven-assembly-plugin插件将单个或多个Java文件及其依赖项打包成一个可引用的JAR文件。首先，需要创建一个新的Maven项目，并将待打包的Java文件复制到该项目中。通过配置maven-assembly-plugin，可以实现将所有文件及其依赖项合并为一个独立的JAR包，方便在其他项目中引用和使用。此外，该方法还支持自定义装配描述符，以满足不同场景下的需求。 ... [详细]

蜡笔小新 2024-11-09 01:59:29
export
Vue 页面状态管理与跨页面数据传递的有效策略

在 Vue 应用开发中，页面状态管理和跨页面数据传递是常见需求。本文将详细介绍 Vue Router 提供的两种有效方式，帮助开发者高效地实现页面间的数据交互与状态同步，同时分享一些最佳实践和注意事项。 ... [详细]

蜡笔小新 2024-11-08 12:45:14
object
在Django中提交表单时遇到值错误问题如何解决？

在Django项目中，当用户提交包含多个选择目标的表单时，可能会遇到值错误问题。本文将探讨如何通过优化表单处理逻辑和验证机制来有效解决这一问题，确保表单数据的准确性和完整性。 ... [详细]

蜡笔小新 2024-11-08 10:29:57
object
单元测试：使用mocha和should.js搭建nodejs的单元测试

2019独角兽企业重金招聘Python工程师标准BDD测试利器：mochashould.js众所周知对于任何一个项目来说，做好单元测试都是必不可少 ... [详细]

蜡笔小新 2024-11-12 11:08:57
export
Android 源代码解析系列（一）：init.c 文件详解

本文详细解析了 Android 系统启动过程中的核心文件 `init.c`，探讨了其在系统初始化阶段的关键作用。通过对 `init.c` 的源代码进行深入分析，揭示了其如何管理进程、解析配置文件以及执行系统启动脚本。此外，文章还介绍了 `init` 进程的生命周期及其与内核的交互方式，为开发者提供了深入了解 Android 启动机制的宝贵资料。 ... [详细]

蜡笔小新 2024-11-10 00:35:48

伊倓

这个家伙很懒，什么也没留下！

Tags | 热门标签

RankList | 热门文章