Espacio libre en disco en una unidad de red en Delphi

Question

Estoy haciendo un programa para A2 Computing que exporta una gran cantidad de datos. Mi asignación de HDD en la red local es de aproximadamente 50 MB, por lo que es un buen candidato para probar el error "sin espacio en el disco".

Actualmente, cuando el programa se queda sin espacio, se bloquea la exportación media con I/O Error 112. Me gustaría advertir con anticipación si el archivo puede exceder el espacio disponible. Sé lo grande que será el archivo (24.8 bytes por registro, en promedio), así que todo lo que necesito hacer es averiguar cuánto espacio hay libre.

Como estoy trabajando en una unidad de red, con una ruta de archivo como \\qmcsan1\Cxxxxx$\filename.csv, ¿cómo utilizo funciones como DiskFree para calcular el espacio disponible? Cualquier función de este tipo también necesita manejar unidades locales como C:/.

Cualquier idea muy apreciada.

Answer 1

Un método sencillo es llamar a la función de API GetDiskFreeSpaceEx.

Desafortunadamente, esta función está mal declarada en la unidad Delphi Windows, al menos está en XE2. Pero hay una versión declarada en SysUtils que es correcta. ¡Asegúrate de usar esa versión!

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. 

respuesta