关于socket传送数据的问题

Question

var
   buf:array of byte;
   len:integer;
begin
  len := socket.ReceiveLength;
  setlength(buf,len);
  Socket.ReceiveBuf(buf[0],len);
end;现在我要从buf[3]和buf[4]取得一个双字节的整型数据要怎么写?

Answer 1

var
   buf:array of byte;
   len:integer;
   a : word ;
begin
  len := socket.ReceiveLength;
  setlength(buf,len);
  Socket.ReceiveBuf(buf,len);
  a := buf[3]+buf[4];
end;

Answer 2

但是buf[3]可能是word 的高位啊,这样加可以吗?

Answer 3

a := (buf[3] shl 8)+buf[4];