怎样用idhttpserver代替IIS

cicidodo 2011-05-27 04:28:58

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

...全文

424 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

cicidodo 2011-05-30

打赏
举报

[Quote=引用 4 楼 lahcs 的回复:]

Delphi(Pascal) code

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
const
WEBROOT = 'C:/www';
var
Reque……
[/Quote]谢谢，太感谢了

lahcs 2011-05-30

打赏
举报



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

lahcs 2011-05-30

打赏
举报



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;