用Indy 9 的TIdMappedPortTCP控件做代理服务器，丢数据

[alterCSDN]

我做了一个代理服务器程序，接收来自客户端的Post数据，并且转发，用Indy 9 的TIdMappedPortTCP控件，其中有如下函数，接收客户端数据：

function TFormMain.ReceiveData(Athread: TIdMappedPortThread): Boolean;
{获取来自客户机的请求数据，将数据直接保存到Athread.NetData}
begin
with Athread do
begin
NetData:='';
result:=False;
try
Connection.ReadFromStack(true,-1,true);
NetData:=Connection.InputBuffer.Extract(Connection.InputBuffer.Size);
result:=true;
except
end;
end;
end;

问题是，在Post数据比较大的时候，经常丢数据，比如Http头中的Content-Length: 57040
但实际得到的数据也许只有8000多，有时候是3000多，这是怎么回事呢？Indy的源代码我看了，具体如何读缓冲区的部分就不懂了，请高手们指教。

[gemouzhi]

在发数据的之前
你先向客户端返回HTTP/1.0 200 OK了吗？

[alterCSDN]

是接收Post来的数据啊，我做的是Server端，我猜可能是IP包分包传输惹的祸，可是怎么解决就不清楚了，请帮忙！

[gemouzhi]

with Athread do
begin
NetData:='';
result:=False;
try
Connection.ReadFromStack(true,-1,true);
NetData:=Connection.InputBuffer.Extract(Connection.InputBuffer.Size);
result:=true;
except
end;
end;
代码绝对没错，呵呵，我这里怎么很正常。

[alterCSDN]

您能给详细说说吗？是不是我这里的客户端环境的问题？你用的测试数据有多大？试试超过1、2K的了吗？

[alterCSDN]

如果我在TIdMappedPortThread的其他事件中，比如，OnConnected、OnExetra。。。中有大量的处理代码，会影响其从缓冲区获得数据的完整性呢？？？