Delphi Pascal - 2 GBを超えるファイルにデータを書き込む方法は？

Question

私は虹のテーブルを作成するためのツールをDelphiで作った。ファイルが3.1GBになるまでは問題ありませんでした。私はプログラムを閉じた。その後、私は再びそれを開くと、このコードを実行しながら、それがクラッシュ：

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

デルファイは、メッセージ 『I/Oエラー131』でエラー「上げexpectionクラスEInOutErrorを示し 私の質問：どのように大きな既存のファイルにデータを追加するために。2ギガバイト //廃止 次の質問より： 私は現在のコードがあります。Content_to_file変数を取り除くためにどのように

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

を、私はそれ `sが可能な場合はWriteBufferメソッドに直接それを入れたい

。

編集：

TFileStreamは2 GBを超えるファイルで動作します。私は今それをテストしました。 しかし、それはそう書くことが可能である：

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

は、私は、変数引数を渡していないことを意味。または、私は間違いなく変数の最初の文字を渡したのですか？

EDIT 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

一般的な操作のI/Oは現代的な操作には適していません。 TFileStreamクラスを使用するか、細かい制御が必要な場合はWindows APIを直接使用してください（CreateFileとWriteFile関数を参照）。

Answer 2

ストリームに切り替える必要があります。 TFileStreamはこれを問題なく処理します。ランダムアクセスを使用する場合は、SeekとPositionの64ビットバージョンを使用する必要があります。あなたが最後に求めることができ、ファイルストリームを開いた後

：

Stream.Seek(0, soEnd); 

次に、あなたほどの線を書くことができます。

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

をうまくいけば、あなたに満たすのに十分な手がかりを与えるべきですその他の詳細については、