Delphi TCP协议CS结构接收和发送数据实例源码,两者都要运行,指定端口后双方建立连接,在客户端可向服务端发送消息和数据,服务端可接收数据,server端程序界面效果如图所示。
procedure TSHYServerFm.IdTCPServer1Connect(AContext: TIdContext);
begin
LbLog.Items.Add('来自主机 '
AContext.Connection.Socket.Binding.PeerIP
' 的连接请求已被接纳!');
AContext.Connection.Socket.WriteLn('100: 欢迎连接到简单TCP服务器!');
end;
1