Question

C＃-Application是TCP-Server，Delphi-Application代表TCP-Client轮询服务器以获取信息。

我使用Microsoft Visual Studio社区2017和.NET-Framework 4.5.1用于C＃-Application和Delphi 7（Embarcadero）用于客户端应用程序。

两个应用程序都在同一台PC上运行，因此我将IP-Address设置为＆＃34; localhost＆＃34;或＆＃34; 127.0.0.1＆＃34;。港口是12345。

class Program
{
  static void Main(string[] args)
  {
    int port = 0;
    IPHostEntry host;
    IPAddress localAddress;          
    try
    {
      port = 12345;
      host = Dns.GetHostEntry("localhost");
      localAddress = host.AddressList[0];
      Console.WriteLine("Server waits for a client");
      // init Listener
      TcpListener listener = new TcpListener(localAddress, port);
      // start Listener 
      listener.Start();
      // Wait for a client..
      TcpClient c = listener.AcceptTcpClient();                    
      Console.WriteLine("Connection established.");                    
      //..                    
      // Close connection
      c.Close();
      // stop Listener
      listener.Stop();
    }
    catch (Exception e)
    {
      Console.WriteLine("Error: " + e.Message);
    }     
  }
}

我的问题是，我收到错误＃10061＆＃34;连接被拒绝＆＃34;当套接字尝试连接到服务器时，在Client（Delphi）应用程序中。

TForm1 = class(TForm)
  TcpClient1: TTcpClient;
  btnConnect: TButton;
// ..
procedure TForm1.btnConnectClick(Sender: TObject);
begin
  // try to connect to TCP-Server
  TcpClient1.RemoteHost := 'localhost';
  TcpClient1.RemotePort := '12345';
  if not TcpClient1.Connect() then // Error 10061
  begin
    ShowMessage('No connection to server');
  end
  else
  begin
    ShowMessage('Connected with server.');
  end;
end;

在Delphi中，我尝试了组件TcpClient以及Indy组件TIdTCPClient - 两者都出现错误。

出于测试目的，我在C＃中编写了一个Client-Application，其中没有发生错误（相同的地址和端口）。

class Program
{
  static void Main(string[] args)
  {
    try
    {  
      // init Client
      TcpClient c = new TcpClient("localhost", 12345);                    
      Console.WriteLine("Connected to localhost.");
      // ..
      // close connection
      Console.WriteLine("Close connection.");
      c.Close();                               
    }
    catch (Exception e)
    {
      Console.WriteLine("Error: " + e.Message);
    }
    Console.WriteLine("Press Enter to exit... ");
    string cmd = Console.ReadLine();
  }
}

我的猜测是，C＃和Delphi之间有一些东西，但我不知道是什么。

有没有人知道为什么我不能与Delphi-Application建立连接？

更新：当C＃-Server从任何IP地址接受客户端时，它似乎有效。

// ..
// host = Dns.GetHostEntry("localhost");
// localAddress = host.AddressList[0];
Console.WriteLine("Server waits for a client");
// init Listener
TcpListener listener = new TcpListener(IPAddress.Any, port);
//..

Answer 1

在C＃localAddress可以是地址族IPv4，IPv6或其他，我无法连接我的与IPv4一起使用的Delphi-Application。我目前的解决方案我遍历AddressList并确保我获得了IPv4-Family的IP地址。

host = Dns.GetHostEntry("localhost");                
for (int i = 0; i <= host.AddressList.Length - 1; i++)
{
  if (host.AddressList[i].AddressFamily == AddressFamily.InterNetwork) // check if family is IPv4 
  {
    localAddress = host.AddressList[i];
    // init Listener
    listener = new TcpListener(localAddress, port);
    // start Listener 
    listener.Start();
    // ..
  }
}

使用TCP套接字在Delphi和C＃应用程序之间无通信

1 个答案: