Indy 10 接收数据丢失问题

[kv2002]

对方发给我3组数据包，有时能全收到有时只收到 1～2组包，请教高手给指点下！
接收代码如下：
procedure TForm.IdCollectServerExecute(AContext: TIdContext);
var
Msg :TIdBytes;
Mtu :TMtuBase;
i : integer;
s :String;
begin
AContext.Connection.IOHandler.ReadBytes(Msg,-1);
for I := Low(Msg) to High(Msg) do
s :=s+' '+Format('%-.2x',[Msg[i]]);
WriteLog('收：'+s);
end;

[kv2002]

不是丢包了，原来2个包都粘在一块了。
请教下如何解决粘包问题！

[spiderman1587]

关注中

[getit911]

如果你的包是定长的，可以用ReadBytes来接收。

[spiderman1587]

如果不是定长的，又想把它全部收完呢？

[getit911]

RecvCount:=self.FThread_STN.Connection.IOHandler.InputBuffer.Size;
if RecvCount>0 then
begin
with self.FThread_STN.Connection.IOHandler.InputBuffer do
begin
RecvCount:=size;
//读TCP/IP数据到缓冲
ExtractToBytes(RecvBuffer_NTS,Size,false);
end;
end;

[kv2002]

to getit911 :
我按照你的做法发现包会缺失呀！

[kv2002]

RecvCount:=self.FThread_STN.Connection.IOHandler.InputBuffer.Size;
if RecvCount>0 then
begin
with self.FThread_STN.Connection.IOHandler.InputBuffer do
begin
RecvCount:=size;
//读TCP/IP数据到缓冲
ExtractToBytes(RecvBuffer_NTS,Size,false);
end;
end;


发现CPU占用率超高，100％的占用，哪位大侠给指点下

[kv2002]

indy 10 怎么和indy9 差异这么大！

[kv2002]

揭帖算了，自己搞定！