[ivankom]

Ребят, такая проблема.
Сделал простейший веб сервер, вроде работает, порт телнетом слушается, а страничка не открывается, просто белый экран.

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  idHTTPServer1.DefaultPort := 80;
  idHTTPServer1.Active := true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  idHTTPServer1.Active := false;
end;

procedure TForm1.IdHTTPServer1CommandGet(ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  AResponseInfo.ContentStream:=TFileStream.Create('C:\', fmOpenRead);
end;

На событие CommandGet пробовал пробывал по разному писать:
Тут ругается на ServeFile, неизвестная переменая.

Код:

idHTTPServer1.ServeFile(AThread, Responselnfo,
'с:\MyWebServer\root'+Requestlnfо.Document);