说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Cookie的建立使用-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
Cookie的建立使用-Delphi资料

Delphi 3是Borland公司1997年推出的可视化、面向对象的高效率的快速应用程序开发工具(RAD),提供

了大量的最新功能,例如开发COM/DCOM,一步开发ActiveX对象,多层数据库应用程序MIDAS等,并且使用

Delphi 3开发基于Web服务器的程序,如ISAPI/NSAPI ,Win-CGI,CGI程序都十分方便。

使用Delphi 3开发Web Server程序是非常简单,方便的,因为在Delphi中提供了Web Module、

TWebApplication、TWebRequest、TWebResponse、TPageProducer等大量的对象供使用.对于

Cookie

Delphi3也提供了大量的程序供使用

如TWebResponse.Cookies,TWebResponse.SetCookieField

,TWebRequest.Cookie,TWebRequest.CookieFields,TWebRequest.ExtractCookieFields等,应该是

非常方便。但本人为了实现一功能需要设置Cookie,但是发现使用Delphi提供的SetCookieFields设置不

成功,经研究Delphi 3所带的HttpApp.Pas和IsapiApp.Pas文件发现在中文Windows 95和NT环境下该程序

有错误。 根据Netscape公司的规定

Cookie的格式应为: Set-Cookie: Name=Value; expires=DATA;

Path=PATH; domain=DOMAIN_NAME; secure而且根据规定

日期(DATA)的设置必须满足格式“Wdy

DD-Mon-YYYY HH:MM:SS GMT”

基于RFC822

RFC850

RFC1036和RFC1123等规定,但是检查

HTTPAPP.PAS中的function TCookie.GetHeaderValue: string中为FormatDateTime('"expires="' +

DateFormat + ' "GMT; "'

Expires);

其中const DateFormat = 'ddd

dd mmm yyyy hh:mm:ss'

程序在英文环境中产生的格式是正确的

但是在中文中产生的结果却不对

因为星期和月份都将按照中文的表

示方法:如将11月生产“十一月”中文串,这样在Netscape Navigator和Microsoft Internet Explorer

就不能辨认了。

既然错误在于原VCL未考虑中文环境的问题,所以修改的方法有:1、修改VCL源程序

编译后将dcu文件拷

贝到Lib目录,这样会完全改正错误,这样是最根本的解决方法,但是 如果将源程序放在另一未修改的

Delphi中(例如提供源程序给别人和自己重新安装)编译又将出现问题。2、因为使用并不太多,所以可以将

修改的程序放在自己的程序中,使用 Delphi 3 提供的TWebResponse.SetCustomHeader设置

这样的好处

是将程序放在自己的程序内,重新装Delphi或在另一台计算机上编译的结果也会完全正确。因为Cookie的

目的一般有两种, 一种是在此会话过程中使用,过后不使用,此时不需要Expires段,不会产生时间错误,

可以使用Delphi 3提供的所有Cookie程序;另一种为永久保存,时间一般越长越好,于是可以将时间设置

为2099年二月22日

于是程序中设置Cookie的方法为

:Response.SetCustomHeader('Set-Cookie'

'Name=Value; expires=Sun

22 Feb 2099 08:08:08

GMT'); (注斜体用自己的名称代替,例如设置Count=10,则Name用Count代替,Value 用10代替),这样

就可以建立Cookie了.

以下为建立一个访问计数器的程序,可以参照:

const

LastIp:String='0:0:0:0'; //避免重复计数

Var

S:String;

Count:Integer;

begin

S:=Request.CookieFields.Values['count'];

if S<>'' then begin

try

Count:=StrToInt(S);

Except

Count:=0;

End;

end else Count:=0;

if LastIp<>Request.RemoteAddr then Inc(Count);

LastIp:=Request.RemoteAddr;

Response.SetCustomHeader('Set-Cookie'

'count='+IntToStr(Count)+';

expires=Sun

21 Feb 2010

08:08:08 GMT');

Response.Content:='您是第'+IntToStr(Count)+'来到本页!';

End;

(以上程序用Win95B的个人Web服务器+Netscape Navigator 4.04调试通过)

《近匠》专访极路由CTO康神 真正智能中心应当这样做 为什么说Android才是游戏开发者的乐土? 开发移动医疗应用必知的10个掘金点 个推CTO叶新江:云推送技术如何助力产品开发 《近匠》Face++:漫谈人脸识别 无线充电技术赛高:随意走动也能电量满格 体验至上!移动Web应用JavaScript UI库App.js 专访中国国航:传统行业的“轻应用观” 开发者找众筹,哪些网站更靠谱? 48小时脑力激荡 中美青年创客大赛英特尔北京选拔赛 “微应用+大平台”推动企业软件走向碎片化 浅谈Hive vs. HBase 十款最新的JavaScript开发工具 JavaScript Promise启示录 百度携多位安全专家深入探讨安全人才快速培养机制 卡饭技术代表严佳:引入安全人才,企业应遵循S.L.E.E.P、S.T.A.R法则 百度资深研发工程师周晓波:平台+数据 百度培养安全人才的重要思路 代码审查是如何抹杀开发者积极性的? 事件分析平台EventHub开源 云计算智能交通行业论坛:李德毅院士谈智能车 多家知名企业分享应用实践 我伙呆!CRM生死对手微软及Salesforce或将联手 阿里巴巴曾鸣:数据时代来临 OpenStack企业应用之路技术培训:虚机迁移、HA、VDI、跨Hypervisor管理 云计算技术背后的那些天才程序员:KVM之父Avi Kivity 中国气象局联手阿里云:海量气象数据变“活数据” 浪潮首度公布“I2I计划” 全面接盘IBM X业务 一周消息树:Surface Pro 3想替代笔记本太难,微软正逐渐迷失方向 就是要赚钱!NativeX推自定义原生广告交易 继智能手机后的下一个战场:智能家居 鏖战云端——亚马逊的生存法则 如何保住公司的人才:创造良好的学习氛围 怎么在有框架的窗口关闭时引发Unload事件?如将数据保存到数据库 有哪位大侠知道mp3文件的具体格式? 我的练习程序 用urlconnection实现“网络爬虫”功能时候,怎么解决登陆问题 关于showModalDialog:webdiyer(陕北吴旗娃)请进!up!5分,不够在加。 急救2003 Function registration failed 在dev-cpp里如何减小exe文件大小? 如何将截获的视频图片(在系统剪贴板中)保存为图片文件??急,在线等!! 局域网共享上因特网+2M专网 我电脑感染病毒并杀毒后,到达桌面后不出现图标??? LOAD备份时con't open a connecttion to site “SYB_BACKUP" . 请问将帖子另存为脱机文件后如何看,是不是要下个什么东西? 计算机系的考研有用吗? 为什么Agent执行完毕后,页面无法跳转到print指定的地方,在线等!!!! 求助,有关框架页的问题 请问如何可以把 TTreeview.items 和 TListview.items 保存到文件中? DVD解码器? 阿东,提供一个串口通讯测试程序吧! 为什么不能运行UPDATE语句? 清高手指教!!! windows网络编程书籍? 在什么地方可以看到Lotus有哪些保留域,怎么那公司连这都不提供呢? asp的一个BUG??谁能解决这个问题啊. 简单问题,呵呵! 刚毕业的计算机本科生怎么提高自己的工作经验!!! 图标变色问题 急!!程序做完了,但放到客户机上无法连接服务器上数据库??? 关于.net 2003+win2003 server下使用多媒体控件的问题,谢谢 布什总统给12岁中国小姑娘的回信 那里有VC6.0内幕技术的第五版下载 发送的问题[初学] 数据表加密 关于DELPHI6操作INI文件的问题! 散分啦,快来抢分!谁能提供计算机中英文论文一篇,来者都必有分! 求银行家问题的C语言解法 请问,在中国,VC程序员的主要工作是什么? 菜鸟问题,ADO添加记录已经在浏览器上看到结果了,可是实际的ACCESS数据库却没变呢 怎么刷新整个窗口包括标题栏 订购了程序员全年杂志,不是送一本书吗?都已经出版这么久了,怎么还没有送过来呢?! 散分啦,快来抢分!谁能提供计算机中英文论文一篇,来者都必有分! 两个combobox关联显示(在线等) 关于我的yamaha 声卡在2003 不能用的问题 我用WIN98浏览器下载的文件都有错误。 Tomcat中的发行目录怎么设置! 初学者的问题. 关于最终用户许可协议 JPG图片怎么能实现部分透明? 如何用VB.net编写控件 关于ASP中对文本文件的skip(n)操作到底怎么做 关于SQL的菜鸟问题 一条线段经过两点(2,3)、(—1,—1),它与二次函数y=x^2-2mx+1的图像只有一个交点,求m的取值范围. 怎么写 3,4题 问他们骑电动车的速度多少,他们都说多少码,我不知道什么意思,1码等于1km/h么?不是的话是多少?20km/h是多少码? 领水面积与管辖海域面积有何不同 数学上的概率 C52乘以C34是怎么计算的? 地理E是什么 翻译左拉名言‘生活的全部意义在于无穷的探索尚未知道的东西.在不断的增加更多的知识 二氧化碳会使我们怎么样 105°E,115°E,116°E,130°E,80°W经过的国家有哪些?地理是我的弱项,想尽快补回来 左拉名言:忠诚是通向荣誉之路 的正确英文翻译是什么 请问英文发音 格ruai织A替 是哪个词 原话是after i 格ruai织A替 from university. 已知 89°W 12;00 求116°E 时 已知 89°W 12;00 求116°E 时 请问 我在CS里面 看到总有人说这几个字母 :) D:D:D这俩字母 还有这个:_)还有什么这类的字母? 想快点提高下英语的成绩,去新东方有没有效果? 单个基因测序费用是多少? 狼,鸡,九头鸟,现在有百头百脚问个多少写出步骤 你喜欢哪一个书包,绿色的还是紫色的?用英语怎么说 一根自由悬挂着的绳子,有人将它的中点缓慢下拉,使它成两条直线形状,则绳子的重力势能是增大, 拔河时是否要选力大的人 说明物理原理 绝对有益~T^TThe tacher as well as the students_____ the movie already.A has seen B have seen C is seeing D are seeing.为何为何 愁煞我也~ 古代借"布衣"来代平民,请问古代借什么来代音乐 一鸡笼里装有九头鸟,鸡和兔若干,已知头100,脚100,问各有多少只?九头鸟,鸡各两只脚,兔子4只脚 拔河的物理原理复制的不要!拔河比赛中究竟用到了哪些物理知识,如何才能利用这些物理知识获得比赛的胜利? 软冰淇淋和硬冰淇淋有什么区别 发明创造的作用 《 题李凝幽居》题目的意思 如图,怎么理解因为b到c有三个横条二个纵条所以就为C52呢? 一根长为L、质量为m的均匀链条放在光滑的水平桌面上,其长度的一半悬于桌边,若要将悬着的部分拉回桌面,至少做功A. mgL B.mgLC.mgL D.mgL They sat together,__carefully the blueprint of the buildig.有四个选项,请问选那个,A.adn study B.to study.C.studing.Dand studying有没有一个很好的方法,来区分,什么时候用现在分词,什么时候该用不定式呢 高中有关排列组合的符号怎么打?比如A33 C52…… 创新的的作用? do you usually play happily together 为什么用happily 两个物体之间的万有引力大小为F1,若两物之间的距离减小x,两物体仍可视为质点,此时两个物体之间的万有引两个物体之间的万有引力大小为F1,若两物之间的距离减小x,两物体仍可视为质点 一根质量为m,长为L的链条,挂于光滑的轻小滑轮上.由于某种原因使链条开始滑动,当整根链条滑离小滑轮时,链条的重力势能改变了多少?滑轮是一个定滑轮,一开始链条是跨在定滑轮上的(链条左 车床 CA CD CW a-b=二分之一,a+b=? 语言是不是思维的唯一工具 黄鼠狼、野鸡、九头鸟数头一百,数脚一百,问各有几只? 下列哪一选项不属于新闻记者有用隐性采访时应遵循的原则 语言是否是思维的唯一工具?语言是思维的工具已经狠了解了主要强调是不是唯一的问题!狠着急!只有大脑? 2、3、4题选什么?我有没有选错 新闻采访的重要性有哪些方面 语言是思维的工具,语言与思维具有非常密切的关系.是对是错 九头鸟,老鼠,共100只脚,100头,各几只?要步骤九头鸟,九个头,两只脚,老鼠就不用说了,小学奥数问题 M:1590 2398 116 找出句中错误的一项,并把正确的写在括号内.Everyday I must speak a little English找出句中错误的一项,并把正确的写在括号内.Everyday I must speak a little EnglishEveryday划线,must划线,speak划线,a little 划线. 2、3题对还是错, 一个质量是50g、体积为100cm3的容器,装满某种液体后总质量是130g,求这种液体的密度? 求第三题,为什么三对四错? 【高二数学】直线ax+y-4=0与直线x-y-2=0的交点位于第一象限,则实数a的取值范围是直线ax+y-4=0与直线x-y-2=0的交点位于第一象限,则实数a的取值范围是 LED灯卷是并联还是串联的,我这是一种老式的灯带.一卷用铜线接的.一卷.请问每个灯是并联还是串联的?剪下来.40个灯.怎么我用.3节五号电池供电很亮,理论上说,应该是.每棵LED是.3V.20MA的话.应 我国管辖的海域面积为: 若直线2x-y+a=0与直线ax-y+2的交点在第一象限,则实数a的取值范围 牛顿第2定律是什么? 一条过定点的直线如何让其不与坐标系上的一条线段有交点? 已知函数y=ax平方图像与直线y=-x+4在第一象限内的交点和它与直线y=x在第一象限内的交点相同,a为多少? 求教,四十分钟电瓶车平均30码的速度跑了多少公里 两个三维实体相交 怎么把交点相连成一条线段…… 或者说怎么捕捉实体相交的交点啊 3,4题怎么写 请问一下我的电动车速度怎么只有30码我的车子具体情况是这样的:车子是60V的大电动车,但是速度充满电后确只有30码,控制器也是1000瓦的,我最怀疑的就是控制器,因为控制器上面写的三速,请 韩国人战殁者遗属要求靖国神社取消合祀调查称希腊民众生活质量比经济危机前显以情报部长质疑伊朗谈判诚意 吁美制裁2047年:全球高温临界点?挪威称应联合国要求将协助销毁叙利亚化美专家:进口产品及食品易导致美国儿童俄空降兵部队摸黑赶路不慎引爆炸弹 致日本“无性症候群”涌现 恐陷“绝种”报告称美国600万年轻人无所事事 不安倍7小时长会后品尝软柿子 满足称“法国媒体再曝美国监听法国驻美和联合国安倍称日本拟限制外国人在国防设施附近伊朗死囚受绞刑后未死 司法部长称没必数据显示日韩航路日本乘客骤减 创历史美影院拟设“手机短信专用区”防手机光英14岁少年被控5次性侵 3宗案件发普京指责俄地方政府官员失职导致严重民美秘密窃听法公民惹怒法总统 法紧急召纽约华埠便衣警察扮匪调查抢劫案吓坏金叙总统称叙会议日期未定 联合国特使将奥巴马健保网面临感恩节大限 逾期恐将欧美顶尖寄宿中学来华招生双节旅游需防登革热玉米炒葡萄 学生不敢尝捉鬼归物业管北京:女子为还债嫁债主 房子过户后再听不懂:巴别塔之后的世界南瓜变祥龙卖房反悔 律师速离婚房子给妻最喜欢市场导向的成长股黄的是银杏红的是茶条槭拍卖会将举槌核桃树下忧伤小孩看到了希望乘客劝阻被打跨栏有点冷清外国女游客摔伤被困古北口长城学校周边部分企业被关停3乘客掉入隧道是场美丽误会?这种告别相当完美狼吞虎咽没话说:和父母惜字如金
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘