Не получается web-сервер

[Диана Нестерова]

Здравствуйте. У меня такая проблема. Пытаюсь создать web-сервер на Delphi, код:

procedure TForm1.FormCreate(Sender: TObject);
begin
IdHTTPServer1.Active := True; 
end;

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
if ARequestInfo.Document = '/' then
IdHTTPServer1.ServeFile(AThread, AResponseInfo, 'C:\Полигон\Web-server\Pilot\Test.htm' + ARequestInfo.Document);
else
IdHTTPServer1.ServeFile(AThread, AResponseInfo, 'C:\Полигон\Web-server\Pilot' + ARequestInfo.Document);
end;

Но когда я компилирую и запускаю проект то во-первых, на программу покушается брандмауэр (выскакивает с сообщением), а во-вторых, сервер не работает. Когда я ввожу свой IP в адресную строку, браузер пишет: "Cannot open file "C:\Полигон\Web-server\Pilot\Test.htm\". Не удается найти указанный файл".

[Stilet]

на программу покушается брандмауэр

Правильно делает - разрешай в бранде для проги доступ.

Не удается найти указанный файл".

Правильно.

Test.htm\

Если стоит \ то путь расценивается как имя каталога.
А что ты хочешь сделать? Передать файл?

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var d:string;
begin
if ARequestInfo.Document = '/' then d:='C:\Полигон\Web-server\Pilot\Test.htm'
else begin
  d:=StringReplace(ARequestInfo.Document,'/','\',[RfReplaceall]);
  d:=ExcludeTrailingBackslash(d);
end;
AResponseInfo.ContentStream:=TFileStream.Create(d,fmOpenRead);
AResponseInfo.FreeContentStream:=true
end;

[Диана Нестерова]

Правильно делает - разрешай в бранде для проги доступ.

А как бы мне сделать в самой проге, без возни с брандмауэром?

Если стоит \ то путь расценивается как имя каталога.

Так у меня же в коде написано:

'C:\Полигон\Web-server\Pilot\Test.htm'

Слэш после Test.htm, сам браузер уже добавляет.

А что ты хочешь сделать? Передать файл?

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

[Son Of Pain]

Сообщение от Диана Нестерова

А как бы мне сделать в самой проге, без возни с брандмауэром?

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

Сообщение от Диана Нестерова

Так у меня же в коде написано:

'C:\Полигон\Web-server\Pilot\Test.htm'

Слэш после Test.htm, сам браузер уже добавляет.

В коде не так написано )

'C:\Полигон\Web-server\Pilot\Test.htm' + ARequestInfo.Document

[Диана Нестерова]

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

Да, но есть куча сетевых приложений, которые спокойненько работают и брандмауэр им нисколько не мешает.

В коде не так написано )

Ну и?

[Stilet]

есть куча сетевых приложений, которые спокойненько работают и брандмауэр им нисколько не мешает.

Тебе ранно еще с брандмауером общаться ) Слепи хотя бы то что хочешь.

Ну и?

Ну и изначально ARequestInfo.Document равен / - это считается начальной страницей, как корневой каталог в Линуксе или Юниксе. Это нормально.
Потому в твоем случае его нужно отсекать, раз ты сам файл приписала.

web-сервер должен открыть в браузере web-страницу, лежащую на жестком диске, при запросе в браузере, моего собственного IP.

См. мой пример.

[Son Of Pain]

Сообщение от Диана Нестерова

Да, но есть куча сетевых приложений, которые спокойненько работают и брандмауэр им нисколько не мешает.

Только те, которые добавлены в список исключения брандмауэра. Он срабатывает всегда, когда какая-то программа пытается открывать сокет для принятия подключений извне, а таких программ у тебя не так много, думаю )

Ну и?

Ну и поле ARequestInfo.Document равняется '/'.
Результат выражения

'C:\Полигон\Web-server\Pilot\Test.htm' + ARequestInfo.Document

, очевидно, будет равен 'C:\Полигон\Web-server\Pilot\Test.htm/'. А / на \ уже делфи заменяет, видимо.

[Диана Нестерова]

Только те, которые добавлены в список исключения брандмауэра. Он срабатывает всегда, когда какая-то программа пытается открывать сокет для принятия подключений извне, а таких программ у тебя не так много, думаю )

То есть, вы хотите сказать, что каждый разработчик сетевого приложения, несет свою программу куда-то в клювике и регистрирует ее? Не верю. Да это и невозможно, так как нет никакой Международной Ассоциации Брандмауэров. Это еще может быть в мире iOS, но не в мире Windows.

Ну и поле ARequestInfo.Document равняется '/'.
Результат выражения
Код:

'C:\Полигон\Web-server\Pilot\Test.htm' + ARequestInfo.Document

, очевидно, будет равен 'C:\Полигон\Web-server\Pilot\Test.htm/'. А / на \ уже делфи заменяет, видимо.

То есть, вы предлагаете ARequestInfo.Document убрать?

[Stilet]

каждый разработчик сетевого приложения, несет свою программу куда-то в клювике и регистрирует ее?

Нет. Не несет. Но вот регистрирует ее пользователь при инсталляции, подтверждая это, и после первого запуска брандмауер спрашивает разрешения.
Разрешения дает пользователь а не сама программа.

То есть, вы предлагаете ARequestInfo.Document убрать?

Посмотри как я написал.

[Пепел Феникса]

просят разрешение только серверные программы, а не клиенты.