想了解的新动态吗？本文将为您提供详细的信息，我们还将为您解答关于死亡历程Delphi7自带的控件IdTCPClient，IdTCPServer客户端发送给服务端，服务端转发给其它客户端的相关问题，此外

想了解的新动态吗？本文将为您提供详细的信息，我们还将为您解答关于死亡历程Delphi7 自带的控件 IdTCPClient，IdTCPServer 客户端发送给服务端，服务端转发给其它客户端的相关问题，此外，我们还将为您介绍关于.Net TCP探索（一）——TCP服务端开发(同时监听多个客户端请求)、c – Qt双向客户端服务器使用QTcpSocket和QTcpServer、C# TCP/IP 服务端 和 客户端、Delphi IdTCPClient IdTCPServer 点对点传送文件的新知识。

• （死亡历程）Delphi7 自带的控件 IdTCPClient，IdTCPServer 客户端发送给服务端，服务端转发给其它客户端
• .Net TCP探索（一）——TCP服务端开发(同时监听多个客户端请求)
• c – Qt双向客户端服务器使用QTcpSocket和QTcpServer
• C# TCP/IP 服务端 和 客户端
• Delphi IdTCPClient IdTCPServer 点对点传送文件

（死亡历程）Delphi7 自带的控件 IdTCPClient，IdTCPServer 客户端发送给服务端，服务端转发给其它客户端

.Net TCP探索（一）——TCP服务端开发(同时监听多个客户端请求)

    最近在园子里看了大神写的（面试官，不要再问我三次握手和四次挥手），忍不住写段程序来测试一番。

    在网上找了很多例子，大多只实现了TCP点对点通讯，但实际应用中，一个服务器端口往往要监听多个客户端发来的消息。

测试工具下载：https://download.csdn.net/download/nbyanghuichao/11872360
    本例采用System.Threading实现多线程监听，下面只介绍核心代码，省略了消息提示和错误处理，可以从我的GitHub获取完整代码：https://github.com/FB208/CodeSpace/tree/master/CodeSpace.CSharp/TCP.Client

数据声明：

private string _ip;//IP
private int _port;//端口
//客户端集合
public static List<TcpClientModel> clients = new List<TcpClientModel>
private static byte[] bytes = new byte[1024 * 100];
/// <summary>
/// 用于存储客户端
/// </summary>
public class TcpClientModel
{
    /// <summary>
    /// IP:Port
    /// </summary>
    public string RemoteEndPoint { get; set; }
    /// <summary>
    /// 客户端链接对象
    /// </summary>
    public TcpClient TcpClient { get; set; }
}

启动监听：

///启动监听
void Init()
{
    try
    {
        IPAddress ip = IPAddress.Parse(_ip);
        int port = _port;
        TcpListener listener = new TcpListener(ip, port);
        //启动监听
        listener.Start();
        tb_console.AppendText($"Listener...\r\n");
        //异步接收 递归循环接收多个客户端
        listener.BeginAcceptTcpClient(new AsyncCallback(GetAcceptTcpclient), listener);
    }
    catch (Exception ex)
    {
        
    }
}

接收客户端：

private void GetAcceptTcpclient(IAsyncResult State)
{
    //处理多个客户端接入
    TcpListener listener = (TcpListener)State.AsyncState;
    //接收到客户端请求
    TcpClient client = listener.EndAcceptTcpClient(State);
    //保存到客户端集合中
    clients.Add(new TcpClientModel() { TcpClient = client, RemoteEndPoint = client.Client.RemoteEndPoint.ToString() });

    //开启线程用来持续接收来自客户端的数据
    Thread myThread = new Thread(() =>
    {
        ReceiveMsgFromClient(client);
    });
    myThread.Start();
    listener.BeginAcceptTcpClient(new AsyncCallback(GetAcceptTcpclient), listener);
}

接收消息并响应客户端：

private void ReceiveMsgFromClient(object reciveClient)
{
    TcpClient client = reciveClient as TcpClient;
    if (client == null)
    {
        return;
    }
    while (true)
    {
        try
        {
            NetworkStream stream = client.GetStream();
            int num = stream.Read(bytes, 0, bytes.Length); //将数据读到result中，并返回字符长度                  
            if (num != 0)
            {
                //把字节数组中流存储的数据以字符串方式赋值给str
                //这里就是接收到的客户端消息
                string str = Encoding.UTF8.GetString(bytes, 0, num);

                //给客户端返回一个消息
                string msg = "Your message has been received by the server[" + str + "]";

                bool result = TCPHelper.SendToClient(client, msg, out msg);
                if (!result)
                {
                    //发送失败
                }
            }
            else
            {   
                //这里需要注意 当num=0时表明客户端已经断开连接，需要结束循环，不然会死循环一直卡住
                break;
            }
        }
        catch (Exception ex)
        {
            //链接失败 从集合中移除出错客户端
            clients.Remove(clients.FirstOrDefault(m => m.RemoteEndPoint == client.Client.RemoteEndPoint.ToString()));
            break;
        }

    }
}

从服务器向客户端发送消息的工具类：

public static class TCPHelper
{
    public static bool SendToClient(TcpClient client, string message,out string errorMsg)
    {
        try
        {
            byte[] bytes = new byte[1024 * 100];
            bytes = Encoding.UTF8.GetBytes(message);
            NetworkStream stream = client.GetStream();
            stream.Write(bytes, 0, bytes.Length);
            stream.Flush();
            errorMsg = "";
            return true;
        }
        catch (Exception ex)
        {
            errorMsg = ex.Message;
            return false;
        }
    }
}

测试效果：

完整代码请关注：https://github.com/FB208/CodeSpace/tree/master/CodeSpace.CSharp/TCP.Client

原文出处：https://www.cnblogs.com/fb208/p/11690288.html

c – Qt双向客户端服务器使用QTcpSocket和QTcpServer

#include "comms.h"Comms::Comms(QString hostIP,quint16 hostPort){    server = new QTcpserver(this);    hostAddress.setAddress(hostIP);    this->hostPort = hostPort;}void Comms::attemptConnection(){    connect(server,SIGNAL(newConnection()),this,SLOT(connectionAccepted()));    //socket = server->nextPendingConnection();    server->listen(hostAddress,hostPort);    //receivedData = socket->readAll();}void Comms::connectionAccepted(){    qDebug()<<"Connected";    socket = new QTcpsocket(server->nextPendingConnection());    char* rec = new char[socket->readBufferSize()];    qDebug()<<socket->readBufferSize();}

#include "toplevelcomms.h"#include "stdio.h"TopLevelComms::TopLevelComms(QString hostIP,quint16 hostPort){    tcpsocket = new QTcpsocket();    hostAddress.setAddress(hostIP);    this->hostPort = hostPort;}void TopLevelComms::connect(){    tcpsocket->connectToHost(hostAddress,hostPort,qiodevice::ReadWrite);    //tcpsocket->waitForConnected(1);    QString string = "Hello";    QByteArray array;    array.append(string);    qDebug()<<tcpsocket->write(array);}

void TopLevelComms::connect(){    tcpsocket->connectToHost(hostAddress,qiodevice::ReadWrite);    if(tcpsocket->waitForConnected()) // putting 1 as parameter isn't reasonable,using default 3000ms value    {        QString string = "Hello";        QByteArray array;        array.append(string);        qDebug()<<tcpsocket->write(array);    }    else    {        qDebug() << "Couldn't connect";    }}

void Comms::attemptConnection(){    connect(server,SLOT(connectionAccepted()));    //socket = server->nextPendingConnection();    if(server->listen(hostAddress,hostPort))    {        qDebug() << "Server listening";    }    else    {        qDebug() << "Couldn't listen to port" << server->serverPort() << ":" << server->errorString();    }    //receivedData = socket->readAll();}

void Comms::connectionAccepted(){    qDebug()<<"Connected";    // WRONG! it will use QTcpsocket::QTcpsocket(QObject * parent)    //socket = new QTcpsocket(server->nextPendingConnection());    // use simple asign    socket = server->nextPendingConnection();    // move reading to slot    connect(socket,SIGNAL(readyRead()),SLOT(readSocket()));}

void Comms::readSocket(){    // note that dynamic size array is incompatible with some compilers    // we will use Qt data structure for that    //char* rec = new char[socket->readBufferSize()];    qDebug()<<socket->readBufferSize();    // note that QByteArray can be casted to char * and const char *    QByteArray data = socket->readAll();}

C# TCP/IP 服务端 和 客户端

服务端
using System;
using System.Collections.Generic;
using System.Text;
using System.Threading;
using System.Net.Sockets;
using System.Net;

namespace TcpIpServer
{
class TcpIpServerEx
{
public EndPoint RemoteEndPoint { get; private set; } //当前客户端的网络结点

Thread threadwatch = null;//负责监听客户端的线程
Socket socket = null;//负责监听客户端的套接字
// Dictionary<ip和端口, Socket> 定义一个集合，存储客户端信息
public Dictionary<EndPoint, Socket> dic = new Dictionary<EndPoint, Socket> { };

private StringBuilder msg = new StringBuilder();
public string Msg
{
get { return msg.ToString(); }
private set
{
msg.AppendLine(value);
Console.WriteLine(value + "\r\n");
}

}

private TcpIpServerEx() { }
public TcpIpServerEx( int port=11000)
{
//定义一个套接字用于监听客户端发来的消息，包含三个参数（IP4寻址协议，流式连接，Tcp协议）
socket = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp);

//将IP地址和端口号绑定到网络节点point上
IPEndPoint point = new IPEndPoint(IPAddress.Any, port);//设置服务器端口，IP是本程序所在PC的内网IP

//监听绑定的网络节点
socket.Bind(point);

//将套接字的监听队列长度限制为20
socket.Listen(20);

//创建一个监听线程
threadwatch = new Thread(watchconnecting);

//将窗体线程设置为与后台同步，随着主线程结束而结束
threadwatch.IsBackground = true;

//启动线程
threadwatch.Start();

//启动线程后显示相应提示
Msg = ("开始监听客户端传来的信息!" + "\r\n");
}

//监听客户端发来的请求
private void watchconnecting()
{
Socket connection = null;
while (true) //持续不断监听客户端发来的请求
{
try
{
connection = socket.Accept();
}
catch (Exception ex)
{
Msg =(ex.Message); //提示套接字监听异常
break;
}

//让客户显示"连接成功的"的信息
string sendmsg = "连接服务端成功！你的IP是" + connection.RemoteEndPoint;
byte[] arrSendMsg = Encoding.UTF8.GetBytes(sendmsg);
connection.Send(arrSendMsg);


RemoteEndPoint = connection.RemoteEndPoint; //客户端网络结点号
Msg = ("成功与" + RemoteEndPoint + "客户端建立连接！\t\n"); //显示与客户端连接情况
dic.Add(RemoteEndPoint, connection); //添加客户端信息


//创建一个通信线程
ParameterizedThreadStart pts = new ParameterizedThreadStart(recv);
Thread thread = new Thread(pts);
thread.IsBackground = true;//设置为后台线程，随着主线程退出而退出
thread.Start(connection);//启动线程
}
}

///
/// 接收客户端发来的信息
///
///客户端套接字对象
private void recv(object socketclientpara)
{

Socket socketServer = socketclientpara as Socket;
while (true)
{
//创建一个内存缓冲区 其大小为1024*1024字节 即1M
byte[] arrServerRecMsg = new byte[1024 * 1024];
//将接收到的信息存入到内存缓冲区,并返回其字节数组的长度
try
{
int length = socketServer.Receive(arrServerRecMsg);

//将机器接受到的字节数组转换为人可以读懂的字符串
string strSRecMsg = Encoding.UTF8.GetString(arrServerRecMsg, 0, length);

//将发送的字符串信息附加到文本框txtMsg上
Msg = ("客户端:" + GetCurrentTime() + socketServer.RemoteEndPoint +"的消息:"+ strSRecMsg + "\r\n");
}
catch (Exception ex)
{
Msg = ("客户端:" + GetCurrentTime() + socketServer.RemoteEndPoint + "已经中断连接" + "\r\n"); //提示套接字监听异常
//listBoxOnlineList.Items.Remove(socketServer.RemoteEndPoint.ToString());//从listbox中移除断开连接的客户端
socketServer.Close();//关闭之前accept出来的和客户端进行通信的套接字
break;
}
}


}


//获取当前系统时间
private string GetCurrentTime()
{
string timeStr = System.DateTime.Now.ToString("yyyy年MM月dd日hh时mm分ss秒fff毫秒。");
return timeStr;
}

/// <summary>
/// 发送信息到客户端
/// </summary>
/// <param name="smallname"></param>
/// <param name="sendMsg">要发送的信息</param>
public void SentMsg(EndPoint endPoint,string sendMsg)
{

byte[] bytes = System.Text.Encoding.UTF8.GetBytes(sendMsg); //将要发送的信息转化为字节数组，因为Socket发送数据时是以字节的形式发送的
dic[endPoint].Send(bytes); //发送数据
Msg = (GetCurrentTime() + endPoint +"的消息:"+ sendMsg + "\r\n");
}
}
}

using System;
namespace TcpIpServer
{
class Program
{
static void Main(string[] args)
{
TcpIpServerEx s =new TcpIpServerEx();
while (true)
{
string strSend = Console.ReadLine();
if (strSend == "exit") break;
Console.WriteLine("s.dic.Count:"+ s.dic.Count);
if (s.dic.Count >0)
{
s.SentMsg(s.RemoteEndPoint,strSend);
}
}
}
}
}
客户端
using System;
using System.Collections.Generic;
using System.Text;
using System.Threading;
using System.Net.Sockets;
using System.Net;

namespace TcpIpClint
{
public class TcpIpClintEx
{
//创建 1个客户端套接字 和1个负责监听服务端请求的线程
Thread threadclient = null;
Socket socket = null;
List<IPEndPoint> mlist = new List<IPEndPoint>();
private StringBuilder msg = new StringBuilder();
public string Msg
{
get { return msg.ToString(); }
private set
{
msg.AppendLine(value);
Console.WriteLine(value + "\r\n");
}
}

public TcpIpClintEx(string ip, int port = 11000)
{
//定义一个套接字监听
socket = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp);
//将获取的IP地址和端口号绑定在网络节点上
IPEndPoint point = new IPEndPoint(IPAddress.Parse(ip), port);
Msg = "正在连接服务器 " + ip + ":" + port;

try
{
//客户端套接字连接到网络节点上，用的是Connect
socket.Connect(point);
}
catch (Exception)
{
Msg = ("连接失败\r\n");
return;
}

threadclient = new Thread(recv);
threadclient.IsBackground = true;
threadclient.Start();
}

// 接收服务端发来信息的方法
private void recv()//
{
while (true)//持续监听服务端发来的消息
{
try
{
//定义一个1M的内存缓冲区，用于临时性存储接收到的消息
byte[] arrRecvmsg = new byte[1024 * 1024];

//将客户端套接字接收到的数据存入内存缓冲区，并获取长度
int length = socket.Receive(arrRecvmsg);

//将套接字获取到的字符数组转换为人可以看懂的字符串
string strRevMsg = Encoding.UTF8.GetString(arrRecvmsg, 0, length);

Msg = ("服务器:" + GetCurrentTime() + "IP:" + socket.RemoteEndPoint + ",的消息:" + strRevMsg + "\r\n\n");
}
catch (Exception ex)
{
Msg = ("远程服务器已经中断连接" + "\r\n");
break;
}
}
}

//获取当前系统时间
private string GetCurrentTime()
{
string timeStr = System.DateTime.Now.ToString("yyyy年MM月dd日hh时mm分ss秒fff毫秒。");
return timeStr;
}

//发送字符信息到服务端的方法
public void ClientSendMsg(string sendMsg)
{
//将输入的内容字符串转换为机器可以识别的字节数组
byte[] arrClientSendMsg = Encoding.UTF8.GetBytes(sendMsg);
//调用客户端套接字发送字节数组
socket.Send(arrClientSendMsg);
}
}
}
using System;
using System.Collections.Generic;
using System.Text;

namespace TcpIpClint
{
class Program
{
static void Main(string[] args)
{
TcpIpClintEx tcpIpClintEx =new TcpIpClintEx("122.112.226.109");

while (true)
{
string strSend = Console.ReadLine();
if (strSend == "exit") break;
tcpIpClintEx.ClientSendMsg(strSend);
}
}
}
}
————————————————

原文链接：https://blog.csdn.net/u013628121/article/details/82968706

Delphi IdTCPClient IdTCPServer 点对点传送文件

今天的关于和死亡历程Delphi7 自带的控件 IdTCPClient，IdTCPServer 客户端发送给服务端，服务端转发给其它客户端的分享已经结束，谢谢您的关注，如果想了解更多关于.Net TCP探索（一）——TCP服务端开发(同时监听多个客户端请求)、c – Qt双向客户端服务器使用QTcpSocket和QTcpServer、C# TCP/IP 服务端 和 客户端、Delphi IdTCPClient IdTCPServer 点对点传送文件的相关知识，请在本站进行查询。