socket发送数据的问题（急！）

[pgrwater]

服务器端一1000ms的速度向客户端发送数据，数据的大小为每次8K.
procedure Tmain.Timer4Timer(Sender: TObject);
var
m,i,n,j:integer;
x,y,z,w:integer;
tem:real;
count:integer;
data1:array[1..16,1..512]of shortint;
begin
Count:=Server.Socket.ActiveConnections;
for i:=0 to Count-1 do
begin
Server.Socket.Connections[i].Sendbuf(data1,SizeOf(data1));
end;
客户端接受数据并处理
procedure Tmain.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
TotalLen:Integer;
len,m,i,n,j:integer;
count:integer;
tem:real;
data1:array[1..16,1..512]of shortint;
begin

Len:=Socket.ReceiveLength;
Socket.ReceiveBuf(data1,sizeof(data1));
TotalLen:=TotalLen+ len;
S1.Panels.Items[1].Text:='Total Received (Byte): ' + IntToStr(TotalLen);
S1.Update();
end;
问题是为什么有时候可以收到8192，大多数时候却只能收到3812字节？
将发送时间改大也不行，这是为什么啊？请大家帮帮忙！谢谢！！！

[小呆之家]

你用什么机制来发送完所有的数据包?
发送时,你有什么机制来保证你不少数据包?如果要暂停发送呢?
发送时,有什么机制来保证数据包出错时重发?
客户端怎么知道发送完成了?

[小呆之家]

还有,定时器在发送某次数据时,你确定在1秒内都能向客户端发送完吗?
会不会出现:上次发送还没有完成,就开始第二次发送的情况?

[pgrwater]

dinglinger(小呆之家)
谢谢，可能是出现了上次发送还没有完成,就开始第二次发送的情况。
请问有什么办法可以解决这种问题？
还有我做的是一个实时监测的程序，不能重发啊。
页有没有好的办法啊？

[小呆之家]

这个很容易解决的:
你要自己保护本次通讯!
就是说,本次通讯没有完成,就不开始下次通讯!
具体的方法:
很简单:加个标记吧.嘻~~,开始发送时,置标记位为真,发送完成了,置标位为假;
只有当标志位为假时,才开始数据发送.


呵~~,楼主自己看看吧,代码 我就不写了.今天是在网吧. ^_^

[wudi_1982]

不要用Timer去做这种事情，用线程来做。

[pgrwater]

dinglinger(小呆之家)
本次通讯没有完成,就不开始下次通讯!
可是这样的话就不是实时监测了啊……

[dina110]

我觉得用线程处理比较好。