在Delphi 2010或更高版本中获取文件大小？

发布时间：2020-12-15 10:18:04 所属栏目：大数据来源：网络整理

导读：Delphi 2010在IOUtils.pas中有一组不错的新文件访问功能(我特别喜欢UTC版本的日期相关函数)。我到目前为止想念的就是这样 TFile.GetSize (const Path : String) 什么是Delphi 2010-获取文件大小的方式？我必须回去使用FindFirst才能访问TSearchRec.FindData

Delphi 2010在IOUtils.pas中有一组不错的新文件访问功能(我特别喜欢UTC版本的日期相关函数)。我到目前为止想念的就是这样

TFile.GetSize (const Path : String)

什么是Delphi 2010-获取文件大小的方式？我必须回去使用FindFirst才能访问TSearchRec.FindData吗？

谢谢。

解决方法

我不知道是否有“Delphi 2010”的方式，但是有一个 Windows way that doesn’t involve FindFirst and all that jazz。

我把这个例程的Delphi转换扔在一起(在这个过程中修改它来处理> 4GB大小的文件，如果你需要的话)。

function FileSize(const aFilename: String): Int64;
  var
    info: TWin32FileAttributeData;
  begin
    result := -1;

    if NOT GetFileAttributesEx(PWideChar(aFileName),GetFileExInfoStandard,@info) then
      EXIT;

    result := Int64(info.nFileSizeLow) or Int64(info.nFileSizeHigh shl 32);
  end;

您实际上可以使用GetFileSize()，但这需要一个文件HANDLE，而不仅仅是一个文件名，并且类似于GetCompressedFileSize()建议，这需要两个变量来调用。 GetFileSize()和GetCompressedFileSize()都会重载它们的返回值，所以测试成功并确保有效的结果只是一点点尴尬。

GetFileSizeEx()避免了处理的细节> 4GB的文件大小和检测有效的结果，但也需要一个文件HANDLE而不是一个名称，(至少在Delphi 2009中我至少没有检查过2010)没有在VCL中声明为任何地方，你会有提供您自己的进口申报单。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!