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

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)上,可以下载。

代码审查是如何抹杀开发者积极性的? 事件分析平台EventHub开源 云计算智能交通行业论坛:李德毅院士谈智能车 多家知名企业分享应用实践 我伙呆!CRM生死对手微软及Salesforce或将联手 阿里巴巴曾鸣:数据时代来临 OpenStack企业应用之路技术培训:虚机迁移、HA、VDI、跨Hypervisor管理 云计算技术背后的那些天才程序员:KVM之父Avi Kivity 中国气象局联手阿里云:海量气象数据变“活数据” 浪潮首度公布“I2I计划” 全面接盘IBM X业务 一周消息树:Surface Pro 3想替代笔记本太难,微软正逐渐迷失方向 就是要赚钱!NativeX推自定义原生广告交易 继智能手机后的下一个战场:智能家居 鏖战云端——亚马逊的生存法则 如何保住公司的人才:创造良好的学习氛围 主宰全球的10大算法 专访Google数据科学家彭晨:大数据成为潮流走近各行各业! 强横Metal技术来袭,能否取代OpenGL? Swift横空出世,Xcode 6 Beta有了哪些新变化? 《近匠》GameMei:简单易用、快速开发商用游戏 Gartner:2014年一季度浪潮服务器出货量中国第一 【技术博客推荐】张安站:大数据时代下的商业存储 Amazon继续登顶IaaS魔力象限,榜眼是微软而非Google 友盟Q1移动互联网报告:解读三线城市移动互联网用户 智能生活 “视”不可挡——首届TCL杯HTML5智能电视开发大赛等你来挑战 Mobile First!开源HTML5游戏引擎Kiwi.js 1.0正式发布 天天用的开发环境,你真的了解吗? 物联网时代,你的汽车也在转型 触宝输入法产品经理解析iOS 8第三方输入法开放程度 专访联想谢政维:功耗和价格是天蝎项目最大障碍! 《近匠》蚁视科技创始人覃政:ANTVR,虚拟现实的新生 后棱镜门时代:开发者保护应用安全的5大技巧 请问各位谁能提供jpeg文件格式的中文说明??????????????????? [question]tmd的,有人惹我,怎么办 Windows CE, Windows NT Embedded等嵌入式操作系统和相关开发工具在上海如何购买??? mobile web application 里的softkey到底是怎么回事呀 [心情不好]砂粉阿 告他[我好伤心] 将2进制(16位)转为16进制(4位),怎么做? 请教!( VC.NET 里面怎么使用 MSFlexGrid ? JAVA的版本问题 哪儿有C#单独的编译器下载啊 ASP新手提问! 有谁知道在DELPHI中得到包括硬盘、多媒体、主板等信息? 请问小新,以及其它delphi高手一个简单问题,我从网上下载了一个报表控件,请问该如何使用? 一个关于TWinSocketStream的问题 scjp考题一道!!!!!!!! 小弟初学,如何从CString 转化到 int .thanks a lot. 我要学习数据结构,算法,离散数学..... [不爽阿]今天圣诞,有人惹我 关于临时表的共享问题? 是不是我的问题太难了,没有人回答? 请举例说明:接口是怎样实现多重继承的? 听说最近由于IT行业不景气,程序员的工资缩水了?是真的么? 这样写有什么不对?? delphi的dll库返回后调用程序出错!加了一行无关代码却正常!求教各位大狭! 塔尼包姆出了不1本计算机结构的书,还有1本MICROSOFT的 Microsoft Windows 用户界面开发 请问是否很好 Access初学者问一 再次请教一个sql排序问题,一定给分。 请问:程序中对WM_PAINT,WM_CTLCOLOR,WM_ERASEBKGND三个消息处理的顺序是怎样的? 这个月生意只有上个月的1/5,怎么回事? 我女朋友说最爱她的人不是我,这意味着什么? 工资里导入上月数据怎么实现 谁有复读王(fyfdw2001)的注册码? 经过一段时间的努力,我做出一套电话语音邮件系统,可以用电话和手机来收发EMAIL,有意者请与我联系 xuyaoliang@263.net 请救救我吧!有谁能告诉我中程的分数怎么查! 如何解决数据窗口显示照片(此照片在数据库的一个字段里)的问题? 请问如何获取硬盘和光驱的型号信息 谁有复读王(fyfdw2001)的注册码??????? n_up的问题。如何在另一列插入计算字段? 有没有深圳的mm,一起过圣诞好吗? far怎么用啊? 关于临时表的共享问题?? 请大家介绍一些学习C/C++的好网站,只要进者就给分。 "他妈的,又打歪了!" 我在作登录是出现了"runtime error"错误,详情见内 3台机子如何共享一个adsl上网?? 如何把一应用配置成一NT服务 出学的菜鸟提问 找回addin:资源编辑器 怎样开发阅读工具软件 acm文件格式 数据库安装程序的问题。 四个数2836,4582,4970,6522被同一个自然数除,所得的余数都相同且不是0,则余数为() 英语翻译:“我只想知道你喜欢什么颜色,红色还是黄色.” 作文 我喜欢的颜色 硫是一种淡黄色晶体,t它的蒸汽有橙色,无色,红棕色三种,它们都是硫的单质,但分子中硫原子的个数不同可用Sx表示,对三种蒸汽的测定结果是(1)橙色蒸汽对氢气的密度是128,它的化学式是 (2 它的颜色是黄色和黑色的用英文翻译 皇帝的新装续写100字 皇帝的新装阅读皇帝的新装选段阅读题11.第4段的话和第五段的“他实在没穿什么衣服呀!”在叙述方式上有什么不同?刻画了人们怎样的心理?2.童话的结局让一个小孩说出了真话,是为了说明一 已知(x-2013)(x-2014)=m求(x-2013)的平方十(x-2014)的平方的值? 皇帝的新装续写700字 硫是一种淡黄色晶体,它的蒸汽有橙色,无色,红棕色三种,它们都是硫的单质,但分子中硫原子的个数不同,(1)橙色蒸汽对氢气的相对密度是128,则它的化学式____(3)红棕色蒸汽的质量是相同状 已知m,n是方程x²-2012x+2013=0的两根.求(m²-2013m+2014)(n²-2013n+2014)的值 皇帝的新装续写150字 硫是一种淡黄色晶体,它的蒸汽有橙色.硫是一种淡黄色晶体,它的蒸汽有橙色,无色,红棕色三种,它们都是硫的单质,但分子中硫原子的个数不同,可用Sx表示.对三种蒸汽测定结果是(1)橙色蒸汽 已知集合M={x|(x-2013)(x-2014)=0},N={x|x-2013>0.则M交N 计算1+2+3+...+2012+2013+2014+2013+2012+...+3+2+1 硫是一种淡黄色晶体,它的蒸气有橙无红棕色三种,分子中硫原子的个数不同,可用Sx表示,1橙色蒸气对氢气的相对密度是128则它的化学式是?2无色蒸气折算成标准状况下的密度是5.71g/L,3红色蒸气 皇帝的新装 阅读答案 急求啊 啊啊啊 写喜欢的一种颜色的作文 硫蒸气有橙色、无色、红棕色等颜色,他们都是硫的不同单质,所含硫原子的数目不同,可用Sx表示.对着三种蒸气的测定结果如下:1)橙色硫蒸气的质量是相同状时等体积空气的8.8倍,则它的化 皇帝的新装阅读答案皇帝的新装的皇帝、老大臣和官员为什么都不说真话?由此,你想到了什么?“任何不称职的,或者是愚蠢得不可救药的人,都看不见这衣服。”这句话在剧中起什么作用? 小学英语作文要求70个字重点写为什么喜欢这个颜色要英语的一个颜色:蓝色1 2楼的:写的不错,但我要的是英语的 一个自然数能被5整除又能被3整除,同时它被7除余数是4,这个数是什么? 求《皇帝的新装》阅读答案 皇帝的新装续写 200字 概括皇帝的新装在100字左右 7^2014-20×7^2013+2100×7^2012能被2009整除吗? 说明5^2013-3*5^2012+5^2011能被11整除 皇帝的新装故事梗概100字左右 ,快啊7的2014次方—20*7的2013次方+2100*7的2012次方能被2009整除吗?说明你的理由 皇帝的新装续写300字 为什么说三个数除以某个自然数所得余数相同,则其中任意两个数的差必能被这个自然数整除? 2014的三次方-2014能被2013整除吗?能被2015整除吗 2012^2+2012能被2013整除吗 为甚麽 如果a、b为自然数,并且a除以b余数为0,那么a能被b整除这是一道判断题请说对错理由 黄色 什么色配出绿色 皇帝的新装续写 皇帝回宫会干什么 150字左右 皇帝的新装 剧本改写要全,好的话追加50分! 绿色+黄色=什么颜色? 我喜欢的一种植物 作文要写出托物言志,600字的 红色加什么颜色等于黄色 黄色才是最美丽的颜色作文三百字 一个五位数,若前三个数字表示的三位数与后二个数字表示的两位数的和能被11整除,判断这个五位数能否被11整除?说明理由. 任意4个整数中,必存在两个数,它们被3除的余数相同.你能说出其中的道理吗、 绿色多少种颜色,黄色多少种颜色,黑色多少种颜色,都哪些颜色 《皇帝的新装》续写(200字以内) 在任意4个整数中,必存在两个数,他们除以3所得的余数相同.你能说出其中的道理吗? 同步导学皇帝的新装答案 你最喜欢的颜色是粉色吗用英语怎么说 任意四个整数中,必存在两个数,它们被3除的余数相同.你能说出其中的道理吗? 小学作文,我喜欢的颜色是白色代表什么? 皇帝的新装缩写(600字) 红色加黄色等于什么颜色 作文:我喜欢的颜色 绿色哦(比较好写) 马上就需要!写的好,必有重谢! 皇帝的新装缩写300字 若2836,4582,5146,6522四个自然数被一个自然数相除,所得余数相同且为两位数,除数和余数的和是多少?最好用简便方法, 求皇帝的新装阅读答案1.文章最终只有孩子说出了真话,“天真的声音”对我们有何启示?2.本文刻画了皇帝、官员和两个骗子.主要表现什么人物?表现他们的什么特点?本文具有什么样的社会意 我喜欢我自己 作文我喜欢我自己 一篇初中作文,至少600字语文作文 若2836,4582,5164,6522四个整数被同一自然数相除,所得余数相同,但不为零,求除数和余数各是多少? 皇帝的新装阅读题答案皇帝把他所有的衣服都脱下来.两个骗子装作一件一件地把他们刚才缝好的新衣服交给他.他们在他的腰周围那儿弄了一阵子,好像是系上一件什么东西似的.皇上在镜子面 皇帝的新装 写老大臣的几段1.老大臣为什么用“多么美的花纹”“多么美的色彩”来赞美布料,而不用别的语句?2.老大臣为什么不敢承认自己看不见布料这一事实?3.作者写老大臣的眼睛句子是
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn