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

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

回复次数：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 的回复: 怎样用idhttpserver代替IIS让用户浏览html或下载文件是的
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

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

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

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

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 的回复:

Delphi(Pascal) code

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
const
  WEBROOT = 'C:/www';
var
  Reque……

谢谢，太感谢了