在Delphi中，无法从TIdHTTP连接到TIdHTTPServer。

Question

在Delphi中，无法从TIdHTTP连接到TIdHTTPServer。

3

我有一个使用Delphi编写的应用程序，其中包含 TIdHTTPServer 和 TIdHTTP，以下是我的代码：

// This is for activating the HTTPServer - works as expected
HTTPServer1.Bindings.Add.IP := '127.0.0.1';
HTTPServer1.Bindings.Add.Port := 50001;
HTTPServer1.Active := True;

这是我的HTTPServer的OnCommandGet过程：

procedure TDataForm.HttpServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  AResponseInfo.ContentText := 'Hello, user';
end;

我不知道为什么这个程序不起作用:

procedure TDataForm.btnHTTPSendGetClick(Sender: TObject);
var
  HTTPClient : TIdHTTP;
  responseStream : TMemoryStream;
begin
  HTTPClient := TIdHTTP.Create;
  responseStream := TMemoryStream.Create;
  try
    try
      HTTPClient.Get('http://127.0.0.1:50001', responseStream);
    except on e : Exception do begin
      showmessage('Could not send get request to localhost, port 50001');
    end;
    end;
  finally
    FreeAndNil(HTTPClient);
    FreeAndNil(responseStream);
  end;
end;

如果我通过浏览器连接，就可以在浏览器中看到“你好，用户”，但是如果我尝试使用btnHTTPSendGetClick，我的程序会崩溃，没有任何异常或其他信息。有人可以帮助我修复我的代码吗？

- Viktor Anastasov

你使用的是哪个版本的Delphi和Indy？你的代码为什么会在没有异常的情况下崩溃？ - Remy Lebeau

@Remy，我在Delphi XE5上使用Indy 10，并在你回答后解释了崩溃的情况。我尝试了你所有的建议，但它仍然会崩溃。 - Viktor Anastasov

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Remy Lebeau · Accepted Answer

HTTPServer1.Bindings.Add.IP := '127.0.0.1';
HTTPServer1.Bindings.Add.Port := 50001;

这是新手常见的错误。您正在创建两个绑定，一个绑定到127.0.0.1:DefaultPort，另一个绑定到0.0.0.0:50001。您需要一个绑定，而不是两个绑定，并将其绑定到127.0.0.1:50001。

with HTTPServer1.Bindings.Add do begin
  IP := '127.0.0.1';
  Port := 50001;
end;

或者：

HTTPServer1.Bindings.Add.SetBinding('127.0.0.1', 50001, Id_IPv4);

或者：

HTTPServer1.DefaultPort := 50001;
HTTPServer1.Bindings.Add.IP := '127.0.0.1';

话虽如此，您的服务器响应是不完整的。请尝试使用以下方法：

procedure TDataForm.HttpServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  AResponseInfo.ResponseNo := 200;
  AResponseInfo.ContentType := 'text/plain';
  AResponseInfo.ContentText := 'Hello, user';
end;