数据流的压缩、编码及传递Demo

{************************************************************************** TStream.Create之后，其position的值自动设置为0，其他操作必须人工干预position， 否则position的取值为上一次操作之后的位置。 关键点：数据流存入内容之前必须确定编码格式，至于想用何种编码并不重要，但必须 明确的设置，否则在进行压缩、编码之后，还原原文时会有问题，按道理用默认编码是 一样的，可是若没有明确设置流的存储编码就是有问题，这个问题困扰了我整整两个星 期，啥办法都尝试过直到写出这个才算解决了。 但至于用默认编码为何不行，现在还未弄明白，希望有网友能解惑。 ***************************************************************************}