Question

我正在尝试使用TCP将文本行从c＃客户端发送到delphi服务器。只需要在localhost上运行。我希望客户端在适合的时候发送文本行，并且服务器能够读入并在输入流中一次一行地处理它们。

下面的代码实现了这一次，delphi备忘录显示“某行文本1”。之后，c＃返回并说明连接被强行关闭的异常。

如果我关闭客户端连接并在每次发送一行文本时重新建立一个新连接，我可以达到预期的效果。但这非常缓慢，对我的预期用途不可行。

我是TCP新手，不知道我在做什么！任何帮助实现预期结果都将非常感激。

Delphi服务器代码是......

procedure TForm1.FormCreate(Sender: TObject);
begin

  Memo1.Lines.Clear;

  //Server initialization
  TcpServer1 := TTcpServer.Create(Self);
  TcpServer1.OnAccept := TcpServer1Accept;
  TcpServer1.LocalPort := IntToStr(DEFAULT_PORT);
  TcpServer1.Active := true;


end; //TForm1.FormCreate procedure ends


procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
somestring : string;
begin

    somestring := ClientSocket.Receiveln('#$D#$A');
    Memo1.Lines.Add(somestring);

end; //TForm1.TcpServer1Accept ends

c＃代码是.............

public static void Main (string[] args)
{

    bool connectionEstablished = false;
    int messageNum = 1;
    TcpClient theclient = new TcpClient();

    //first try establish a successful connection before proceeding
    Console.WriteLine("Waiting for server......");
    while (connectionEstablished == false) {

        connectionEstablished = true;

        try {

            Int32 port = 2501;
            string server = "127.0.0.1"; //the ip of localhost

            theclient = new TcpClient(server, port);

        } catch {

            Console.WriteLine("Could not find AI server");
            connectionEstablished = false;  
        }


    } //while (connectionEstablished == false) ends

    Console.WriteLine("Connected to server");

    ////////////////////////////////////////
    while (true) {

      try 
      {

        string message = "some line of text " + messageNum.ToString() + "#$D#$A";   

        // Translate the passed message into ASCII and store it as a Byte array.
        Byte[] data = System.Text.Encoding.ASCII.GetBytes(message);         

        NetworkStream stream = theclient.GetStream();

        stream.Write(data, 0, data.Length); //working

        messageNum = messageNum + 1;

      }
      catch (ArgumentNullException e) 
      {
        Console.WriteLine("ArgumentNullException: {0}", e);
        Console.WriteLine("\n Press Enter to continue...");
        Console.Read();                             

      } 
      catch (SocketException e) 
      {
        Console.WriteLine("SocketException: {0}", e);
        Console.WriteLine("\n Press Enter to continue...");
        Console.Read();         

      }


        System.Threading.Thread.Sleep(2500);

    } //while (true) ends
    ////////////////////////////////////////////////


}



    }

Answer 1

创建TcpClient实例后，实际需要Connect。

你也可以使用IPAddress a = IPAddress.Loopback;对于环回适配器，以便您不需要解析它。

try 
{
    Int32 port = 2501;
    string server = "127.0.0.1"; //the ip of localhost
    theclient = new TcpClient();

    theclient.Connect(server,port);
}

Answer 2

我不知道Delphi中套接字类的确切行为，但是如果OnAccept过程TForm1.TcpServer1Accept结束，它就像服务器关闭连接一样。因此你应该有一个循环，也许有一个结束标准：

procedure TForm1.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
var
  somestring : string;
begin
  do
    begin
      somestring := ClientSocket.Receiveln('#$D#$A');
      Memo1.Lines.Add(somestring);
    end;
  while(somestring.length > 0);
end; //TForm1.TcpServer1Accept ends

这不是有效的Delphi代码，因为我很长时间没有使用Delphi / Pascal，但我认为你会得到这个想法......

Delphi和c＃之间的TCP通信问题

2 个答案: