首页 / HTML / 怎样用idhttpserver代替IIS让用户浏览html或下载文件 http://bbs.csdn.net/topics/360248674

怎样用idhttpserver代替IIS让用户浏览html或下载文件 http://bbs.csdn.net/topics/360248674

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了怎样用idhttpserver代替IIS让用户浏览html或下载文件 http://bbs.csdn.net/topics/360248674，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2565字，纯文字阅读大概需要4分钟。

内容图文

  怎样用idhttpserver代替IIS让用户浏览html或下载文件
更多0分享到：
    •  
    •  
回复次数：6
技术分享
关注
SQLDebug_Fan
SQLDebug_Fan
本版等级：技术分享
 
技术分享 技术分享
#1 得分：0回复于： 2011-05-29 15:03:31
你要实现HTTP Server？
技术分享
关注
cgfhz
国风
本版等级：技术分享
 
#2 得分：0回复于： 2011-05-30 08:36:43
看idhttpserver的demo
技术分享
关注
cicidodo
cicidodo
本版等级：技术分享
 
#3 得分：0回复于： 2011-05-30 10:16:47
引用楼主 cicidodo 的回复:
  怎样用idhttpserver代替IIS让用户浏览html或下载文件
是的
技术分享
关注
lahcs
lahcs
本版等级：技术分享
 
#4 得分：0回复于： 2011-05-30 10:28:51
Delphi/Pascal code
 
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
   ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
const
   WEBROOT =  ‘C:/www‘ ;
var
   RequestDocument: string ;
begin
   RequestDocument:=LowerCase(ARequestInfo . Document);
 
   if RequestDocument=‘/‘ then
     RequestDocument:= ‘/index.html‘ ;
 
   if FileExists(WEBROOT+RequestDocument) then
     begin
       AResponseInfo . ContentStream:=TFileStream . Create(WEBROOT+RequestDocument, fmOpenRead + fmShareDenyWrite);
     end
   else 
     begin
       AResponseInfo . ResponseNo :=  404 ;
     end ;
 
   AResponseInfo . Server:= ‘IIS/6.0‘ ;
   AResponseInfo . CacheControl:= ‘no-cache‘ ;
   AResponseInfo . Pragma:= ‘no-cache‘ ;
   AResponseInfo . Date:=Now;
技术分享
关注
lahcs
lahcs
本版等级：技术分享
 
#5 得分：100回复于： 2011-05-30 10:31:06
Delphi/Pascal code
 
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
   ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
const
   WEBROOT =  ‘C:/www‘ ;
var
   RequestDocument: string ;
begin
   RequestDocument:=LowerCase(ARequestInfo . Document);
 
   if RequestDocument=‘/‘ then
     RequestDocument:= ‘/index.html‘ ;
 
   if FileExists(WEBROOT+RequestDocument) then
     begin
       AResponseInfo . ContentStream:=TFileStream . Create(WEBROOT+RequestDocument, fmOpenRead + fmShareDenyWrite);
     end
   else 
     begin
       AResponseInfo . ResponseNo :=  404 ;
     end ;
 
   AResponseInfo . Server:= ‘IIS/6.0‘ ;
   AResponseInfo . CacheControl:= ‘no-cache‘ ;
   AResponseInfo . Pragma:= ‘no-cache‘ ;
   AResponseInfo . Date:=Now;
 
end ;

这段代码的话，应付一般的html网站应该足够了...

技术分享
关注
cicidodo
cicidodo
本版等级：技术分享
 
#6 得分：0回复于： 2011-05-30 11:07:45
引用 4 楼 lahcs 的回复:
Delphi(Pascal) code
procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
const
  WEBROOT = ‘C:/www‘;
var
  Reque……
谢谢，太感谢了

原文：http://www.cnblogs.com/delphi-xe5/p/5457074.html

内容总结

以上是互联网集市为您收集整理的怎样用idhttpserver代替IIS让用户浏览html或下载文件 http://bbs.csdn.net/topics/360248674全部内容，希望文章能够帮你解决怎样用idhttpserver代替IIS让用户浏览html或下载文件 http://bbs.csdn.net/topics/360248674所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1233344.html

来源：【匿名】