缓冲区数据转换为字符串输出

近日帮朋友用DELPHI做一个AES加解密过程的程序，需要显示过程中的缓冲数据。一开始考虑的是将byte数组转换为字符串，搜遍网路也未发现适合方法。后来在查看TSTREAM类时有一个TSTRINGSTREAM，可以直接从缓冲中读取数据，然后转换为字符串。

代码如下：

var  
  TempIn, TempOut: TAESBuffer;  
  StrStream: TStringStream;  
  s:string;  
begin  
//创建StrStream对象  
    StrStream := TStringStream.Create(s);  
   try 
//将指针恢复到字符串头  
    StrStream.Seek(0, soFromBeginning);  
//从缓冲读取数据  
    StrStream.Write (TempOut, SizeOf(TempOut));  
  finally  
  StrStream.Free;  
  end;  
end;