delphi - 同一可执行文件中的 TIdHTTPServer 和 TIdHTTP 可以连接吗？

Question

我有一个使用 TIdHTTPServer 的程序。现在我想使用与 TIdHTTPServer 对话的 TIdHTTP 编写一些自动化测试。测试代码在程序本身中。

当 TIdHTTP 尝试连接时出现“套接字错误 #10061 连接被拒绝”。引发异常。我猜那是因为 TIdHTTPServer 已经在使用该端口了。

位于同一可执行文件中的 TIdHTTPServer 和 TIdHTTP 是否可以相互通信？如果是这样，怎么做？

Answer 1

是的，它们可以在同一个可执行文件中运行并相互连接。只需在您传递给 TIdHTTP 的 URL 中指定（一个）TIdHTTPServer 的侦听 IP，例如：

with IdHTTPServer1.Binding.Add do
begin
  IP := '127.0.0.1';
  Port := 80;
end;
IdHTTPServer1.Active := True;
...
IdHTTP1.Get('http://127.0.0.1/');