题 Delphi Pascal - 如何将数据写入大于2 GB的文件?


我在Delphi中创建了一个工具来创建彩虹表。直到文件长到3.1 GB才好。我关闭了我的程序。然后我再次打开它,并在执行此代码时崩溃:

Assign(RainbowFile,'Rainbow_table.txt'); {assign a text file}
Append(RainbowFile);

Delphi显示错误“提出的预期类EInOutError,消息'I / O错误131'。 我的问题:如何将数据附加到大于2 GB的现有文件。 //已过时 下一个问题: 我目前有代码:

   Content_to_file := (#13+#10+Start_string+':'+hexstr(GTA_San_Andreas_CRC32(Start_string), 8));
   RainbowFile_handle.WriteBuffer( Content_to_file[1], Length(Content_to_file)*SizeOf(Char));

如何摆脱Content_to_file变量。如果可能的话,我想把它直接放到WriteBuffer上。

编辑:

TFileStream适用于大于2 GB的文件。我现在测试了。 但是可以这样写:

RainbowFile_handle.WriteBuffer( Start_string[1]+':', 

我的意思是不传递变量参数。或者我确实传递了变量的第一个字符?

编辑2:

我目前这样做了:

    Content_to_file := (#13+#10+Start_string+':'+hexstr(GTA_San_Andreas_CRC32(Start_string), 8));
    RainbowFile_handle.WriteBuffer( Content_to_file[1], Length(Content_to_file)*SizeOf(Char));

没有这个变量可以做到吗?


15
2018-01-23 16:23


起源


您的文件系统是否支持> 2GB的文件? - Satya
是的,它确实。我有Windows XP 32位。目前我的NTFS分区上的文件是3.1 GB。问题在于我的pascal代码。 - fastman92


答案:


你应该切换到流。一个 TFileStream 将毫无问题地处理这个。请注意,如果您使用随机访问,则必须确保使用64位版本 Seek 和 Position

打开文件流后,您可以寻求结束:

Stream.Seek(0, soEnd);

然后你可以这样写行:

procedure StreamWriteLine(Stream: TFileStream; Text: string);
begin
  Text := Text + sLineBreak;
  Stream.WriteBuffer(Text[1], Length(Text)*SizeOf(Char));
end;

希望这应该给你足够的线索来填补其余的细节。


24
2018-01-23 16:32



下一个显而易见的问题是如何对流进行多参数write()。我需要时只需要流的原因之一。 - Marco van de Voort
@Marco提出这样的例程并将其包装在现有的流类中并不会太麻烦。我个人倾向于不直接使用Delphi提供的流类,而是更喜欢我自己的子类版本,它们增加了额外的功能以满足我的需求。特别是我有一个文件流,它出于性能原因缓冲I / O,以及阻塞分配而不是要求连续内存的内存流。 - David Heffernan
那我真的很想看到。 Write(lN)使用编译魔术。有些方法可能会搞乱textrec系统,但如果你这样做,你也可以直接解决64位问题。流是恕我直言,对文本文件不太舒服。 - Marco van de Voort
@Marco我希望你能做些有用的事情 const Args: array of const 以...的方式 Format。 - David Heffernan
我试过一次,IIRC它不会做真正的格式化,你在某些类型的表达式上得到错误,需要添加[],我虽然时间很短,但放弃了。仍然总是让我感到困惑的是,没有添加任何标准化组件。这告诉我它并没有真正被弃用,它只是表明E.认为2GB文本文件是个坏主意 - Marco van de Voort


普通程序I / O不适合现代操作。只是用 TFileStream class,或者,如果你需要精细控制,直接使用Windows API(阅读 CreateFile 和 WriteFile 功能)。


8
2018-01-23 16:31



“普通程序I / O不适合现代操作。”你在谈论这些所谓的“现代运作”是什么? - dummzeuch
@dummzeuch超越2Gb的写作是完全有效的 现代 操作,阅读等等。 - Eugene Mayevski 'Allied Bits
@Marco我认为他们想要使这些功能过时而不是“修复”它们。 - Eugene Mayevski 'Allied Bits
@Marco @Eugene作为一个等待超过5年64位支持的人,作为一个例子,如果Embarcadero花时间“修复”过时的不合时宜的遗留例程而不是让Delphi保持最新,我会非常沮丧。 - David Heffernan
@David +1。与修复25岁以上的程序相比,CodeGear有更重要的事情要做。 - Eugene Mayevski 'Allied Bits