在学习使用delphi进行网络时,书上忽略的一点东西
2004-08-01 15:32
477 查看
今天在进行对 TClientSocket;: TServerSocket; 的学习编写聊天软件的过程里,发现一个非常郁闷的问题,当在服务器端接收数据的时候,进行数据转发的时候,总是无法发送到客户端。
self.Memo1.Lines.Add(socket.ReceiveText);
for i:= 1 to num do
self.ServerSocket1.Socket.Connections[i - 1].SendText(socket.ReceiveText);
在上面的代码里,一旦服务器接受到一个客户端发送的信息后,就先把字符串加入memo里,然后再对其它的客户端发送消息。但是就是这里,服务器能够加入字符串,但其它的客户端不行。如果把 self.Memo1.Lines.Add(socket.ReceiveText);删除的话,又只能有一个客户端收到发送的信息。
经过多方努力,查看变量速度的变化过程,终于清楚一个问题。
当通过ReceiveText操作后,系统会把socket里缓冲区清除,也就是说如果再后面的操作要再次读取缓冲区的话,返回的是空值,也就是后面无法发送。所以把代码稍加改动,增加一个临时变量就可以解决问题了。
s := socket.ReceiveText;
self.Memo1.Lines.Add(s);
for i:= 1 to num do
self.ServerSocket1.Socket.Connections[i - 1].SendText(s);
self.Memo1.Lines.Add(socket.ReceiveText);
for i:= 1 to num do
self.ServerSocket1.Socket.Connections[i - 1].SendText(socket.ReceiveText);
在上面的代码里,一旦服务器接受到一个客户端发送的信息后,就先把字符串加入memo里,然后再对其它的客户端发送消息。但是就是这里,服务器能够加入字符串,但其它的客户端不行。如果把 self.Memo1.Lines.Add(socket.ReceiveText);删除的话,又只能有一个客户端收到发送的信息。
经过多方努力,查看变量速度的变化过程,终于清楚一个问题。
当通过ReceiveText操作后,系统会把socket里缓冲区清除,也就是说如果再后面的操作要再次读取缓冲区的话,返回的是空值,也就是后面无法发送。所以把代码稍加改动,增加一个临时变量就可以解决问题了。
s := socket.ReceiveText;
self.Memo1.Lines.Add(s);
for i:= 1 to num do
self.ServerSocket1.Socket.Connections[i - 1].SendText(s);
相关文章推荐
- Delphi中对时间操作方法汇总
- Linux服务器操作系统加固方法
- VC与Delphi之间动态链接库互相调用
- 用Ole Automation实现Delphi和AutoCad之间的数据交换
- 新思创OA功能列表
- delphi中的时间操作技术(1)
- delphi中的时间操作技术(2)
- IP地址的隐藏(delphi实现 )
- 关于数据库备份的问题!
- 转载:易水寒写的自由网,走向free的极限
- B/S结构系统
- 开发工具浅谈
- 学ASP.NET学什么?
- 移植到 Windows 2000 和 COM+
- 《书评《自适应软件开发》(二)--.com时代的遗物
- Decal SDL-Delphi的范型类库-通用数据结构与算法类库(一)
- 编译器(解释器)编写指南-编写编译器(解释器)的工具-LEX
- 关于FSO静态生成技术的应用范围之解决思路