Question

关于delphi7 IdTCPClient接收数据的问题

首先我先往TCP端口发送数据，然后接收它返回的数据。我要对这个返回的数据进行破解。这个返回的数据该如何接。
部分代码如下：
var
TCPClient: TIdTCPClient;
sSign，sSend： string；
BEGIN
TCPClient.Connect;
begin

TCPClient.Write(sSend); //发送数据，这个没问题
sSign:= TCPClient.ReadString(iSize_XML); // 请问如何接收所有的数据
//如果iSize_XML设为1000的话，并不能接收到全部的数据。但是如果为1500的话，会报
// connect closed gracefully 这个错误。
end;
END;

我的数据格式如图，前七位是数字位，2是标识位没啥用，1484表示后面数据的长度，请问这个代码该如何写，才能返回全部正确的字符串。

Answer 1

你的服务端返回数据时先发送数据包的长度，然后再发送数据包。这样你在接收时先调用ReadInteger得到将要接收的数据包的长度，然后再调用ReadString接收数据。我不确定ReadString的用法，如果不行的话，改为ReadStream方法，但服务端也要改为发送Stream。

追问

你看我图片中，我可以截取到返回数据的长度，但是用ReadString（‘数据包长度’）这个函数，如果数据包长度太大的话，会报connect closed gracefully 这个错误。
有什么办法可以解决吗？

或者用readln这种呢？这个函数没用过啊

追答

你在服务端发送包的时候不要把包定义为：
标识符+数据长度+数据，你发三次，第一次发标记符，第二次发数据长度，注意发送整形，第三次再发数据本身内容。

你在客户端接收到数据时，先接收标记符，你发现是20，那么再接收数据长度，用ReadInteger，这样你就知道了数据长度，然后再接收数据本身。

追问

接受数据这样写可以吗？

iSize_XML:= TCPClient.InputBuffer.Size; //是用这个？

iSize_XML:= TCPClient.ReadInteger; // 还是用这个呢？
TCPClient.ReadBuffer(buffer,iSize_XML); //接收到的buffer如何转换成string类型的？

追答

我上面回答过了