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

怎样用idhttpserver代替IIS让用户浏览html或下载文件

更多0分享到：

回复次数：6

关注 SQLDebug_Fan SQLDebug_Fan 本版等级：	#1 得分：0回复于： 2011-05-29 15:03:31 你要实现HTTP Server？
对我有用[0] 丢个板砖[0] 引用 \| 举报\| 管理

关注 cgfhz 国风本版等级：	#2 得分：0回复于： 2011-05-30 08:36:43 看idhttpserver的demo
对我有用[0] 丢个板砖[0] 引用 \| 举报\| 管理

关注 cicidodo cicidodo 本版等级：	#3 得分：0回复于： 2011-05-30 10:16:47 引用楼主 cicidodo 的回复: 是的
对我有用[0] 丢个板砖[0] 引用 \| 举报\| 管理

: 关注; lahcs; lahcs; 本版等级：

#4 得分：0回复于： 2011-05-30 10:28:51

Delphi/Pascal code

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;

对我有用[0] 丢个板砖[0] 引用 | 举报| 管理

: 关注; lahcs; lahcs; 本版等级：

#5 得分：100回复于： 2011-05-30 10:31:06

Delphi/Pascal code

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网站应该足够了...

对我有用[0] 丢个板砖[0] 引用 | 举报| 管理

: 关注; cicidodo; cicidodo; 本版等级：

#6 得分：0回复于： 2011-05-30 11:07:45

引用 4 楼 lahcs 的回复:

谢谢，太感谢了

WebRoot

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