Comment décharger un fichier du cache?

Question

Quelqu'un sait comment décharger un fichier du cache? J'écris un fichier sur le disque, puis je veux le relire. Cependant, Windows me donne le fichier du cache.

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; 

- Je suis en train de déterminer la lecture/écriture vitesse d'un lecteur.

Answer 1

code pour démontrer l'utilisation de FILE_FLAG_NO_BUFFERING et de tester la façon dont il affecte votre temps de lecture:

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; 

L'exécution de ce code avec un fichier de 420 taille de mégaoctet donne sur mon système:

temps pour le fichier tampon lu: 3974 de
de temps pour le fichier tampon lu: 0922 de
temps pour le fichier tampon lu: 0937 de
temps pour Buffe fichier rouge lu: 0937 de
Temps pour le fichier tampon lu: 0938 de
Temps pour le fichier unbuffered lu: 3922 de
Temps pour le fichier unbuffered lu: 4000 de
Temps pour le fichier unbuffered lu: 4016 de
de temps pour fichier unbuffered lu: 4062 de
Heure pour le fichier unbuffered lu: 3985 s

Answer 2

Je pense que vous avez mal compris le concept de vidage d'un fichier.

Le vidage d'un fichier ne le supprime pas du cache disque, il entraîne l'écriture du contenu du tampon du flux de fichiers dans le fichier.

(Le flux est rincé automatiquement lorsque vous le fermez. L'ouverture d'un fichier et le rinçant sans écrire quoi que ce soit à elle n'a pas d'effet que si jamais.)

Vous pouvez regarder dans le drapeau FILE_FLAG_NO_BUFFERING pour la lecture du fichier, mais il semble de la documentation qu'il n'a aucun effet sur les fichiers sur un disque dur.

MSDN: CreateFile

Answer 3

la mise en cache de fichiers est une opération de niveau du système d'exploitation, est donc indépendamment du fait que vous utilisez Delphi ou toute autre langue.

Si vous nous donnez une idée de pourquoi vous voulez vous assurer que vous ne lisez pas du cache, il peut être plus facile d'aider.

Answer 4

Le code devrait fonctionner, sauf si vous utilisez des valeurs non valides pour la variable Chunk. Par exemple, si le bloc = 0 alors il ne lira aucune donnée dans le tampon, ainsi le tampon conserverait son ancienne valeur. (Ce qui pourrait être les mêmes données que vous venez d'écrire sur le disque.)

Answer 5

Vous devez utiliser l'API Win32 directement, en particulier CreateFile avec l'indicateur FILE_FLAG_NO_BUFFERING. Il oblige le système d'exploitation à lire à partir du disque au lieu du cache et a l'effet secondaire qu'il efface également le cache pour ce fichier, de sorte que la lecture suivante sans le drapeau frappe également le disque, bien qu'il le lise dans le cache puis.