本当にランダムで非圧縮のダミーファイルを生成するランダムファイルジェネレータが必要です。
私はこのデルファイコードに行き着きました。それは動作しますが、それは痛々しいほど遅いです
var
Buf : Integer;
TheFile : TFileStream;
begin
TheFile := TFileStream.Create(FileName, fmCreate OR fmOpenReadWrite);
with TheFile do
begin
for i := 0 to FileSize do // Iterate
begin
Buf := Random(999999) * i;
WriteBuffer(Buf, SizeOf(Buf));
end; // for
end; // with
end,
私の質問は:私が使用できる高速ランダムファイルジェネレーターはありますか?次の条件が満たされている限り、Delphiコードおよび/またはコマンドラインツールの両方を使用できます。
- 手動で介入しなくてもWindowsで実行できます(テストにはこれが必要です。介入は許可されていません)
- 速い_
- 生成されたファイルは圧縮できません(つまり、生成されたファイルを圧縮してもスペースを節約できません)
編集興味のある人のために、私はここで受け取ったアドバイスを適用してこの関数を作成しました。それは十分に高速で、7zipは生成されたデータを圧縮するのに苦労しています。