對Delphi 6的巨大文件支持？ （替換系統模塊？）

Question

我遇到了與巨大的固定長度記錄數據文件交互的問題。該文件大小超過14 GB。考慮到文件中的字節數和每條記錄的長度，當我看到System.Filesize()函數的返回值遠遠小於大文件中的實際記錄數時，我首先注意到了一個問題。 （System.Filesize返回在Reset()調用期間指定的記錄大小的非類型化文件中的記錄數，它不會返回文件中的字節數）。我把它歸類爲返回類型System.Filesize()是Longint而不是Int64。

我通過調用GetFileSizeEx()並計算自己的記錄數來解決最初的問題。不幸的是，BlockRead()在嘗試訪問文件中偏移量很深的文件中的記錄時也失敗。我猜測再次有代碼中某處溢出的值被使用。

是否有替代模塊用於Delphi 6那裏可以處理大文件並且是系統單元文件I/O調用的替代品？如果可以的話，我儘量避免自己滾動。

Answer 1

您可以使用Primoz Gabrijelcic的GpHugeFile。我自己使用這個庫來從Delphi 7訪問更大的文件（> 2GB）。無論如何，對於你的情況，你必須考慮嘗試改變你的應用程序邏輯，並遷移到一個更有效的數據庫方案，這是一個基於記錄文件的方案。

Answer 2

你不能在這種龐大的文件中使用Pascal I/O，而不是在任何版本的Delphi中使用。你最好的選擇是使用TFileStream，它沒有這樣的限制。

Answer 3

嘗試TGpHugeFile。

Answer 4

事實證明，系統單元使用的內部查找程序也由於使用低容量數字類型而出現問題。我編寫了我自己的調用Windows SetFilePointerEx（）函數，一切都很好。我已經提供了下面的源代碼以防它可能幫助其他人。我已經包含了我創建的代碼以正確獲取記錄數，因爲您將同時需要這兩個記錄。其他一切工作都一樣。

// Some constants 
const 
    kernel = 'kernel32.dll'; 


function SetFilePointerEx(hFile: Integer; distanceToMove: Int64; var newFilePointer: Int64; moveMethod: DWORD): boolean; stdcall; external kernel name 'SetFilePointerEx'; 


// easyGetFileSize() is a replacement filesize function. Use it to get the number of bytes in the huge file. To get the number of records just "div" it by the record size. 

function GetFileSizeEx(hFile: THandle; var FileSize: Int64): BOOL; stdcall; external 'kernel32.dll' name 'GetFileSizeEx'; 


function easyGetFileSize(theFileHandle: THandle): Int64; 
begin 
    if not GetFileSizeEx(theFileHandle, Result) then 
     RaiseLastOSError; 
end; 

// ---- Replacement seek function. Use this instead. 

procedure mySeek(var f: File; recordSize, recNum: Int64); 

var 
    offsetInBytes, numBytesRead: Int64; 
    pBigInt: ^Int64; 
begin 
    offsetInBytes := recNum * recordSize; 

    pBigInt := nil; // Not interested in receiving a new pointer after seek. 

    // Call the Windows seek call since Delphi 6 has problems with huge files. 
    if not SetFilePointerEx(TFileRec(f).Handle, offsetInBytes, pBigInt^, FILE_BEGIN) then 
     raise Exception.Create(
      '(mySeek) Seek to record number # ' 
      + IntToStr(recNum) 
      + ' failed'); 
end;