Idhttpserver Delphi Пример

IdHTTPServer - это компонент Delphi, который позволяет легко создавать веб-сервера на стороне сервера.

Пример создания и запуска веб-сервера:

  var    Server: TIdHTTPServer;  begin    Server := TIdHTTPServer.Create(nil);    try      Server.DefaultPort := 80;      Server.OnCommandGet := ServerCommandGet;      Server.Active := True;      WriteLn('Press enter to stop the server');      ReadLn;    finally      Server.Free;    end;  end;

В данном случае мы создаем экземпляр TIdHTTPServer, указываем порт по умолчанию и связываем событие OnCommandGet с нашим обработчиком ServerCommandGet. Затем мы активируем сервер и ждем, когда пользователь нажмет Enter, чтобы остановить сервер.

Пример обработчика ServerCommandGet:

  procedure TForm1.ServerCommandGet(AContext: TIdContext;    ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);  begin    AResponseInfo.ContentText := 'Hello, world!';  end;

Этот обработчик просто устанавливает текст ответа 'Hello, world!' для любого запроса, который приходит на сервер.