TynSerial流的序列（還原）

TynSerial流的序列（還原）

procedure TForm1.ToolButton18Click(Sender: TObject);
var
  serial: TynSerial;
  ms, ms2: TMemoryStream;
begin
  serial := TynSerial.Create;
  ms:=TMemoryStream.Create;
  ms2:=TMemoryStream.Create;
  serial.WriteStream('stream', ms);  // 序列
  serial.ReadStream('stream', ms2); // 還原
  ms.Free;
  ms2.Free;
  serial.Free;
end;