关于socket传送数据的问题

[delphime]

var
buf:array of byte;
len:integer;
begin
len := socket.ReceiveLength;
setlength(buf,len);
Socket.ReceiveBuf(buf[0],len);
end;

现在我要从buf[3]和buf[4]取得一个双字节的整型数据要怎么写?

[delphime]

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

[failer]

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

[江山易改]

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;