HTTP севрер на INDY

ivankom · #1 06.02.2014, 10:25

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

Код:

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);

poli-smen · #2 06.02.2014, 12:45

Цитата:

Сообщение от ivankom

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

Код:

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

Здесь должно быть имя файла, а не директории.

Цитата:

Сообщение от ivankom

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

Код:

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

Это из старой версии Indy. В новых нужно делать примерно так:

Код:

AResponseInfo.ServeFile(AContext, 'C:\Site\index.htm');

Ну и конечно можно делать и так:

Код:

  AResponseInfo.ContentText:='<html><body>Hello!</body></html>';

ivankom · #3 07.02.2014, 02:06

Цитата:

Сообщение от poli-smen

В новых нужно делать примерно так:

Код:

AResponseInfo.ServeFile(AContext, 'C:\Site\index.htm');

Ругается на

Цитата:

[dcc32 Error] Unit1.pas(24): E2003 Undeclared identifier: 'TIdContext'
[dcc32 Error] Unit1.pas(124): E2005 'TIdContext' is not a type identifier

То, что у меня в блоке type:

Код:

procedure IdHTTPServer1CommandGet(AContext: TIdContext;
      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

Alegun · #4 07.02.2014, 02:29

Цитата:

Сообщение от ivankom

Ругается на...

Добавьте в секцию uses модуль SyncObjs

З.Ы.

Прошу прощения. Тыкнул первую ссыль на этот класс и там была сноска на этот модуль, проверить времени не было, извнт. Как обычно

ivankom · #5 07.02.2014, 07:18

Цитата:

Сообщение от Alegun

Добавьте в секцию uses модуль SyncObjs

В этом модуле находятся классы синхронизации, и я как-то не очень понимаю чем они мне помогут.
Добавление этого модуля в uses ошибку не исправило.

poli-smen · #6 07.02.2014, 11:02

Цитата:

Сообщение от ivankom

Ругается на

Цитата:

[dcc32 Error] Unit1.pas(24): E2003 Undeclared identifier: 'TIdContext'
[dcc32 Error] Unit1.pas(124): E2005 'TIdContext' is not a type identifier

Класс TIdContext объявлен в модуле IdContext.

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	RSS лента	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Новости сайта Новости форума	Ссылки и Баннеры Donate О сайте Реклама Контакты

Этот пользователь сказал Спасибо poli-smen за это полезное сообщение:
Alegun (07.02.2014)