当前位置：文江博客话题详情

Delphi 中网络驱动器上的可用磁盘空间

发布于 2024-12-21 19:38:00 字数 358 浏览 2 评论 0原文

我正在为 A2 计算编写一个程序，它会导出大量数据。我在本地网络上的 HDD 分配约为 50 MB，因此非常适合测试“无磁盘空间”错误。

目前，当程序空间不足时，它会在导出过程中崩溃，并出现 I/O 错误 112。如果文件可能超出可用空间，我想提前发出警告。我知道文件有多大（平均每条记录 24.8 字节），所以我需要做的就是找出有多少可用空间。

当我使用像 \\qmcsan1\Cxxxxx$\filename.csv 这样的文件路径的网络驱动器时，如何使用 DiskFree 这样的函数来计算可用空间？任何此类函数还需要处理本地驱动器，例如 C:/。

任何想法都非常感激。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

拥抱我好吗 2024-12-28 19:38:00

一种简单的方法是调用 GetDiskFreeSpaceEx API函数。

不幸的是，这个函数在 Delphi Windows 单元中被错误声明，至少在 XE2 中是这样。但 SysUtils 中声明的版本是正确的。确保您使用该版本！

program FreeDiskSpace;
{$APPTYPE CONSOLE}
uses
  SysUtils;

const
  Folder = 'C:\';

var
  FreeAvailable, TotalSpace: Int64;

begin
  if SysUtils.GetDiskFreeSpaceEx(PChar(Folder), FreeAvailable, TotalSpace, nil) then begin
    Writeln(TotalSpace div (1024*1024*1024), 'GB total');
    Writeln(FreeAvailable div (1024*1024*1024), 'GB free');
  end;
end.

One easy approach is to call the GetDiskFreeSpaceEx API function.

Unfortunately this function is mis-declared in the Delphi Windows unit, at least it is in XE2. But there is a version declared in SysUtils which is correct. Make sure you use that version!

program FreeDiskSpace;
{$APPTYPE CONSOLE}
uses
  SysUtils;

const
  Folder = 'C:\';

var
  FreeAvailable, TotalSpace: Int64;

begin
  if SysUtils.GetDiskFreeSpaceEx(PChar(Folder), FreeAvailable, TotalSpace, nil) then begin
    Writeln(TotalSpace div (1024*1024*1024), 'GB total');
    Writeln(FreeAvailable div (1024*1024*1024), 'GB free');
  end;
end.

回复收藏 0 原文

~没有更多了~