stream1 := TStringStream.create(str);
str := TStringStream(stream1).DataString;
Stream 是抽像类,需要转换成TMemoryStream才能进行操作