Jump to content

HTTP сервер


Serg

Recommended Posts

1. Пишу

 

procedure TUniServerModule.UniGUIServerModuleHTTPCommand(
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo;
  var Handled: Boolean);
begin
   if  (Pos('/qwe',ARequestInfo.Document)>0) then
   AResponseInfo.ContentText:='qwe';
end;
 
2.Запускаю
 
3.Вызываю 
 
 
4.Получаю Invalid session or session Timeout. 
 
Вопрос: В чем ошибка?

 

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...