Buffer data is converted to string output

Recently, I helped my friends use Delphi to perform an AES encryption and decryption process.ProgramTo display the buffered data during the process. The first consideration is to convert the byte array to a string, and no suitable method is found for searching the network. Later, when viewing the tstream class, there is a tstringstream that can directly read data from the buffer and then convert it to a string.

CodeAs follows:

VaR
Tempin, tempout: taesbuffer;
Strstream: tstringstream;
S: string;
Begin
// Create a strstream object
Strstream: = tstringstream. Create (s );
Try
// Restore the pointer to the string Header
Strstream. Seek (0, sofrombeginning );
// Read data from the buffer
Strstream. Write (tempout, sizeof (tempout ));
Finally
Strstream. Free;
End;
End;