【在线等待】关于Socket的ReceiveBuf和ReceiveText如何判别不同自动使用

[shine_yzl]

通过TServerSocket解决两种终端访问
一种是通过TClientSocket 终端访问，发送HEX码，通过ReceiveBuf接收；
一种是通过http://127.0.0.1:7001/?EmpID=233&ID=3&machine_id=910000 浏览器访问，通过ReceiveText接收；

现在问题是，如果两种方式单独测试没有问题，如果支持两种访问以下语句就有问题了。

socket.ReceiveBuf(RBuf,1024);
RStr:=socket.ReceiveText;

因为第一句执行后面就不执行了，应该是缓存清空了，请问怎么办？