2

我需要RST在一个套接字中发送一个标志,这可能吗?

当我关闭 时TIdTCPClient,TCP 服务器程序告诉我连接仍然存在,2 分钟后连接消失。

我正在这样做:

TCPCliente := TIdTCPClient.Create(nil);
TCPCliente.Host := edtIP.Text;
TCPCliente.Port := 492;
TCPCliente.ConnectTimeout := 1000;
TCPCliente.Connect;
TCPCliente.Socket.WriteLnRFC(TextoEnvio, IndyTextEncoding_8Bit);
Texto := TCPCliente.Socket.ReadLn(IndyTextEncoding_8Bit);
TCPCliente.Socket.Close;
TCPCliente.Disconnect;
TCPCliente.Free;

我正在使用 RAD Studio XE8。

4

0 回答 0