关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
来源:互联网 发布:最新阿里云国际版注册 编辑:程序博客网 时间:2024/05/16 05:01
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 打开模式与共享模式:
开
模
式
享
模
式
- 关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
- 关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
- 关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
- 关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
- 关于 Delphi 中流的使用(6) 用流读写结构化文件
- 关于 Delphi 中流的使用(6) 用流读写结构化文件
- TFileStream文件流读写
- 关于 Delphi 中流的使用(3) 通过内存流读取文件
- 关于 Delphi 中流的使用(3) 通过内存流读取文件
- 关于 Delphi 中流的使用(3) 通过内存流读取文件
- Delphi 中流的使用
- delphi的TFileStream 内存流
- delphi的TFileStream 内存流
- 关于 Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
- 关于 Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
- 关于 Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
- 关于 Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
- 关于 Delphi 中流的使用:分割与合并文件的函数
- stack overflow 解决方法
- linux驱动开发流程(转帖)
- 大三下学期的读书计划
- svn账户密码重置
- 雪舞
- 关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
- Flex 实现图文混排的控件(类似与QQ的对话窗口)
- 熟练使用调试器 gdb
- 贸易顺差
- TCP三次握手
- 数据库??
- 把脚本移出JSP
- linux系统性能分析工具
- 详解Linux2.6内核中基于platform机制的驱动模型