gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-03 14:36:13 24 4
gpt4 key购买 nike

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

没有这个变量是否可以做到这一点?

最佳答案

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

打开文件流后,您可以查找到末尾:

Stream.Seek(0, soEnd);

然后你可以这样写:

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

希望这能为您提供足够的线索来填写其余的详细信息。

关于Delphi Pascal - 如何将数据写入大于 2 GB 的文件?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/4774869/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com