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

Delphi开发Web Server程序如何返回图像

HTML文档下载 WORD文档下载 PDF文档下载
Delphi开发Web Server程序如何返回图像

Internet/Intranet在九十年代可能是最流行的计算机术语了,不管是计算机行业内的人士还是计算机外的人士,都会使用Internet/Intranet,有的查资料,有的是宣传自己和公司,甚至有许多以前从没有想到用Internet的东西现在也在用Internet来解决,比如有的程控数字计算机维护用Internet来解决。在这一切应用之中,基于Web Server的应用程序的开发是基本点,但如何开发Web Server的程序呢?

Delphi 3是Borland公司1997年推出的可视化、面向对象的高效率的快速应用程序开发工具(RAD),提供了大量的最新功能,例如开发COM/DCOM,一步开发ActiveX对象,多层数据库应用程序MIDAS等,并且使用Delphi 3开发基于Web服务器的程序,如ISAPI/NSAPI,Win-CGI,CGI程序都十分方便。

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

WebApplication

TWebRequest

TWebResponse

TPageProducer等大量的对象供使用。而且由于Delphi强大的数据库开发能力,使得Web Server程序的开发更是锦上添花。在本文中主要讨论一般Web Server程序的开发,希望给您一个抛砖引玉的作用。

一般Web Server返回的信息有基于HTML的文字流和图像流,如Jpeg和Gif等。返回文字流的方法是使用TwebResponse.Content,在Delphi 3的Demos中有这样的例程,但如何返回图像呢?

返回图像的方法是用TwebResponse.ContentStream和TjpegImage类。具体实现如下,例如您有三张图片,希望在别人访问您的主页时能随机的显示一张,在您的主页中有如下的HTML语句:,那么在您的Web Server的缺省的TwebActiveItem中如下处理:

var

Jpg: TJpegImage;

S: TMemoryStream;

I: Integer;

Begin

Randomize;

I:= Random(3);

Jpg := TJpegImage.Create;

try

Jpg.LoadFromFile('C:\WebShare\Scripts\test'+IntToStr(I)+'.Jpg');

S := TMemoryStream.Create;

try

Jpg.SaveToStream(S);

S.Position := 0;

Response.ContentType := 'image/jpeg';

Response.ContentStream := S;

Response.SendResponse;

finally

S.Free;

end;

finally

Jpg.Free;

end;

end;

因为使用了TJpegImage类,所以必须在Uses中添加对JPEG文件的包含。

以上程序用Microsoft个人Web服务器和Netscape Navigator 4.04调试通过,完整的源程序和可执行代码在我的个人主页(http://www.nease.net/~borland)上,可以下载。

那些巨头公司Logo是这么演变来的…… 以史为镜,剖析PaaS大迷局 “心脏出血”还不够?又曝OAuth和OpenID登录漏洞 走近讲师:搜狐于顺治讲述搜狐PaaS云平台实践之路 AppFlood 2014 Q1报告:亚洲和中东市场成为开发者出海首选 华为联合运营商构建能力开放平台 Facebook产品设计主管:揭秘公司如何招聘优秀设计师 【附信息图】美国因软件缺陷导致的十大事件 二十一世纪Windows简史 为什么用户体验和生态系统决定云公司的成败 三星Tizen,路漫漫其修远兮 用户体验是新优势,互联网会受到何种影响? 从GitHub看编程语言流行度 陈沙克:Openstack Horizon Icehouse Blueprint简介 叶琪:Hadoop不是万能的 要明确场景扬长避短 云网融合驱动数据中心技术聚变 给想持续编码CEO的4个建议 盘点开发者最喜爱的十大开源Xcode插件 Cloudera CTO:取代MapReduce 未来会加大Spark等框架投入 中航信资深分析师李洋:自主搭建云平台 助力民航业低成本迎接大数据挑战 安全狗创始人陈奋:借助Hadoop与Spark,欲打造服务器上的360 业界良心:Square开源Viewfinder,25万行代码全公布! 比尔&#183;盖茨:核心业务Bing虽不赚钱,却不能拆分 不可错过,参加第六届中国云计算大会的十大理由 章津楠:未来三年,OpenStack将成为企业去V首选 EMC收购闪存初创公司DSSD,走出联合储存战略第一步 创业失败的七个原因及解决之道 集结号:最受开发者欢迎的跨平台游戏引擎 Cocos2d-x v3.0正式版本发布!优化C++、Lua、JavaScript接口 定价99元首发1万台 360安全路由器启动预约 AMD新产品线曝光 首次实现X86与ARM针脚融合 有关时间限制 ie问题有没有碰到过 TADOTable+TDBGridEH+TDataSource中编辑一有关键字的表时,怎样做到避免在输入相同的关键字时的出错? IE经常自动关闭是什么原因 菜鸟请教 UlraEdit? 四舍五入的函数是什么?? 帮帮忙!!!我编译出这问题?? 请问:发现病毒:生成folder.htt,还有后缀都是htt的其他文件,用kv3000杀,提示kbs\kj,请问是什么病毒,怎么杀毒(急)? ie问题有没有碰到过 打开adsl的猫机器能自己启动为什么? 神洲数码怎样? linux中如何得到某个网络设备的ip地址? 请教ADO的Recordset对象的Delete的问题 请问jbuilder的参考书,哪本比较好?市面好像种类比较少 请问怎样获得临时表的记录? @@@@@@@@@@如何使我的折线图随着时间移动@@@@@@@@@@ 菜鸟问:各位大哥看c++ primer的时候是用什么编译器? 神洲数码怎样? jsp如何将web页面的String型转换为long型? 极容易的问题 ,先来先得! 大虾,救命啊!!!!!! jsp如何将web页面的String型转换为long型? ★★★帮忙翻译一句话!谢谢★★★ **冗余醒目**《如何在输入的时候减小冗余》**冗余醒目** 倡议书:维护您的网络权益 [100分,两日内结]怎样在jsp中得到我的数据 两个菜鸟问题,送分拉 线程与消息??? c、odbc、嵌入式sql的关系? 简单的重载问题! 用<input type="fiel" name="test">时,怎样判断输进去的文件是硬盘上实际存在的? 请问哪里有eclipse 下载? FINDING SOMEBODY! 显示器不亮,请帮忙,解决给100分 写在3.15黎明的前夕 **冗余醒目**《如何在输入的时候减小冗余》**冗余醒目** 各位,CSDN的论坛都是用些什么工具开发的?? 请问个位大虾,我的程序为什么不能执行(TC++3.0) 在VC中怎么调用IE来显示一个页面? 怎样在新开的页面给已开的页面上的一个TextBox插入新的字符串 [转贴]网络版权问题 **冗余醒目**《如何在输入的时候减小冗余》**冗余醒目** 用purify测试过的release版本怎么在别人的计算机上运行有问题? 如果用asp连接mysql,请问连接字符串是什么? 我要做一个在小型的对等网上运行的数据库软件,用什么方法好点? 如果用asp连接mysql,请问连接字符串是什么? 请高手帮我解答一个关于在ASP中调用存储过程的问题? 怎么输入繁体字? 足彩-03010期:1033031110310 请教高手在DELPHI里怎样实现把一个文件存储到ORACLE上, 然后又如何调出来使用?? 二氧化碳含量最高的是 A 呼出气体 B组织细胞 什么东西能导电? 肺内气体的交换的原理是:气体向低浓度处扩散,直至两边气体平衡,那为什么与血液进行了气体交换后二氧化碳多于氧气,应该是一半的一半嘛? 呼出的气体中氧气含量. 在火车厢里跳起来会落在原地还是在后面 效率高得机械,功率一定大是对的吗,做工快的机械呢 读狐狸和狗 有感 400~500字狐狸钻进羊群,抱起一只正在吃奶羔羊,假意抚爱他.牧羊犬见了,问道“你这是干什么?”狐狸说“我照料他,逗他玩”牧羊犬说“你不立刻放下他,我就让你尝尝什么是狼 地球是圆的,而且在自西向东转动着,为什么人跳起来还会落到原地、? 忙碌的近义词,连续的反义词,谨慎的近义词 二氧化碳验满将燃着的小木条放到收集好二氧化碳的集气瓶的瓶口 为什么小木条没有熄灭 人在高速行驶的车上跳起来人还会落在原地吗? 机油泵的油的浓度与开启压力有什么关系转子组件机油泵用的 油的浓度和他的开启压力的高低有关系吗 还有流量 想要验满氧气应怎样做是将带火星木条放入集气瓶口还是将带火星木条接近集气瓶口 在你身边,若有一束电子从上向下运动,在地球磁场的作用下,他将?向西偏转 这道题主要问题是判别地磁场的方向敢问地磁场到底是怎么分布的?有图么 二氧化硫与压力的关系,也就是压力怎样影响二氧化硫的浓度 阿拉斯加的海洋哺乳动物数量减少还是增加了呢? 曼富图的云台能不能装在百诺的三脚架上面405云台能不能装在百诺的4系的脚架上面?我很好奇 冷负荷与冷量的关系? 化学:四氯化碳之间也是共价键相连啊,为何是分子晶体而不是原子晶体?原子晶体的具体概念? 二氧化硅 金刚石有无分子间作用力?什么样的物质的微粒存在分子间作用力?谢 下列实验操作中在月球表面难以完成的是A.蒸馏 B.C.过滤 D.蒸发 在匀速行驶的火车上,我们竖直向上用力地跳起来,落下来后为什么还会站在原地? 高中物理竞赛重点考点 做黄铜压铸模的HM1钢淬火选在何种温度较好?做黄铜压铸模的HM1钢淬火温度介绍980-1090淬火,那么请教各位可不可以把温度提高到1120呢?回火温度700 火车提速原理近十年来,铁道部先后6次实行火车大提速.为了适应提速的要求,则()A 机车的额定功率可以保持不变 B 机车的额定功率必须减小C 铁路转弯处的路基坡度应加大 D 铁路转弯处的 如何将云台安装到三脚架上?曼富图808RC4云台+百诺三脚架.安装起来有点费劲,求指导, 硅石熔炼炉哪里有卖的啊? 站在火车上,跳起来,还在原来的地方吗我们的意见不统一, 二氧化硅和金刚石用化合键构成的物质中为什么没有分子间作用力 紧张近义词是什么? C为线段AB的中点,D为AB上的一点,E为AD的中点,且AD=6,EC=7.求DC,AB的长. 二氧化硅中不存在分子,为什么呢 紧张的近义词是啥是什么 什么叫导电海绵 C为线段AB的中点,D为线段AB上一点,E为线段AD的中点,且AD=6cm,EC=7cm.求线段DC,AB的长 为什么灭火器过期了就不能用了?如果用了能怎样? 塑料泡沫是否导电 电势梯度,电势,电场强度哪两个是相等的物理量 为什么沿磁场方向导体不受力的作用?公式知道,有个夹角的关系.可是,能不能不通过公式说明?我觉得即使平行,会不会沿着导线方向有个拉力什么的呢?怎么会不受力呢? 高中物理竞赛需要培养哪些思维能力?尽量完整些,谢谢. 什么东西不会导电 螺线管内部均强磁场 不受力的作用吗 高中的物理竞赛要怎么学才能考出好成绩? 写反义词:甜蜜 为什么空气中氧气的含量是恒定的? 海豚真的救过人类吗? 甜蜜的反义词是? 同体积的冷水和热水分子间的平均距离谁的大? 高中离子方程式总结谁能帮我把高中所以离子方程式总结下 所有不是所以不好意思 C是线段AB的中点,D是线段CA上的一点,E为线段AD的中点,如果BD=6,求EC的长. 干净的反义词是什么 高一化学离子方程式的总结 中华鲟是海洋动物,还是淡水生物 "干净"的反义词是什么? 高一化学离子方程式总结 C是线段AB的中点,D是线段CA上的一点 ,E为线段AD的中点.如果BD=6 求线段EC的长. 干净反义词 呼出气体含量最多是什么我个人认为第一是氮气 第二是氧气 第三才是二氧化碳 我问过全班同学 包括化学老师 他们都说二氧化碳最多 真的气的我嘴都歪了 有Q可能啊 我还专门上网查了查 结 C是线段AB的中点 D是线段CA上的一点 E为线段AD的中点 如果BD=6 求线段EC的长. 二维的扩散方程是什么啊?浓度与位置的关系? 美国百年交响名团将首次访华加拿大政府受困“骗领门” 参议员公务孕妇遇车祸入院治疗 腹中3个多月胎儿闲林水库月底基本完成坝体填筑 明年主杭州新能源汽车4年来仅上路2563辆浙江702个重点污染源实现刷卡排污 中小企业融资对接(图)浙江省委常委参加指导专题民主生活会富阳造纸业再度产业升级 百余造纸企业萧山万丰商住楼10多户人家遭遇用水难杭州1号线地铁三个高架站点碎了46块省卫生厅、省公安厅联合发文加强医疗场温州多地出现真假拼接的百元钞 可看到中方敦促日方停止刻意渲染外部威胁 说外媒称俄罗斯在G20峰会监控各国元首美国安局长监控欧洲盟国 称媒体误读斯永康68岁大爷得乳腺癌 百例患者中就杭州男子自家仓库中出现一条1米半大蛇瑞安5岁男孩被陌生男子挥刀砍伤 尚未各国如何处理打医生?潘基文欢迎以色列接受国别人权审查莎拉·布莱曼将飞往太空办演唱会 欲连罗宾·西克专辑涉抄袭马文·盖伊 被判邓州:爱心接力帮走失6年的湖北聋哑老乌鲁木齐市一男子因冲动踹豪车 赔钱万古代“驻京办”:大批办事人员在京置房永昌神锋入选国家队 隆东:盼代表国家猛龙回归!昆仑决三亚站北非霸主哈伊达湖人7人上双拔塞无缘季后赛 纽约负爵谈兵论战:红宝石战绩可复制 核潜反航万钢:2014年科技发展和科技改革都男子向儿子索讨扶养费 法官劝诱其撤告政协委员谈促进民生改善与社会和谐稳定国产药“长途旅行”闯市场 代表盼改革新加坡一所私立大学官方网站遭极端组织人大代表建议开放数据搭建社会诚信体系篮网菜鸟乌龙助攻+受伤离场 一战伤3生活好了\"却感受不到幸福\"的问题谈兵论战:“飞行屁股”或改变空中游戏总书记借“二人转”点题东北转型的深意澳大利亚男子外出散步捡到2.5公斤重云南省工商局局长张荣明3月12日做客
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘