如何在文件尾部填加信息,而不用重写整个文件(不是文本文件)!

Mars 2000-03-17 10:16:00
...全文
267 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
yhec 2001-03-14
  • 打赏
  • 举报
回复
ok
Sachow 2001-03-14
  • 打赏
  • 举报
回复
办法是有多种的,但我更倾向于用一个文件流来处理,就像hubdog()那样(但那段代码是不能直接编译通过的,你要根据你的需求自己改一下),不管用哪一种方法,其关键都是写入的位置和尺寸,你需要自己写一些文件信息在添加的文件里,这样才能根据这些信息正确地读出你自己添加的文件部分。
playsong 2001-03-14
  • 打赏
  • 举报
回复
again是对的!加分!!!
dengdun 2000-04-07
  • 打赏
  • 举报
回复
Delphi我不懂,但是在VC中如果要在文件尾部填加信息,则打开文件可以指定打开方式为不将文件长度置为0,然后再将文件指针移到文件尾.而在VB中则可以直接指定打开方式为追加(Append)方式.
jll 2000-04-07
  • 打赏
  • 举报
回复
来完了……
Again 2000-04-07
  • 打赏
  • 举报
回复
二进制文件:

var
f:file;
begin
assignfile(f,'...');
reset(f);
seek(f,filesize);
blockwrite(f,buf,...);
closefile(f);
end;
csdn2000 2000-03-18
  • 打赏
  • 举报
回复
文件尾部填加信息通用方法(Delphi/C/C++/Foxpro/Asm/VB/Basic ...):
以二进制方式打开文件,移动文件指针(句柄)到文件尾,写入信息,...关闭文件。
Rich_Zhou 2000-03-17
  • 打赏
  • 举报
回复
关注
jiangtao 2000-03-17
  • 打赏
  • 举报
回复
用这组函数:

FileHandle := FileOpen(sNewName, fmOpenWrite or fmShareDenyNone);
if FileHandle > 0 then
begin
FileSeek(FileHandle,0,2);
FileWrite(FileHandle,buffer,bufLen);
end
hubdog 2000-03-17
  • 打赏
  • 举报
回复

var
afile:tfilestream;
begin
afile:=Tfilestream.create(...);
afile.position:=afile.size-1;
afile.write(yourbuffer,datasize);
end;


蝈蝈俊 2000-03-17
  • 打赏
  • 举报
回复
您的意思是??????????
不会是像CIH 那样在EXE文件的夹缝中保存自己吧??

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧