写缓冲区数据到文件的问题（帮忙吧，小弟改不过来啦）源码

Question

fileread,filewrite能否一次读出或写入我要的数据？

Answer 1

有这方面的材料么，例程？小弟刚用delphi,特急，帮帮忙吧

Answer 2

我用filewrite是这样写文件头的
libfile:=fileOpen('soundlib.lib',fmOpenWrite);
if libfile<0 then // 打开错误判断
     libfile:=fileCreate('soundlib.lib');
    GetMem(buff,10000);
fileWrite(libfile,buff,sizeof(buff));
不算后面添加的部分，我连文件头都写不进去，写后的文件大小才4字节！

Answer 3

我刚学delphi,对这几个文件操作函输不了解，delphi中类似vc下file类下的.write,.read的函数是什么，我另一个帖子下有我编好的vc代码，可我在delphi中就是实现不了

Answer 4

啊！！！！！！！我G起来了，
filewrite(libfile,buff,sizeof(buff));
                  ~~~~~~ <----这个地方是一个指针！你用buff，刚好是4个字节，所以错了。
改正：
filewrite(libfile,buff^,LengthOfBuff);//不要用sizeof(buff)，否则总是4个字节
或者
filewrite(libfile,buff[0],LengthOfBuff);............

Answer 5

我再试试，有消息再告诉大家，对了tfilestream类怎样用，给个例程吧

Answer 6

开辟文件头成功了，我正在向下调试，
pfile:=fileseek(libfile,0,2);
fileseek(libfile,5*i,0);
 filewrite(libfile,pfile,sizeof(pfile));
怎样将pfile指向的地址写入啊，象我这样写文件长度一下就变成了80M

Answer 7

 wavfile:integer; 
 Buffer:Pchar;   
 wavfile:=fileopen(Filename,fmOpenRead);
  fsize:=fileseek(wavfile,0,2);//fileseek(wavfile,0,2);
  fsize:=fsize-2129;//0x0851;
  fileSeek(wavfile,90,0);
  Buffer:=Pchar(AllocMem(fsize + 1));
  bytesread:=fileRead(wavfile,buffer,fsize);
  fileClose(wavfile);//关闭文件
这是读文件到buffer的，

Answer 8

pfile:dword，不是pchar,不能这样用啊:pfile^
我想将内容直接写入文件某一位置，该如何操作？
filewrite(filename,buff,size)可以么？会不会改变之后的内容？
还有fwrite是替换所写位置内容么？还是添加，而他之后的内容依次下移？