ファイルをキャッシュからアンロードする方法は？

Question

誰かがキャッシュからファイルをアンロードする方法を知っていますか？ ファイルをディスクに書き込んだ後、そのファイルを読み込みたいと思います。しかし、Windowsは私にキャッシュからファイルを与えています。

begin 
... 

{-- Write file --} 
AssignFile(F, FileName); 
Rewrite(F, 1); 
BlockWrite(F, Buf[0], Chunk); 
CloseFile(F);    { FLUSH } 

some code... 
then..... 

{-- Read file --} 
AssignFile(F, FileName); 
Reset(F, 1);                
BlockRead(F, Buf[0], Chunk);  <----------- getting file from cache 
CloseFile(F); 
end; 

- 私は/ドライブの速度を読み書きを決定しようとしています。

Answer 1

FILE_FLAG_NO_BUFFERINGの使用を実証するために、それはあなたの読書の時間にどのように影響するかをテストするためにいくつかのコード：420メガバイトのサイズのファイルを使用してこのコードを実行する

uses 
    MMSystem; 

function GetTimeForRead(ABuffered: boolean): single; 
const 
    FileToRead = // name of file with maybe 500 MByte size 
var 
    FlagsAndAttributes: DWORD; 
    FileHandle: THandle; 
    SrcStream, DestStream: TStream; 
    Ticks: DWord; 
begin 
    if ABuffered then 
    FlagsAndAttributes := FILE_ATTRIBUTE_NORMAL 
    else 
    FlagsAndAttributes := FILE_FLAG_NO_BUFFERING; 
    FileHandle := CreateFile(FileToRead, GENERIC_READ, FILE_SHARE_READ, nil, 
    OPEN_EXISTING, FlagsAndAttributes, 0); 
    if FileHandle = INVALID_HANDLE_VALUE then begin 
    Result := 0.0; 
    exit; 
    end; 

    SrcStream := THandleStream.Create(FileHandle); 
    try 
    DestStream := TMemoryStream.Create; 
    try 
     DestStream.Size := SrcStream.Size; 

     Sleep(0); 
     Ticks := timeGetTime; 
     DestStream.CopyFrom(SrcStream, SrcStream.Size); 
     Result := 0.001 * (timeGetTime - Ticks); 

    finally 
     DestStream.Free; 
    end; 
    finally 
    SrcStream.Free; 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    i: integer; 
begin 
    Button1.Enabled := FALSE; 
    try 
    Update; 
    Memo1.Lines.Clear; 
    for i := 1 to 5 do begin 
     Memo1.Lines.Add(Format('Time for buffered file read: %.3f s', 
     [GetTimeForRead(TRUE)])); 
    end; 
    for i := 1 to 5 do begin 
     Memo1.Lines.Add(Format('Time for unbuffered file read: %.3f s', 
     [GetTimeForRead(FALSE)])); 
    end; 
    finally 
    Button1.Enabled := TRUE; 
    end; 
end; 

は私のシステムで提供します：

バッファファイル読み込み時間：3,974秒
バッファファイル読み込み時間：0,922秒
バッファファイル読み込み時間：0,937秒
バッファ時間赤のファイルを読む：0937 S
時間バッファリングされたファイルを読み込むために：0938 S
時間をバッファリングされていないファイルが読み込みのために：3922 S
時間をバッファリングされていないファイルを読み込み用：4,000秒
時間をバッファリングされていないファイルが読み込みのために：4016 S
時間のためにバッファなしのファイルを読む：バッファなしファイルのための4062の
時間を読む：3985 S

Answer 2

あなたはファイルをフラッシュするという概念を誤解していると思います。

ファイルをフラッシュしてもディスクキャッシュからファイルが削除されない場合は、ファイルストリームのバッファの内容がファイルに書き込まれます。

（あなたがそれを閉じると、ストリームは自動的に消去されます。ファイルを開くと、そこには何も記述せずに、それをフラッシュするので、これまでどのような効果がありません。）

あなたは、ファイルを読み込むためのFILE_FLAG_NO_BUFFERINGフラグに見ることができ、ドキュメントからは、ハードドライブ上のファイルには影響しないようです。

MSDN: CreateFile

Answer 3

ファイルキャッシングので、あなたはDelphiや他の言語を使用するかどうかとは無関係です、OSレベルの操作です。

の理由を教えてください。なぜあなたはキャッシュからの読み取りを確実にしたいのですが、助けが簡単かもしれません。

Answer 4

Chunk変数に無効な値を使用している場合を除き、コードは問題ありません。たとえば、chunk = 0の場合、バッファにデータを読み込まないため、バッファは古い値を保持します。 （これはディスクに書き込んだデータと同じものです）

Answer 5

Win32 APIを直接使用する必要があります。具体的には、FILE_FLAG_NO_BUFFERINGフラグを指定してCreateFileを直接使用する必要があります。 OSはキャッシュの代わりにディスクから強制的に読み込み、そのファイルのキャッシュもクリアするという副作用があるため、フラグを持たない次の読み込みでもキャッシュに読み込まれますが、ディスクにヒットします次に。