Question

我在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));

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

Answer 1

您应该切换到流。 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;

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

Answer 2

普通程序I / O不适合现代操作。只需使用TFileStream类，或者，如果您需要精确控制，请直接使用Windows API（阅读CreateFile和WriteFile函数）。

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

2 个答案: