Delphi 6 支持大文件吗？ （替换系统模块？）

Question

我在与巨大的固定长度记录数据文件交互时遇到问题。该文件大小超过 14 GB。当我看到 System.Filesize() 函数的返回值远小于大文件中的实际记录数（考虑到文件中的字节数和每条记录的长度。 （System.Filesize 返回非类型化文件中给定 Reset() 调用期间指定的记录大小的记录数。它不返回文件中的字节数）。我将其归因于 System.Filesize() 的返回类型是 Longint 而不是 Int64。

我通过调用 GetFileSizeEx() 并自己计算记录数来解决最初的问题。不幸的是，当尝试访问文件中偏移量深入文件的记录时，BlockRead() 也会失败。我猜测代码中的某个地方再次使用了溢出的值。

Delphi 6 是否有一个替代模块可以处理大文件并且可以替代系统单元文件 I/O 调用？如果可以的话，我会尽量避免自己动手。

Answer 1

您可以使用 GpHugeFile 来自 Primoz Gabrijelcic。我自己使用这个库从 Delphi 7 访问更大的文件（> 2GB）。无论如何，在您的情况下，您必须考虑尝试更改应用程序逻辑并迁移到数据库方案，该方案比基于记录文件的方案要高效得多。

Answer 2

尝试TGpHugeFile。

Answer 3

事实证明，由于使用低容量数字类型，系统单元使用的内部搜索例程也存在问题。我编写了自己对 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;

Answer 4

您不能将 Pascal I/O 与这样的大文件一起使用，在任何版本的 Delphi 中都不能。最好的选择是使用没有此类限制的 TFileStream。