得到二进制文件大小 hf := OpenFile('b.dat', os, OF_READ);

Question

得到二进制文件大小 hf := OpenFile('b.dat', os, OF_READ);我用 hf := OpenFile('b.dat', os, OF_READ);打开文件
现在想得到b.dat的字节大小，我用
GetFileSize(hf, @flen);// var flen: DWORD;
可是showmessage(inttostr(flen))显示却是0，不理解
我是想得到字节数，好循环n次把数据读入结构的，请前辈指点，多谢多谢！

Answer 1

用 GetLastError 看看 看看你的hf 是不是为0之类的。。

Answer 2

OpenFile最好给它传全路径文件名

Answer 3

试下这个如何function GetFileSize(FileName: string): Longint;
var FF: file;
begin //获取文件大小
  result := 0; 
  if FileExists(FileName) then
  begin
    try
      AssignFile(FF, FileName);
      Reset(FF, 1);//好像这行可以不要
      result := FileSize(FF);
      CloseFile(FF);
    except
      Exit;
    end;
  end;
end;