Сервер не загружает страницу.

[Thechno-1024]

Я создаю HTTP-сервер на Delphi 7. К сожалению, несмотря на то что все делаю по инструкции, сервер упорно отказывается работать. Вот код:

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
if ARequestInfo.Document = '/' then
IdHTTPServer1.ServeFile(AThread, AResponseInfo, 'Путь к web-странице')
else
IdHTTPServer1.ServeFile(AThread, AResponseInfo, 'Путь к каталогу со всем проектом вообще' + ARequestInfo.Document);
end;

Сервер должен загружать web-страницу лежащую у меня на жестком диске, при введении в адресную строку браузера моего IP-адреса. Но почему-то он этого не делает. При этом, когда я раньше использовал вышеприведенный код, все прекрасно работало.

[kropotkina-alice]

'Путь к каталогу со всем проектом вообще' заканчивается слэшем?

[Thechno-1024]

Сообщение от kropotkina-alice

'Путь к каталогу со всем проектом вообще' заканчивается слэшем?

Ну, собственно, там стоит один только слэш. Вот так вот:

else
IdHTTPServer1.ServeFile(AThread, AResponseInfo, '\' + ARequestInfo.Document);

Ибо сам сервер лежит в одном каталоге со страницами.

[kropotkina-alice]

А задавать полный путь вы пробовали?
Т.е. что-то вроде:

IdHTTPServer1.ServeFile(AThread, AResponseInfo, 'C:\MyServer\' + ARequestInfo.Document);

А насчет того, что

Сообщение от Thechno-1024

Ну, собственно, там стоит один только слэш. Вот так вот:

else
IdHTTPServer1.ServeFile(AThread, AResponseInfo, '\' + ARequestInfo.Document);

то, на мой взгляд, слэш в таком случае там не нужен,

Ибо сам сервер лежит в одном каталоге со страницами

[Thechno-1024]

Сообщение от kropotkina-alice

А задавать полный путь вы пробовали?
Т.е. что-то вроде:

IdHTTPServer1.ServeFile(AThread, AResponseInfo, 'C:\MyServer\' + ARequestInfo.Document);

Пробовал.

[DIONISKA]

так пробовал:

var st:TStringStream;
  path:string;
begin
path:=ExtractFilePath(ParamStr(0));
st:=TStringStream.Create;
try
if ARequestInfo.Document='/' then
  st.LoadFromfile(path+'index.html')
 else
   if FileExists(path+ARequestInfo.Document) then
      st.LoadFromfile(path+ARequestInfo.Document) else
          st.LoadFromFile(path+'404.html');
AResponseInfo.ContentType := 'text/html';
AResponseInfo.ContentStream:=TMemoryStream.Create;
AResponseInfo.ContentStream.CopyFrom(st,st.Size);
finally
  st.Free;
end;

end;

?