Delphi中的TcpServer和TcpClient以及UdpSocket的问题

Posted 2023-04-29

我打算做一个简单的聊天程序，服务器端用的是多线程的，现在碰到一个问题想请教一下大家！
我是启动服务器的时候选定服务器的端口的，并且自动探测到本机IP，从而初始化TcpServer的LocalHost和LocalPort，在客户端连接时要填上服务器的IP和端口用来初始化TcpClient的RemoteHost和RemotePort。但是这样只能实现客户向服务器发信息！现在我想加个服务器向客户发信息的功能。
可是问题就出在这里了，就是该怎么设定TcpServer的RemotePort和TcpClient的LocalPort呢？因为一个TcpServer可以和多个TcpClient相连接的，那么该怎么设定每个TcpClient的LocalPort呢？
谢谢！

还有个关于UdpSocket的问题
怎么也调不出来
TUDPSocket属性设置为
.Active=true;
.Blockmode=bmNonBlock;
.LocalHost=127.0.0.1;
.LocalPort=12345;
.RemoteHost=127.0.0.1;
.RemotePort=12345.
发送数据：udpsocket1.SendStream(stream)；
为什么OnReceive接收数据事件不能触发呢？
谢谢各位了！

参考技术A 在建立连接完成的事件里面把socket保存起来，S->C的时候找对应C的那个Socket就可以发送啊，至于怎么保存，建议是用TList+自定义一个结构体。

1 连接请求
使用了.NET类中的 System.Net.Sockets.TcpClient类,
TcpClient(string hostname,int port)
Hostname 是要控制的主机名称，当然你也可以用IP地址。
Port是端口。
// System.EventArgs包含事件数据类的基类
private void button7_Click(object sender, System.EventArgs e)

//记录操作,在richTextBox控件中增加操作信息
richTextBox1.AppendText("请求连接" +textBox1.Text +"\r");
int port =6678;
try

//初始化 TcpClient 类的新实例并连接到指定主机上的指定端口
client = new TcpClient(textBox1.Text,port);

catch

MessageBox.Show("服务器不在线!确定是否输入主机名称.");
richTextBox1.AppendText("服务器不在线!确定是否输入主机名称.");

//private void buttion
2测试是否与被控制机连接上。程序的流程是发送控制码看控制端是否有反应，如果有返回则显示控制成功。
//提供网络访问的数据流
//private NetworkStream stream;
代码如下：
private void button8_Click(object sender, System.EventArgs e)

//纪录操作
richTextBox1.AppendText("测试连接" +"\r");
try


stream = client.GetStream();
if(stream.CanWrite)

//发送控制码
string control = "jiance";
byte[] by =System.Text.Encoding.ASCII.GetBytes(control.ToCharArray());
stream.Write(by,0,by.Length);
//下次使用
stream.Flush();
//启动接收反回数据的线程
//receive是线程执行的函数，见后面的分析
threadReceive = new Thread(new ThreadStart(receive));
threadReceive.Start();


catch(Exception ee)

richTextBox1.AppendText (ee.Message+"\r");
MessageBox.Show(ee.Message);


3控制生效的代码
private void button9_Click(object sender, System.EventArgs e)

//这里是确定要发送的控制码，RadioButton是窗体控件
if(radioButton1.Checked) control = form2.zhucex;
else if(radioButton2.Checked) control =form3.zhuces;
else if(radioButton3.Checked) control = warring;
else if(radioButton4.Checked) control =suggest;
else if(radioButton5.Checked) control =form4.mumawe;
else if(radioButton6.Checked) control =drop;
if (control =="000000")

MessageBox.Show("你没有输入任何控制目标!不发控制信号");
richTextBox1.AppendText("你没有输入任何控制目标!不发控制信号");

else if(control != "000000")

try

//记录操作
richTextBox1.AppendText (control + "正在试图控制,等待回应......" + "\r");
stream = client.GetStream();
if(stream.CanWrite )

byte[] by = System.Text.Encoding.ASCII.GetBytes(control.ToCharArray ());
stream.Write(by,0,by.Length);
stream.Flush();
threadReceive =new Thread(new ThreadStart(receive));
threadReceive.Start();
//endif
//try
catch

richTextBox1.AppendText("服务器未连接1控制无效!" +"\r");
MessageBox.Show("服务器未连接1控制无效!" +"\r");

//else if


4线程执行的函数
private void receive()

//设置读取数据的空间
byte[] bb = new byte[3];
//读取3个字节,i为实际读取的字节数
int i = stream.Read(bb,0,3);
//转换成字符串，如果是中文控制码则用string ss = //System.Text.Encoding.Unicode.GetString(bb);
string ss = System.Text.Encoding.ASCII.GetString(bb);
//hjc为我设置的服务器的返回码 hjc为连接成功，hkz为控制成功
if(ss=="hjc")

MessageBox.Show("连接成功");
richTextBox1.AppendText("连接成功");

if(ss== "hkz")

richTextBox1.AppendText(control +"控制成功"+"\r");
MessageBox.Show(control +"控制成功"+"\r");

参考技术B 加510761049，不踩我的，我也不告诉你，150分也不是你的了

c++ tcpserver 可以接收无符号字符吗？

【中文标题】c++ tcpserver 可以接收无符号字符吗？

【英文标题】：can c++ tcpserver receive unsigned char?

【发布时间】：2013-06-18 04:42:09

【问题描述】：

目前我有一个 c# tcpclient 和一个 c++ tcpserver，但我只能从服务器端的流中读取字符，因此所有数据都将转换为字符。由于c++ char是一个有符号的8位整数，而c#客户端发送的字节是无符号的8位整数，所以服务器端无法正确接收客户端发送的所有>=128的数据。 示例：

        char[] textChars = text.ToCharArray();
        byte[] textBytes = new byte[textChars.Length *2];
        byte low;
        byte high;
        UInt16 current;
        for (int i = 0; i < textChars.Length; i++)
        
            current = (UInt16)textChars[i];
            high = (byte)(current / 256);
            low = (byte)(current % 256);
            textBytes[i * 2] = high;
            textBytes[i * 2 + 1] = low;
        

        currentStream.Write(textBytes, 0, textBytes.Length);
        currentStream.Flush();

这是在客户端，我将在服务器端收到的内容打印为签名 int： 如果我发送一个 char 其 ascii 代码 = 136，它将变为 2 个字节：0,136。但在服务器端，它打印 0, -22。 那么有没有办法让 c++ 流读取 unsigned char？ 还是有其他方法可以解决这个问题？ 感谢您的帮助！

【问题讨论】：

您可以将接收到的字符重新转换为字节（无符号字符）

【参考方案1】：

您通过 TCP 连接获得的只是原始数据，您选择解释它的方式决定了它的外观。

最简单的解决方案可能是在打印/使用之前将其转换为：

signed char val = -22;               // emulate receipt of signed char.
printf ("%d\n", (unsigned char)val); // cast to change interpretation.

【参考方案2】：

您的代码已损坏。

char[] textChars = text.ToCharArray();
....
for (int i = 0; i < textChars.Length; i++)

    current = (UInt16)textChars[i];

“textChars”的元素属于“char”类型。这意味着它们包含 0-255 之间的值。在下一行，你这样做：

    high = (byte)(current / 256);

这只能计算为 0。