关于socket接收数据的问题

Question

我做了一个测试：
在Client端连续发送几个数据包：
ClientSocket1.SendText('12');
ClientSocket1.SendText('3456');
ClientSocket1.SendText('789');在Server端接收：（在Read事件）
procedure TF_Server.Server1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
  Mem_Send.Lines.Add(socket.ReceiveText);
end;结果：
按照我的想法应该为：
12
3456
789实际接收：123456789
假如我在发送的时候每一个SendText设断点,则收到的数据：
12
3456
789我如何作才能使我正确收到的数据为：
12
3456
789

Answer 1

增加数据头XXX+yourdata,XXX用来标识数据长度，服务器端先判断XXX,然后接收.

Answer 2

我觉得不是接收的问题,是不是Mem_Send.Lines.Add(socket.ReceiveText);你用的是ADD是不是把三次接收的写在一行上了呀,

Answer 3

这不是SOCKET的问题，而是你们的想法问题（还好不是RPWT^_^）TCP/IP在传输中，数据包的分拆和组合完全是根据网络状况，自动进行，虽然你认为你发了三个包，但如果网络状况好，收到的就是一个包，如果状况差，也可能收到四个包。解决的办法是：你必须自己通过格式定义来分析数据。比如在每个字符串的末尾加上回车，或在开头先发送串长度等方法。

Answer 4

同意  Raptor(猛禽)  老哥我在处理字符的时候一般是这样ClientSocket1.SendText('12/3456/789');然后收到以后根据‘/’来拆分

Answer 5

myling(阿德) 的回答，贴出来共享：
假如数据很多的时候，处理起来岂不是很麻烦，还有一个问题，假如有一个完整的包，传送过程中把包给拆了，有两台这样的机器同时发数据给我时，我收到的数据岂不是很乱，我如何对数据进行再组织
其实可以存放到一个数组中，然后用sendbuf来传至于你说的乱了的话可以放心，因为socket是面向连接的
服务器对不同的客户端，是不同的连接
在delphi里，是sockt.ActiveConnections[i]数组
连接不会发生混乱，delphi已经进行了封装

Answer 6

在tcpsocket中传输数据时
它本身维护一个小于4K的缓冲区,如果你发送的大于4K,你就要分次发送,在接受端自己衔接起来.
你上面的问题是由于你在连续的调用发送函数时,是先向缓冲区写入然后再传出的,这就可能出现在第一个数据还没有传出,第二个又写进来了,计算机会把它当成一个传出,所以就会出现你的三个成一个字符串的形式.
为了避免,你可以采用一问一答的模式:
就是在客户端送出第一笔数据后,如果server受到了 就回一个确认信息,client再送出第二笔

Answer 7

myling(阿德) 的回答，贴出来共享：是否存在这种情况，接收端接收到四个包，包的顺序包1为线程1的数据，包2为线程2的数据，包3为线程1的数据，包4为线程2的数据，我怎么知道那两个包是线程1，那两个包是线程2的数据
是这样的，接受端不管是那个线程的，它只负责接受
接收到以后她只想知道是那个客户端发的如果你说的这个是一个客户端，然后利用不同的线程来控制它发包
那么就按照线程发生的顺序，它会依次收到四个包，
但是是一个客户端发来的线程其实就是利用CPU分时复用的原理，用不同的时间段来运行程序
说线程效率高，就在这里，它把运行时间分散到各个时间段里了
普通的程序要等到其他时间段运行完了，轮到他所在线程的时间段，
才运行，其他时间其实是在等待，这就是我们所说的主线程
用了线程，就是相当于在其它的时间段内运行，正好和主线程错开了
这样我们感觉是两个程序在同时运行如果你的客户端在线程中，就想我前面说的，就是不同的副本
服务器还会收到四个包，但这是就是两个客户端发来的你想判断是那个线程发的，只有加标示了
例如在包的前面或者后面加上这个线程的ID,其实在网络传输中，也正是这么做的，不过他们的信息要复杂的多
 

Answer 8

其本上这种担心也是多余的，客户端的每个线程会对应服务端一个独立的线程，SOCKET会自动根据连接的不同，分开传输，不会乱的。

Answer 9

其实，如果用Socket做文件的传输，最好且可靠的方法是：1、定义一套通信协议；2、client和server采用一问一答的方式交互进行。

Answer 10

同意sunrains(流星) 
其中最重要的几点.
1、定义自己的数据包格式。2、由于网络质量的问题，要在接收端对系统数据包进行重新组合。3、流技术的应用

Answer 11

其实,自己处理可能是比较好的办法!
我在d6中试过,我以前好象看过个帮助,有个Api之类的,但刚才找了会,找不到,
试过加个#0,强制结束,但不行,
ClientSocket1.SendText('12'#0);
ClientSocket1.SendText('3456');在D7中,一般会用IdTCPClient
其中就有IdTCPClient1.FlushWriteBuffer(-1);

Answer 12

ClientSocket1.SendText('12'#13#10);
ClientSocket1.SendText('3456'#13#10);
ClientSocket1.SendText('789');

Answer 13

我试了下,要这样:
 ClientSocket1.Socket.SendText('aaa'#13#10);
 ClientSocket1.Socket.SendText('bbb'#0);
 ClientSocket1.Socket.SendText('ccc');procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var s: string;
begin
 s := Socket.ReceiveText;
 Memo1.Lines.Add(S);
end;