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

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调试通过)

一周消息树:微软畏惧Chromebook、苹果失去优秀工程师 Google Dart语言开启标准化历程,取代JavaScript仍艰难 11款网站死链检测工具 谷歌Chromecast 2014:开放SDK、建生态系统 大举进攻客厅 优秀程序员的6个共同特质 开源的力量:“中国杯”游戏极限开发大赛 GNOME.Asia 2014年峰会时隔六年重返北京 JavaScript社区开发者调查:服务端JS盛行,Backbone.js使用最多 为什么开发者担心将代码公布 【投稿】移动互联网初创团队7大云计算服务实践分享 云计算发展越快,中小IDC发展机遇越好 前富士康CEO程天纵:创客与资本间并无矛盾 【开源专访】Java高效开发框架Nutz:是SSH的轮子?还是新神器? 仿Google Now和Siri?微软WP8.1将推语音助手Cortana NodeJS无所不能:细数10个令人惊讶的NodeJS开源项目 【快讯】18-19日,亚马逊AWS负责人Andy Jassy会在北京说什么,做什么? 数据库未来的5大预测 华为王丰谈华为一体机三大优势 FusionCube SQL Server针对Windows集群加速 浏览器基准测试:IE11成绩惊人 移动开发工具访谈《近匠》第02期:梆梆安全——APP安全之道 罗永浩:ROM创业,锤子科技A轮融资7000万 独立开发者的自白:Objective-C最糟糕的13件事 回顾Google这一年——Android篇 百度手机卫士正式发布 “防吸费”功能全球首创 2013年平板电脑市场竞争回顾 Apple太阳能数据中心进展顺利,但却在税负减免上备受争议 一名开发者的年度回顾 智能手表Pebble明年初推应用商店 开发者今日起可提交应用 够快科技推出企业级云存储服务“够快云库” 项目开发中,质量和速度哪个更重要? 亚马逊AWS落地中国,云计算产业圈集体发力 哪位能给提供一套ISO文档的实例? 如果procedure中执行的是一条SQL语句,如何得到返回的数据集? 可不可以在单线乘里开2个SOCKET? 帮我看看这个c语言的程序! 怎样处理窗口标题? 高分求助 !!!怎样利用INTERNET实现异地多台机器互连? 很简单,如何得到当前的时间和日期?(在线等待) 请问哪里有用applet做的,能绘制数学曲线的动态演示系统?各位,请不吝赐教 今天大清早被人诅咒! Delete 多个表时一条语句怎样写?? 请教:如何获取文本框中SQL语句。50分 日期型的格式应该怎样写?? windows xp internet 浏览器的问题 大家帮我看看这段代码:它是如何得到name和phone的值,并写到文件中取得 100分求李维的delphi5.x分布式系统开发的源代码,电子书我已经有 奇怪。为何win2000的搜索选项中的日期控件是Delphi中的样式?欢迎来讨论,给分!!! 请教一个数据库查询的问题! 哥、姐帮帮小第,一生成并打印表格问题(有图片及字体适应),急急,十万火急。 怎样在ASP.NET的页面中,把DataGrid的表头改名??急急急!!! 在线求教:怎样在自己定义的函数里封装自己的MouseMove类??? (高手求救………100分)怎么样用socket(http)实现上载!请提供思路或source code! 怎样调用Dll中导出的变量??? 那位大哥有关于颜色渐变的算法的代码,给小弟一份 小弟万分感谢 颜色渐变的算法 颜色渐变的算法 问一个有关缓存的问题 更换基类的问题? 感谢上学期大家的帮助——散分 一个奇怪的问题,100在线送给你!!! 用rave生成的pdf格式报表,中文字符怎么是乱码? 请进来: windows 2000 能不能用API的方式将Imagelist中的图画在命令按钮(Commandbutton)上? 请各位指点怎么从SQL65升级到7,还有数据备份?请大侠指点迷津? 请问如何解决.exe文件在其他机器上的运行问题 允许DBGrid对记录进行编辑,在线等待,急急急~ 如何在vb.net定义失去焦点事件? 如何读出文章中的部分内容(在线等待) 怎么样在VB中实现象PING -A命令 有没有一个更好的论坛????????????????????有没有人来踢馆?????????????????????????????? 如何访问隐藏共享的硬盘 请大家评评,先谢了 一个有趣的问题: 慢的问题 我在windows下的FormInput里有多个sqlDataAdapter 数据几百条 DataSET.fill慢及了 如何返回当前程序目录的上一级目录? EA,你给我进来,你又欺负我MM啦? 请问PB的DATA window如何实现分页? 关于pb中我在sqlserver中定义的字段类型是varchar(1000),结果在做数据窗口时它总是自动截取为char(255),为什么?如何解决这个问题(除了 IIS出错了,凡是需要数据库的asp程序在执行时出错: 关于下三角矩阵压缩存储问题 求免费下载电影电视剧的FTP站点 模块实现 数据表转换问题. 请帮帮忙. 十月革命前的俄罗斯法的特点 社会主义国家土地制度都是公有制吗?世界上采取土地公有制的国家都是有哪些? 验证Cu2+离子 酸雨作为全球性环境问题之一,请问主要由哪一种气体的排放引起 新中国成立到人民公社化之间的这段时期,土地是私有制还是公有制1949—1962这段时期实行的农村合作社,是土地公有还是私有? O2、SO2、HCl的氧化性顺序及排序的依据是什么? 有关滑轮组的问题我们老师说,这个滑轮组的动滑轮受力方向是下面这样的,为什么?上面的不对吗? 谁有初中语文教学用书? SO2 使品红褪色是利用氧化性还是漂白性?Hcl 滑轮组的题怎么做? 我国现在的土地制度是公有制还是私有制分界线是什么? 人民公社是什么年代 为知道金属丝电阻的大小,小明用铭牌为20欧1A滑动变阻器和金属丝,电流表串联接入电路,请写出测电阻的主要并金属丝电阻的表达式. "井底之蛙"这个成语大家都很熟悉吧?你能解释为什么"坐井观天,所见甚小"吗?你能根据光的直线传播原理画图来说明吗?第2问可不答 人民公社时期农村生产怎样的状况?说错了、是“遍哨子不买账,二遍哨子伸头望,三遍哨子慢慢晃”反映了当时农村生产怎样的状况?其主要原因是什么?、 如图所示(两根绳子系着动滑轮的),工人用滑轮组在5秒内把重80N的物体匀速提高2m,克服绳重及绳与滑轮间摩擦过程中做了10J的额外功,每个滑轮重15N,则A.拉力F的大小为47.5N B.滑轮组的机械效 关于光线的物理题在水平版上竖直插上一把直尺,选一个有太阳光的地方,每过半个小时(中午12点左右时,每过15分钟),在直尺影子的顶端做一个记号并量出影长,找出一天中影长最短的时刻怎 人民公社是什么东东?谁想出来的? 滑轮组的问题定滑轮动滑轮都懂 但是看不懂滑轮组比如这个怎么看拉力是物体重的几分之几求教判断方法以此为例 物理题,光线光线垂直射到镜面上时,入射角为( ),反射角为( ),入射角和反射角的夹角是( ),反射光线的方向改变了多少? 人民公社存在多长时间? 滑轮组第四题 关于光线的一束红光与一束蓝光共同照射在同一个点,那点反射出来的光是什么颜色的?红,绿,蓝三种光束共同照射在同一个点,那反射出来的是白光吗? 二氧化硫对植物的伤害极大.将四棵生长状况都良好、大小相似、品种相同的植物分别放入以下的四种环境中,如果四种环境中的二氧化硫的浓度相同,你认为下列哪种情况下植物受到的伤害最 酸雨作为全球性环境问题之一,主要由哪一种气体的排放引起? so2将直接危害高等植物的什么组织 以下四种东西,哪种与碱反应会生成氨气A NO3B NHO3C NH2OD N2H4O3 1.能引起温室效应的气体是 2.会引起酸雨的气体是氧气 氮气 二氧化碳 二氧化硫四个选项都要填入 空气净化器对pm2.5有用么 请教旅游从业者,什么是生态旅游? 世界反法西斯战争是胜利的原因概括性,精辟 问一道关于滑轮组的题目用滑轮组竖直提起重物,若用80N的拉力使320N的物体上升0.3m,拉力移动的距离是1.5m,求:1.该滑轮组中动滑轮的总重力(不计摩擦和绳重)2.若被提升的物体重力增加了100 生态旅游的意义是什么? 世界反法西斯战争取得胜利的根本原因是? 一道关于滑轮组的科学题目.如图,重为800牛的物体A在F=50牛的拉力作用下,以20厘米每秒的速度在水平面上做匀速直线运动,若滑轮组的机械效率为80%,求5秒内拉力做功多少?物体收到水平地 忐忑不安, 世界反法西斯战争胜利是哪一年? 关于滑轮组的一道科学题目一个滑轮组,动滑轮由2股绳子承担,工人师傅用500N的力,在100秒内把800N的重物匀速提升10米,A、他做的有用功是8000WB、他做的总功是1000JC、他做功的功率是80WD、滑轮 为什么明朝起义的是农民阶级的李自成,不是资产阶级呢为什么张居正会这么早死呢. 世界反法西斯战争胜利的决定性因素 一道关于滑轮组的题设计一个滑轮组,使拉力是物重G的1/3,人的拉力方向向下,要求所用的滑轮个数最少(不计算滑轮重的摩擦) 什么是生态旅游? Fe和硝酸铁 人民公社产生的影响? 如何在贵州发展生态旅游,1什么是生态旅游.2为什么要发展生态旅游 滑轮组的试题 一台起重机将重1.5×10的4次方N的钢材竖直匀速提升4m,用时10s.求:(1)起重机拉力做的功 (2)起重机拉力做功的功率. 为什么只能用水对反应堆进行降温?不能用干冰、液氮之类低温的东西么?是会起反应还是其他原因? 日光灯有时能亮有时不能亮.打开开关的时候会闪一下.刚开开关的时候灯有时会闪一下,然后过几分钟可能就亮了,但是有时候根本就没反应. 人静止在地球表面上受不受摩擦力 大气中的二氧化硫直接危害陆高等植物( )组织. 动滑轮上绕了三段绳子 有4个钩码 每个0.5N 将钩码匀速上升20CM 弹簧测力机移动60CM弹簧测力几 试数为1N 求有用功和总共 机械效率 滑轮组的题题不计滑轮自重,要想站在地面上用250N的力提升起600N的重物,至少需要用几个滑轮?怎样绕绳?二楼的,最后的力是向上的,题上说是站在地面力应该向下拉??是吧?那该怎么办? 人民公社哪里好? 滑轮组试题F与G的关系如何? 爬树时,人受到的摩擦力,与地球重力相反方向的摩擦力是说成地球的摩擦力还是与树产生的摩擦力? 深思与沉思的区别 关于十月革命前的俄国1.十月革命前夕的俄国是各种矛盾的集合体,对此理解准确的一组是( ) ①垄断资产阶级和无产阶级 ②沙皇专制与人民大众 ③大俄罗斯民族与少数民族 ④俄帝国主义 第一次世界大战卷入国? 沉思与深思的区别 经济复苏强于预期 10月PMI创18柯文哲批民进党“乱邦” 苏贞昌:不必苗族大妈不识总书记:“怎么称呼您?”台湾花莲发生4.7级地震 民众再度心香港名医庄善春捐资120万修建华侨大16秒26 温州女生刘伊玮单手还原魔温州一对母女裸死出租房内 腿部有烧焦浙江大学教授演示神奇“隐身衣” 鱼缸上周末金华16个监测点 11个点空气婴儿注射疫苗险丧命 “疫苗后遗症”家浙江多举措扶持小微企业浙江商品房销售增幅下降上海总价地王刺激周边二手房 两月单价朴槿惠出席法国韩剧派对 当地民众热情江苏一农业类高校设电梯专业 学校回应棱镜门记者称自己必将返回美国 绝不因快车道上驶来雪橇车:老人驾车三只狗狗南京:学生上“普高职高融通班”可读大南京一男子酒后开车连撞5车被判缓刑南京六合区一农民因焚烧秸秆被治安拘留南京博物院耗资千万建成文物“医院”(《哥斯拉》 吸金近2亿美元冀连梅:中国人应该这样用药(7)书店的灯光第二届“影响中国收藏界人物艺术造像”纵死犹闻侠骨香沈绣让“非遗”为生活所用儒家文化圈的流变与新机舒淇素颜自拍被爱猫抢镜 分享影片帅哥雅典民主的 结构性缺陷王力宏宣布妻子怀孕预算法修改 与准自愿服从原则发掘和创新 优秀传统文化价值观资源深圳馆藏级楠香 “移步换景”吴奇隆任上海电视节评委张勇:“裸官”该以怎样的姿势退场?董碧辉:国家赔偿,不能一赔了事胡耀邦 从红小鬼到总书记(25)“公告牌”颁奖贾斯汀大赢“中国在哪里 中葡当代艺术展”在京举先锋音乐根植深圳观点摘编
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘