用DELPHI实现文件加密压缩(3) 3）、Seek:此方法实现流中读取指针的移动，返回值为移动后指针的位置。函数原形为：Function Seek(Offset:Longint;Origint:Word):Longint;virtual;abstract;参数Offset为偏移字节数,参数Origint指出Offset的实际意义，其可能的取值如下：soFromBeginning:Offset为指针距离数据开始的位置。此时Offset必须大于或者等于零。soFromCurrent:Offset为移动后指针与当前指针的相对位置。soFromEnd:Offset为移动后指针距离数据结束的位置。此时Offset必须小于或者等于零。4）、Setsize:此方法实现改变数据的大小。另外，TStream类中还定义了几个静态方法：1）、ReadBuffer:此方法的作用是从流中当前位置读取数据，跟上面的Read相同。注意：当读取的数据字节数与需要读取的字节数不相同时，将产生EReadError异常。2）、WriteBuffer:此方法的作用是在当前位置向流写入数据，跟上面的Write相同。注意：当写入的数据字节数与需要写入的字节数不相同时，将产生EWriteError异常。3）、CopyFrom:此方法的作用是从其它流中拷贝数据流。函数原形为：Function CopyFrom(Source:TStream;Count:Longint):Longint;参数Source为提供数据的流，Count为拷贝的数据字节数。当Count大于0时，CopyFrom从Source参数的当前位置拷贝Count个字节的数据；当Count等于0时，CopyFrom设置Source参数的Position属性为0,然后拷贝Source的所有数据；Tstream常见派生类：TFileStream (文件流的存取)TStringStream (处理内存中的字符串类型数据)TmemoryStream (对于工作的内存区域数据处理)TBlobStream (BLOB类型字段的数据处理)TwinSocketStream (socket的读写处理)ToleStream (COM接口的数据处理)TresourceStream (资源文件流的处理)其中最常用的是TFileStream类。使用TFileStream类来存取文件，首先要建立一个实例。声明如下：constrUCtor Create(const Filename:string;Mode:Word);Filename为文件名（包括路径）Mode为打开文件的方式，它包括文件的打开模式和共享模式，其可能的取值和意义如下：打开模式：fmCreate :用指定的文件名建立文件，如果文件已经存在则打开它。fmOpenRead :以只读方式打开指定文件fmOpenWrite :以只写方式打开指定文件fmOpenReadWrite:以写写方式打开指定文件共享模式：fmShareCompat :共享模式与FCBs兼容fmShareExclusive:不允许别的程序以任何方式打开该文件fmShareDenyWrite:不允许别的程序以写方式打开该文件fmShareDenyRead :不允许别的程序以读方式打开该文件
