| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/8/3 10:48:55 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 看了流的示例代码还是不明白？？ Function Cjt_AddtoFile(SourceFile,TargetFile:string):Boolean; var Target,Source:TFileStream; MyFileSize:integer; begin Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusive); Target:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareExclusive); Target.Seek(0,soFromEnd);//往尾部添加资源 Target.CopyFrom(Source,0); MyFileSize:=Source.Size+Sizeof(MyFileSize);//计算资源大小，并写入辅程尾部 Target.WriteBuffer(MyFileSize,sizeof(MyFileSize)); Target.Free; Source.Free; Result:=True; end; 为什么往尾部添加资源 写进去的一定是Sizeof(MyFileSize)；呢？ ----------------------------------------------   |
|||||
| 作者： |
|
2003/8/3 11:14:54 | ||||
| 1楼： | 写入的大小是资源文件的实际空间大小和一个用来记录这个大小数字的整数的所占的空间大小。 ---------------------------------------------- 维护世界和平，共创美好盒子。 |
|||||
| 作者： |
|
2003/8/3 11:31:31 | ||||
| 2楼： | 不写这个会怎么样呢？ ----------------------------------------------
|
|||||
| 作者： |
|
2003/8/3 11:54:09 | ||||
| 3楼： | 不写不怎么样，你得不到原来写入资源文件的大小而已，也就是不能还原而已。 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/8/3 15:52:15 | ||||
| 4楼： | 我对这个理解起来确实有点晕 ----------------------------------------------
|
|||||
| 信息 |
| 登陆以后才能回复 |
