socket 二进制 接收数据

Question

php客户端：$str=1011010111101101101101
socket_write($this->socket,$str,strlen($str));
delphi 服务器端接收：
 
AThread.Connection.ReadBuffer (client, SizeOf(client));
我测试读数据
MessageBox(Handle,PChar('显示数据 '+String(client)+' 。'),'提示',MB_ICONINFORMATION);这样在delphi 服务端接收，一个自己一个字节的接收，点击确定出来一个字节，想把所有二进制一下现实出来。
我想把str的二进制完整接收下来赋值给一变量，再解析出来，解析已经做过。