Свободное место на диске на сетевом диске в Delphi

Question

Я делаю программу для A2 Computing, которая экспортирует большое количество данных. Мое распределение жесткого диска в локальной сети составляет около 50 МБ, поэтому это хороший кандидат для проверки ошибки «без дискового пространства».

В настоящее время, когда в программе заканчивается пробел, он выдает средний экспорт с ошибкой ввода-вывода 112. Я бы хотел заранее предупредить, если файл может превысить доступное пространство. Я знаю, насколько большой файл будет (в среднем, 24,8 байт на запись), поэтому мне нужно всего лишь выяснить, сколько свободного места.

Как я работаю на сетевом диске, с файловым путем, например \\qmcsan1\Cxxxxx$\filename.csv, как использовать функции, такие как DiskFree для вычисления свободного пространства? Любая такая функция также должна обрабатывать локальные диски, такие как C:/.

Любые идеи очень ценятся.

Answer 1

Один простой подход - вызвать функцию API GetDiskFreeSpaceEx.

К сожалению, эта функция неправильно объявлена ​​в блоке Windows Delphi, по крайней мере, она находится в 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.