delphi 接收 浏览器

如果你想在 Delphi 中接收来自浏览器的请求，你可以使用 Indy 组件库中的 TIdHTTPServer 组件。以下是一个简单的示例代码：

uses
  IdHTTPServer, IdContext;

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  // 处理请求
  AResponseInfo.ContentText := 'Hello, World!';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdHTTPServer1.Active := not IdHTTPServer1.Active; // 启动或停止服务
  if IdHTTPServer1.Active then
    Button1.Caption := '停止服务'
  else
    Button1.Caption := '启动服务';
end;

在上面的示例中，我们在 Form1 中放置了一个 TIdHTTPServer 组件，并添加了一个 CommandGet 事件处理程序。该事件会在收到浏览器请求时触发。在事件处理程序中，我们可以处理请求并返回响应内容。

你可以通过在 Button1 的 Click 事件处理程序中调用 TIdHTTPServer 的 Active 属性来启动或停止服务。