Delphi Tstream & TIdUDPServer

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);

中的data是TStream 形式存在，

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  i ,len:integer;
  xb:byte;
begin
    BitBtn4.Caption  := 'get data'   ;
    len := adata.Size; 
    adata.ReadBuffer(xb,1);//注意这里不能取地址，@xb
    if xb= '1' then
      begin
      ShowMessage('x');
     end;
end;

 

一、Delphi中流的基本概念及函数声明 
在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性和方法。 
TStream类中定义的属性介绍如下： 
1、Size:此属性以字节返回流中数据大小。 
2、Position:此属性控制流中存取指针的位置。 
Tstream中定义的虚方法有四个： 
1、Read:此方法实现将数据从流中读出。函数原形为： 
Function Read(var Buffer;Count:Longint):Longint;virtual;abstract; 
参数Buffer为数据读出时放置的缓冲区，Count为需要读出的数据的字节数，该方法返回值为实际