Indy TCP客户端ReadLn函数挂起

时间:2013-10-11 19:10:24

标签: delphi sockets indy

我使用TClientSocket与Python服务器进行套接字通信。在意识到我无法使用TClientSocket在客户端之后,我决定使用INDY。我使用Delphi Indy为客户端和服务器制作了一个小测试应用程序。这很有用。

但它现在不适用于Python。 Python接收连接和消息就好了,但是当它响应时,我的Delphi什么也得不到。我对fIdTCPClient1.IOHandler.ReadLn()的调用永远就在那里。

从非INDY服务器向INDY发送消息需要做些什么特别的事情吗?

procedure TForm3.Button3Click(Sender: TObject);
begin
  fIdTCPClient1 := TIdTCPClient.Create(nil);
  fIdTCPClient1.Port := 20200;
  fIdTCPClient1.Host := '127.0.0.1';//'localhost';
  fIdTCPClient1.Connect;
  fIdTCPClient1.IOHandler.WriteLn('You there');

  msg := fIdTCPClient1.IOHandler.ReadLn();
  ShowMessage(msg);
end;

Python端的连接

    HOST = '127.0.0.1'                                  # Localhost
    PORT = 20200 

    s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
    try:
        s.bind((HOST, PORT))
        s.listen(1)
    except socket.error:
        s.close()
        s = None
        return -1

Python发送/接收

data = conn.recv(4096).strip()
print data
conn.send('I am here')

1 个答案:

答案 0 :(得分:1)

函数IdTCPClient1.IOHandler.ReadLn()挂起并等待,直到从服务器收到“行尾”(#13#10\r\n)。在最后添加\r\n的服务器端响应。