如何使用Delphi中的流的使用 (第二卷)

TStream 是一个抽象的基类, 不能直接生成对象. 在具体的应用中, 主要使用它的子孙类:
TFileStream: 文件流
TStringStream: 字符串流
TMemoryStream: 内存流
TResourceStream: 资源文件流

THandleStream: 是 TFileStream 的父类、TStream 的子类
TCustomMemoryStream: 是 TMemoryStream 和 TResourceStream 的父类、TStream 的子类

与流相关的常用类还有: TReader、TWriter、TCompressionStream、TDecompressionStream

来一个文件流的例子:

procedure　TForm1.Button1Click(Sender:　TObject);　
var　
　getStream,setStream:　TFileStream;　{声明一个文件流}　　
　getPath,setPath:　string;　
begin　
　getPath　:=　'c:\temp\get.jpg';　{需要这个文件存在}　
　setPath　:=　'c:\temp\set.jpg';　{这个会自动建立}　
　if　not　FileExists(getPath)　then　
　begin　
　　ShowMessage('找不到我们要测试的图片文件:　'　+　getPath);　
　　Exit;　
　end;　
　
　getStream　:=　TFileStream.Create(getPath,　fmOpenRead　or　fmShareExclusive);　
　setStream　:=　TFileStream.Create(setPath,　fmCreate);　
　{建立文件流需要两个参数:　参数　1　是路径,　参数　2　是打开模式}　
　
　getStream.Position　:=　0;　{流指针移到开始,　复制时从这里开始}　
　setStream.CopyFrom(getStream,　getStream.Size);　{Copy　流}　
　{CopyFrom　的参数　2　是要复制的内容大小;　如果为　0　,　不管指针在什么位置都会复制所有内容}　
　{CopyFrom　返回实际拷贝的字节数}　
　
　{这时硬盘上就有　set.jpg　文件,　与　get.jpg　一么一样}　
　{其实就是复制文件,　不过这里我们是用文件流实现的}　
　
　getStream.Free;　
　setStream.Free;　
end;

　　TFileStream 打开模式与共享模式:

分类	参数	说明
打开模式	fmCreate	建立文件, 如果存在则打开它。
fmOpenRead	只读打开
fmOpenWrite	只写打开
fmOpenReadWrite	读写打开
共享模式	fmShareCompat	共享模式, 兼容 Dos
fmShareExclusive	不允许别人以任何方式打开
fmShareDenyWrite	允许别人以只写方式打开
fmShareDenyRead	允许别人以只读方式打开
fmShareDenyNone	允许别人以任何方式打开