delphi中如何用TFileStream追加存储文件

2012-04-17 01:52:13 551 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi中流类的学习(一) 最近不怎么忙，看了一下万一老师的delphi博客学习了一下delphi中的流类。写一下我对delphi流的总结已助以后参考。流就是一段数据或一块内存，在面向对象的编程语言像Java和C#等里面都有这个类，操作流时我们不用关心里面的数据是啥，只需知道流的当前位置和流的大小即可。下面重点说一下Delphi中的流类。1.Delphi中流类的层次图 TStream类为所有流类的父类，阅读详情

我希望保存一个文件，但由于特殊要求，我需要分两次操作，才能保存这个文件。
我现在写的代码如下：
先定义全局 var readfs,writefs:TFilestream;
第一次操作：



procedure TForm1.Button1Click(Sender: TObject);

var Data: array [0..5000-1] of byte;

begin 

readfs:=TFilestream.Create('D:\待删除\t1.jpg',fmOpenRead); 

writefs:=TFilestream.Create('D:\待删除\t2.jpg',fmCreate); 

readfs.Read(Data,5000); writefs.Write(Data,5000); 

FreeAndNil(readfs); FreeAndNil(writefs);

end;

第二次操作：



procedure TForm1.Button2Click(Sender: TObject);

var Data: array [0..30000-1] of byte;

begin 

readfs:=TFilestream.Create('D:\待删除\t1.jpg',fmOpenRead); 

writefs:=TFilestream.Create('D:\待删除\t2.jpg',fmCreate); 

readfs.Seek(5000,soBeginning) ; 

writefs.Seek(5000,soBeginning) ; 

readfs.Read(Data,readfs.Size -5000); 

writefs.Write(Data,readfs.Size -5000); 

FreeAndNil(readfs); FreeAndNil(writefs);

end;

我发现两次操作之后，所保存的结果t2.jpg无法正常显示。
请教各位老大。我第二次操作中这种追加存储的方式有什么问题？

...全文

从零到一：基于GeneMark-ES/ET的新基因组注释实战指南本文提供了一份基于GeneMark-ES/ET的新基因组注释实战指南。详细介绍了从环境搭建、数据准备到核心运行的全流程，重点解析了ES（从头预测）与ET（结合RNA-Seq证据）两种模式的选择与操作，并分享了Perl模块依赖、并行处理等常见问题的解决方案，帮助生物信息学研究者高效完成基因预测工作。阅读详情

紫威剩人阚雷

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

delphi中如何用TFileStream追加存储文件

相关推荐