么意思博客

先在窗体中放入一个“IdHTTPServer1”控件，后在其“CommandGet”事件里写代码： 后并在如下 […]

先在窗体中放入一个“IdHTTPServer1”控件，后在其“CommandGet”事件里写代码：

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  var
  LFilename: string;
  LPathname: string;
begin
   LFilename := ARequestInfo.Document;
  if LFilename = '/' then begin
      LFilename := '/index.html';
  end;
  LPathname := FHTMLDir + LFilename;
  if FileExists(LPathname) then begin
      AResponseInfo.ContentStream := TFileStream.Create(LPathname, fmOpenRead + fmShareDenyWrite);
  end else begin
      AResponseInfo.ResponseNo := 404;
      AResponseInfo.ContentText := 'The requested URL ' + ARequestInfo.Document+ ' was not found on this server.';
  end;
end;

后并在如下位置添加如下代码：

private
FHTMLDir: string;
FURL:string;

启动服务就可以使用了，看如下代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
try
idhttpserver1.Active:=true;
except
end;
  FHTMLDir:='web';//程序目录下的web文件夹就是网站目录
  FURL:='http://127.0.0.1:'+inttostr(80)+'/';
end;