डेल्फी

Question

में नेटवर्क ड्राइव पर नि: शुल्क डिस्क स्थान मैं ए 2 कंप्यूटिंग के लिए एक प्रोग्राम बना रहा हूं जो बहुत सारे डेटा निर्यात करता है। स्थानीय नेटवर्क पर मेरा एचडीडी आवंटन लगभग 50 एमबी है, इसलिए "कोई डिस्क स्पेस" त्रुटि का परीक्षण करने के लिए यह एक अच्छा उम्मीदवार है।

वर्तमान में जब प्रोग्राम अंतरिक्ष से बाहर हो जाता है तो यह I/O त्रुटि 112 के साथ मध्य-निर्यात को क्रैश करता है। यदि फ़ाइल उपलब्ध स्थान से अधिक हो तो मैं समय से पहले चेतावनी देना चाहता हूं। मुझे पता है कि फ़ाइल कितनी बड़ी होगी (औसत पर 24.8 बाइट प्रति रिकॉर्ड), इसलिए मुझे बस इतना करना है कि कितनी जगह खाली है।

जैसा कि मैं \\qmcsan1\Cxxxxx$\filename.csv जैसे फ़ाइल पथ के साथ नेटवर्क ड्राइव पर काम कर रहा हूं, मैं उपलब्ध स्थान की गणना करने के लिए DiskFree जैसे फ़ंक्शंस का उपयोग कैसे करूं? इस तरह के किसी भी समारोह को C:/ जैसे स्थानीय ड्राइव को संभालने की भी आवश्यकता है।

किसी भी विचार की बहुत सराहना की।

Answer 1

एक आसान तरीका GetDiskFreeSpaceEx एपीआई फ़ंक्शन को कॉल करना है।

दुर्भाग्यवश यह फ़ंक्शन डेल्फी विंडोज इकाई में गलत घोषित किया गया है, कम से कम यह 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. 

इस में