TFileStream(文件流) 读写.docVIP

Delphi中的“流”类[2]-TFileStream 文件流 读写 TStream 是一个抽象的基类, 不能直接生成对象. 在具体的应用中, 主要使用它的子孙类:TFileStream: 文件流TStringStream: 字符串流TMemoryStream: 内存流TResourceStream: 资源文件流THandleStream: 是 TFileStream 的父类、TStream 的子类TCustomMemoryStream: 是 TMemoryStream 和 TResourceStream 的父类、TStream 的子类与流相关的常用类还有: TReader、TWriter、TCompressionStream、TDecompressionStream来一个文件流的例子: view sourceprint? unit Unit1; interface uses ??Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type ??TForm1 class TForm Button1: TButton; procedure Button1Click Sender: TObject ; private Private declarations public Public declarations end; var ??Form1: TForm1; implementation $R *.dfm procedure TForm1.Button1Click Sender: TObject ; var ??oldstream,newstream:TFileStream; oldpath,newpath:string; begin oldpath : f:\temp\0001.jpg; 需要这个文件存在 newpath : f:\temp\0002.jpg; 这个会自动建立 if not FileExists oldpath then ??begin ShowMessage 找不到我们要测试的图片文件: + oldpath ; Exit; end; oldstream : TFileStream.Create oldPath, fmOpenRead or fmShareExclusive ; newStream : TFileStream.Create newPath, fmCreate ; 建立文件流需要两个参数: 参数 1 是文件名 包括路径 , 参数 2 是打开方式 打开模式： fmCreate : 用指定的文件名建立文件，如果文件已经存在则打开它。 fmOpenRead : 以只读方式打开指定文件 fmOpenWrite : 以只写方式打开指定文件 fmOpenReadWrite: 以可读可写方式打开指定文件 共享模式： fmShareCompat : 共享模式与 FCBs 兼容 fmShareExclusive: 不允许别的程序以任何方式打开该文件 fmShareDenyWrite: 不允许别的程序以写方式打开该文件 fmShareDenyRead : 不允许别的程序以读方式打开该文件 fmShareDenyNone : 别的程序可以以任何方式打开该文件 oldStream.Position : 0; 流指针移到开始, 复制时从这里开始 newStream.CopyFrom oldStream, oldStream.Size ; Copy 流的复制 CopyFrom 的参数 2 是要复制的内容大小; 如果为 0 , 不管指针在什么位置都会复制所有内容 CopyFrom 返回实际拷贝的字节数 这时硬盘上就有 0002.jpg 文件, 与 0001.jpg 一模一样 其实就是复制文件, 不过这里我们是用文件流实现的 oldStream.Free; newStream.Free; end; end.