怎样读写二进制文件？？

Question

怎样读写硬盘上的二进制文件？？请举个例子给个详细过程，谢谢：
      var
        fp:TFileStream;
      begin
        fp:=TFileStream.Create('d:\新二级\FMIO',fmOpenReadWrite); //不知道二进制文件在硬盘上如何表示？FMIO是我在硬盘上的一个文本文件，这样应该不正确
        fp.read(var Buffer; Count: Longint); //不知道Buffer到底与什么联系？
        fp.write(const Buffer; Count: Longint); //不知道Buffer到底与什么联系？
        、、、、、
        fp.Close;
      end;

Answer 1

网上这样的例子很多.比如:
1、写：
  iHandleFileSave Integer;
  struct OutOrLoadFileHead SaveHead;
  iHandleFileSave =: FileCreate('d:\新二级\FMI O');
  ......
  FileWrite(iHandleFileSave,&SaveHead,sizeof(struct OutOrLoadFileHead));
  FileClose(iHandleFileSave);2、读
  struct OutOrLoadFileHead LoadHead;
  int iHandleFileLoad;
  iHandleFileLoad = FileOpen('d:\新二级\FMIO', fmOpenRead);
  FileRead(iHandleFileLoad,(char *)&LoadHead,sizeof(struct OutOrLoadFileHead));
  FileSeek(iHandleFileLoad,0,0);
  ……
  FileClose(iHandleFileLoad);  

Answer 2

var
        fp:TFileStream;
        filesize: integer;
        fs2: Tfilestream;
        str: string;
        str2: string;
      begin
        fp:=TFileStream.Create('d:\新二级\FMIO.txt',fmOpenReadWrite);
        //打开要读写的文件 
        fs2:= tfilestream.create('d:\新二级\FMIO2.txt',fmCreate); //创建一个新文件
        filesize:= fp.size; //文件的大小
        fs2.copyfrom(fp,filesize);//将FMIO.txt文件写入新文件FMIO2.txt中
        setlength(str,9);
        str:= 'FMIO2.txt';
        fp.Position:= fp.size; //移动到文件尾
        fp.write(str[1],sizeof(str));//将字符串写入到文件末尾        fs2.free;
        fp.free;
      end;

Answer 3

读：
var 
  fp: TFileStream;
  str: pchar;
begin
  fp:= tfilestream.create('d:\新二级\FMIO.txt',fmOpenReadWrite);
  fp.Position:= fp.size-9; //移动到字符串位置
  fp.read(str,9);//读出字符串内容到str中
  fp.free;
end;

Answer 4

delphi学习群，供大家一起学习进步,邀有识之士：17468781

Answer 5

to:happyggy(恋爱中De牛)
你的读方法怎么读不出来？？