Hallo,
Ich schreibe momentan an einem Festplatten Benchmarktool. Am Ende möchte ich Lese- und Schreibgeschwindigkeit anzeigen.
Damit schreibe ich eine Datei
Delphi-Quellcode:
F := TFileStream.Create(Datei+InttoStr(i), fmCreate or fmShareExclusive);
try
while wrBytes + BytesPerBlock <= Size do
begin
F.Write(buf, BytesPerBlock);
Inc(wrBytes, BytesPerBlock);
end;
if wrBytes + BytesPerBlock < Size then
F.Write(buf, Size - wrBytes);
finally
F.Free;
end;
Auslesen ist bis auf das write (dann Read) der selbe Algorithmus.
Jetzt habe ich das Problem, dass er bei kleinen Dateien bis zu 8 mal schneller liest als er schreibt, was ich für sehr unwahrscheinlich halte. Das heißt er hat die Datei noch irgendwo gecached. Ich nehme mal das es der Festplattencache ist, oder aber auch der Arbeitsspeicher?
Wie lösche ich den cache, damit kein Mist rauskommt?