Цитата:
|
Сообщение от 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>';