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

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

【程序员电子刊精选】技术人员如何参与产品设计讨论之激活那一潭死水 Google开源代码构建工具Bazel 长点心吧!为啥健身应用让你越减越肥? 微信公众号能删除单篇文章了 安卓Android手机应用开发入门书籍推荐 自动释放内存!Facebook推出强大Android图片库Fresco 《近匠》AR学校:从教育领域看增强现实机遇何在 专访Mellanox CEO Eyal Waldman:InfiniBand与以太网齐驱并进 性能更胜一筹 IM助你打造千万级App——容联•云通讯线下沙龙 乐视智能硬件再发力,超级自行车今发布 专访格灵深瞳CTO赵勇:为" 计算机视觉" 赋予智慧的光芒 【程序员电子刊精选】水火不容?研发人员也是产品经理! 如何打动用户?携程用户体验实践分享 【征文】Java二十周年特别策划——谈谈我与Java的那些年、这些事 Facebook的愿景以及虚拟现实的未来 iBeacons一年回顾 英特尔中国30周年之际 IDF上你需要了解的5件事 OpenCloud 2015参会者的三大特征(附列表) 友盟移动互联网趋势报告解读:垂直领域应用竞争白热化 墨腾动漫CTO吴建学:初创公司的生存之道 亿航与高德达成战略合作 LBS+引爆智能硬件软实力 《近匠》火柴手写码,输不错的验证码利器 Web、App中添加动效设计应遵循的12条原则 越狱与开源:2015移动安全峰会(MSS)纪实 开发者自白:我是如何不花一分钱收获230万应用下载量的! OpenCloud 2015报名超预期 近20位讲师会前采访提前看 硅谷公司人才招聘那些事儿——硅谷“超级面试官”董飞专访 一切为了用户体验:揭秘京东首页改版背后的故事 TIOBE 2015年4月编程语言排行榜:Java王者归来 三大主题技术峰会开幕在即 OpenCloud 2015参会者提醒 《近匠》快码,唯快不破的代码众包平台 用ADO访问数据库时,如何拼写动态SQL 麻烦给发个Jbuilder7的注册机,注册码不会用不要!急! 请问在ASP中调用DLL到底需不需要注册,我怎么看有的需要注册,有的不需要! ASP 0115 ??错误,怎么办?急 OLE 文档序列化!请大虾指教! 双硬盘????,郁闷中。。。在线等 批量数据写入,是否有简捷的方法 请问谁有1、美达S693A2主板光盘;2、还有美达p4vad主板,是什么显卡? 用java weblogic.ejbc编译时为何总报找不到.xml文件 ftp的问题 请问各位:如何在ASP.NET中打开一个现有的或一个新的WORD文档? 讨论怎么发财 关于查询系统的需求分析怎么写?用触摸屏实现 如何把一个文件保存到数据库中? 耦合 哪里有WEB合同管理代码?或资料?演示?急!!!谢谢!有人知道吗?? 谁能把这段代码破解 求一函数,在线等....... 剛從vb轉delphi,幫我看一看!結貼很快! 如何可在WINXP中改MAC?? sprintf(a,"%2X",b)问题 关于简单的access查询 java字符转换问题!!! 请教一个Struts标记问题! 一个cab下载的错误信息解读,请教高人。 OutLook?怎么用它发邮件,经常提示错误? 帮看这段删除纪录代码有什么问题?三层结构oracle 本人要做一个WEB合同管理平台,由于以前没做过,请大家指示? Web Application 中怎么来调用 Web Server?谢谢! DataGrid中模板列嵌套的DataGrid怎样相应其事件 [调查]程序员证在你们公司里到底有多大的作用?有多少人有证?希望有没有证的都进来说一下。 怎样把字符串"C;\aaa\bbb"变成字符串"C:\aaa\ccc\dd"?用什么函数,操作? 我的SQL Server 装好后,出现下面的错误 这个文件查找真是怪!......msdn源代码居然有问题, 进来看看... 请问在TreeView控件中如何通过光标的上下移动获得光标所在项在数据库中的ID值 對掌上電腦Sony Peg-TG50和ACER N10怎麼看??? 使用SOAP协议传递服务器端查询结果容量问题? 菜鸟问题:数据窗口怎么设置检索参数?急!!在线等 ****入门提出的问题****,请各位高手指教! 很简单的一个问题。 这个问题怎么处理? vb如何调用一个组件?? 一个小问题,可不简单哦! 应聘CMM时,会被问到什么有关CMM的问题? 调用servlet出现这个错误HTTP method POST is not supported by this URL 在公网上如何连接远程数据库啊。。 这算不算bcb的bug?关于Image控件的使用。 使用 GDI 函数画直线时,如何同时在该直线的两端画出箭头来? 怎样改变网卡的工作模式???~~ 疑难杂症--关于共享adsl专线的网络问题--疑难杂症 小弟有一事请教??? 对于参数已定的微分或耦合电路,当矩形脉冲频率改变时,输出信号波形是否也改变?为什么? 如果湖泊与你钱,为什么溶解氧会增加是湖泊淤泥浅 淘宝秒杀拼音该怎么输?各种首字母,各种输拼音~几天了就是输不对,谁能举个列子到底怎么才算对? 鲁滨逊做成这只大型独木舟真是费尽了心血,他总花了( )个月的时间! 关于天体运动的一道题~一颗人造地球卫星发射前在地球表面时所受地球引力为2.0*10六次方 牛,当它运行于高度等于地丢半径的轨道时所受地球引力为 牛) 淘宝一元秒杀一串拼音什么意思 鲁滨逊为了做好这只大型独木舟,共花了几个月的时间 3个数最大公约数算法请用高中必修3的语言来写,C++,JAVA等不适宜.我就是说只有INPUT PRINT IF WHILE那些来写 atlas什么意思 鲁滨逊做木栅栏花了多长时间? 关于求最大公约数算法的问题书上是说:1.输入m、n(m为被除数,n为除数)2.m/n得余数r.3.判断r=0?是的话n为最大公约数.4.否则讲n赋给m,r赋给n,循环2.我想问为什么能这么做?(为什么能用除数除 阿特拉斯的天罗地网是什么 亲本基因型的判断一雄蜂和一雌蜂交配后产生F1雄蜂的基因型为Ab,aB,AB,ab四种,雌蜂的基因型为AaBb,Aabb,aaBb,aabb则亲本基因型是什么? 请指出电熨斗的各个部件哪些是导体,哪些是绝缘体,哪些是热的良导体,哪些是热的不 阿特拉斯的介绍? 事件发生的可能性不管有多小,但是都一定会发生.这是什么定理 最大公约数 算法求正求两个数:m,n的就大公约数算法为:t=1;while(t){t=m%n;m=n;n=t;}结果n为最大公约数!~!请问能用数学证明它的正确性吗?这题的意思是..m/n得到的余数为t,如果t不等于0,则把n的值 南京阿特拉斯科普柯待遇有谁知道南京的阿特拉斯·科普柯(南京)建筑与矿山设备有限公司 业务助理待遇怎么样 有没有发展前景? 新闻的客观主义理论? 请问有木有关于数学运算的英文文献啊?急啊!最好还有中文翻译哦 ooa ood oop指的是什么 化学方程式的书写和计算 求一篇5到6页的数学英文文献,需要中文翻译, 曲柄连杆在图示位置时B点速度Vb和加速度Ab为答案 Vb=r*ω 方向向左 Ab=1/根号三 *r*ω2(1处以根号三*角速度的平方*半径) 请问罗西尼的机械表怎么样啊?走时准确吗? 质量为m的小球由高为H的、倾角为θ光滑斜面顶端无初速滑到底端过程中,重力、弹力、合力的冲量各是多大? 秦始皇的历史作用?秦始皇是怎样的一个人?他在影视剧中与历史上的有没有差别? 一年之计在于春这句话的含义 两个一样的物体分别放在倾角不一样但一样高的两个光滑斜面上..它们重力的冲量一样吗. 电火花成型机 工作液为什么要用煤油? 八七会议确定的党的总方针是?急要.有人知道么 我画了一个长方形,为了好看,90度角画弧,如何画 每天什么时间运动最科学呢? 请问“纯电能”有用吗 亚硫酸钠与硫反应 say 纯电能汽车还不能大量应用的主要技术或资源困难是什么. 硫和酒精反应生成什么 NVER SAY GOODBEY 我的女孩 黄金杠杆比例是什么意思.如果亏了是怎么算的. 红豆打了绿豆一拳 绿豆打了红豆两拳 打一动物 双驴头抽油机冲程计算方法 醉汉骑驴,颠头簸脑算酒帐.艄公摇橹,打躬()()讨船钱----- 在摆动导杆机构中,若取曲柄为原动件时,机构的最小传动角γmin=90°.请问是为什么,我觉得是0°请好好讲下,感激! 抽油机冲程是什么? 天通金是什么 判断:曲柄滑块机构处于传动角最大位置时的机械效率最低.( )关键词:机械原理 四杆机构 曲柄滑块机构 传动角 机械效率 7天 9月29.30 十月1-5 按理说是7天,但是要看高几了~现在很少有高中能放全假了 7天的假 能放个3天就很高兴了 天通金怎么样 4.76克硫酸钠,亚硫酸钠,亚硫酸氢钠的混合物和足量的硫酸作用逸出气体672ML(标准状态),同样的混合物和24.04ml3.2%的氢氧化钠溶液(密度为1.04g/ml)反应,试计算在混合物中亚硫酸钠的质量分数. 中国有国际城市科学节吗? 手机淘宝秒杀出现3个方框和几行文字如图要填什么才对,应该怎么填 锌和氧化锌粉末的混合物34.1g,通入足量的氢气,在高温下使氧化锌全部还原,将所得的全部固体加入20%的稀硫酸245g,恰好完全反应,求原混合物中锌和氧化锌各多少克 never say goodbey 淘宝上秒杀东西时跳出来的3个方格要填什么 下列是ES-156型多功能蒸汽电熨斗说明书的部分内容:产品特点:具有干湿两用功能.干用功能是指在无水状态下,通过电加热管加热底板,底板温度上升,直接压烫衣物;湿用功能是指在蒸汽 飞机表演时的彩烟是什么物质? 单基因遗传病患者体内都有一对异常基因这句话对不对 江、河、湖泊水中的溶解氧少会发臭,而地下水中的溶解氧少,为什么不会发臭呢? 威马G-896STJ电熨斗为什么比一般的熨斗重?买了款威马的G-896STJ电熨斗,发现比你一般的电熨斗要重啊,这是为啥? 奥巴马豪华座驾“野兽”细节曝光 可抵律师申请公开转基因信息被驳 称将诉农奥巴马豪华座驾“野兽”细节曝光 可抵医生举报副县长公款旅游 开发商10万黑龙江非转基因大豆产区面积锐减 九成伊拉克发生多起暴力袭击致24人死亡美国去年吸引外国直接投资1660亿美美潜入雅虎谷歌狂盗数据以色列释放第二批巴勒斯坦囚犯陕西副县长被指公费出国游 纪委调查至澳使馆为美国搜集亚太情报\"诈弹\"威胁长沙机场疑犯被抓 频美使馆疑用这个“白盒”监听军事专家:极易致误判误撞和擦枪走火冷战游戏 蓦然重现空气污染致癌 波兰向碳排放开刀斯诺登谋得俄网站工作禁化武组织:叙利亚已按规定销毁化学武美国辱华电视主持人称不会辞职 未答应“免费”医疗让俄罗斯进退两难 仅约3上海自贸区改革红利初显 打造宽进严管万源开展食品药品安全专项检查9岁女孩放学没回家全城民警出动4小时巴中机场试验段项目开工春节前还有两次恶劣天气过程贵州省总工会发布意见法定节日发慰问品社会各界盛赞以习近平同志为总书记的党记全国“人民满意的公务员”、铜仁市公今年1月贵阳空气质量17天优良贵州省民办教育和公办教育同等重要 职花 500 万元就能开“假银行”吗成都麻疹发病数上升您家孩子打疫苗了吗镜头记录生活南充迎来返乡置业潮迎新春活动预告2015年02月06日成都城乡居民收入差距缩小建现代产业体系 加快建设区域中心城市刘强:快鱼吃慢鱼 谁慢谁淘汰白天小区趴窝晚上出门拉客 这克隆出租专项整治“歪风”典型问题“一案双查”无地可用是伪问题,使用效率才是关键
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘