FileSizeByName

最新推荐文章于 2019-08-13 09:53:00 发布

原创最新推荐文章于 2019-08-13 09:53:00 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #file

本文介绍了五种获取文件大小的方法，包括FileSizeByName、GetFileSize、FileSize、FileSeek及TFileStream.Size，并提供了每种方法的示例代码。这些方法适用于不同场景，如获取未被使用的文件大小等。

取文件大小
      FileSizeByName（需要引用IdGlobal单元）
      GetFileSize
      FileSize（不能获得正在使用的文件大小）
      FileSeek
      TFileStream.Size

下面是使用例子
1。FileSizeByName（需要引用IdGlobal单元）
begin
      if   OpenDialog1.Execute   then
      begin
          ShowMessage(IntToStr(FileSizeByName(OpenDialog1.Filename)));
      end;

2。GetFileSize
var
      FileHandle:integer;
begin
      if   OpenDialog1.Execute   then
      begin
          FileHandle   :=   FileOpen(OpenDialog1.FileName,   0);
          ShowMessage(IntToStr(GetFileSize(FileHandle,   nil)));
          FileClose(FileHandle);
      end;

3。FileSize（不能获得正在使用的文件大小）
var   f:   file;
begin
      if   OpenDialog1.Execute   then
      begin
          AssignFile(f,   OpenDialog1.FileName);
          Reset(f,   1);
          ShowMessage(IntToStr(FileSize(f)));
          CloseFile(f);
      end;

4。FileSeek
var
      FileHandle:integer;
begin
      if   OpenDialog1.Execute   then
      begin
          FileHandle   :=   FileOpen(OpenDialog1.FileName,   0);
          ShowMessage(IntToStr(FileSeek(FileHandle,0,2)));
          FileClose(FileHandle);
      end;

5。TFileStream.Size
var
      FS:   TFileStream;
begin
      if   OpenDialog1.Execute   then
      begin
          FS   :=   TFileStream.Create(OpenDialog1.FileName,   fmShareDenyNone);
          ShowMessage(IntToStr(FS.Size));
          FS.Free;
      end;