关于字节流的问题

Question

在UDP server端 定义了一个TStringStream接收UDPClient端发过来的数据
想用TStringStream的READ函数把TStringStream中的第二个字节里的内容赋给一个byte型变量
请问如何实现呢
var
  DataStringStream: TstringStream;
  strlength :byte
begin
DataStringStream := TStream.Create('');
  try
    DataStringStream.CopyFrom(AData, AData.Size);
    Memo1.Lines.Add(DataStringStream.DataString);
    strlength  := ?????? //第二个字节里的内容
  finally
  DataStringStream.Free;
  end;
end;

Answer 1

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  strlength: byte;
begin
  AData.Position:=1; //定位到第2字节，下标从0开始
  AData.ReadBuffer(strlength, 1); //读一个字节出来
end;