Testen eines USB3.0-Drives - DISKSPEED

[hathor]

Zum Testen eines USB3.0-Drives habe ich ein kleines Programm gemacht, das ein 100MB-File schreibt und liest.
Dazu verwende ich folgende Funktionen:

Delphi-Quellcode:

//data ist ein 100MB-String

function LoadStringFromFile(const fileName : String) : String;
var
        fs : TFileStream;
begin
        fs:=TFileStream.Create(fileName, fmOpenRead+fmShareDenyNone);
        SetLength(Result, fs.Size);
        fs.Read(Result[1], fs.Size);
        fs.Free;
end;

procedure TForm1.WriteCClick(Sender: TObject);
var 
   fs : TFileStream; 
   gtc1, gtc2 : Cardinal;
begin
      filename:= DriveComboBox1.Drive + ':\test.txt';
   gtc1:= GetTickCount;
           fs:=TFileStream.Create(fileName, fmCreate);
           fs.Write(DATA[1], Length(DATA));
           fs.Free;
   gtc2:= GetTickCount;
   lbWtimeC.caption:= IntToStr(gtc2-gtc1)+' Millisec ';
   lbWriteC.caption:= IntToStr(100000 div(gtc2-gtc1))+' MB/sec ';
end;

procedure TForm1.ReadCClick(Sender: TObject);
var 
   s : String; 
   gtc1, gtc2 : Cardinal;
begin 
   gtc1:= GetTickCount;
         s:= LoadStringFromFile(filename);
   gtc2:= GetTickCount;
   lbReadC.caption:= IntToStr(100000 div(gtc2-gtc1))+' MB/sec ';
   lbRtimeC.caption:= IntToStr(gtc2-gtc1)+' Millisec ';
end;

Beim Schreiben werden Geschwindigkeiten von 60-70 MB/sec angezeigt, beim Lesen
erscheint ein unglaubwürdiger Wert von über 600 MB/sec.
Wer hat Verbesserungsvorschläge?

Danke für's Nachdenken und Helfen!

[mkinzler]

Die Datei wird sich noch im Cache befinden.

[hathor]

Wenn ich das File umbenenne vor dem Einlesen - kann es dann das erwartete Ergebnis bringen?
---
Negativ. File umbenennen nützt nichts.
---
Andere Idee: 100MB-File splitten in zwei 50MB-Files:
Schreiben und Lesen ist immer noch um den Faktor 20 verschieden.

Delphi-Quellcode:

//DATA50 = 50MB String
procedure TForm1.ReadCClick(Sender: TObject);
var s1,s2 : String; gtc1, gtc2 : Cardinal;
begin
gtc1:= GetTickCount;
   s1:= LoadStringFromFile(filename+'1');
   s2:= LoadStringFromFile(filename+'2');
gtc2:= GetTickCount;
lbReadC.caption:= IntToStr(100000 div(gtc2-gtc1))+' MB/sec ';
lbtimeC.caption:= IntToStr(gtc2-gtc1)+' Millisec ';
end;

procedure TForm1.writeCClick(Sender: TObject);
var fs1,fs2 : TFileStream;  gtc1, gtc2 : Cardinal;
begin
filename:= DriveComboBox1.Drive + ':\test.00';
gtc1:= GetTickCount;
        fs1:=TFileStream.Create(fileName+'1', fmCreate);
        fs1.Write(DATA50[1], Length(DATA50));
        fs1.Free;

        fs2:=TFileStream.Create(fileName+'2', fmCreate);
        fs2.Write(DATA50[1], Length(DATA50));
        fs2.Free;
gtc2:= GetTickCount;
lbtimeC.caption:= IntToStr(gtc2-gtc1)+' Millisec ';
lbwriteC.caption:= IntToStr(100000 div(gtc2-gtc1))+' MB/sec ';
end;

[himitsu]

Einfache Möglichkeite: Stick ab- und neu anmelden,
bzw. Rechner neu starten.

Umbennenen hilft nix, da nicht die Datei selber, sondern die Cluster des Dateisystems gecachet werden und nur durch ändern eines Dateinamen ändert sich da nix.

CreateFile + NoBufferedAccess

[Schorschi5566]

Hallo Hathor,

verwende doch einfach verschiedene Dateien, dann sollten ungecachte Werte rauskommen.

Vielleicht einfach mal 100 x 100 MB Files mit zufälligem Inhalt erzeugen und die dann mal nur Lesen.



Viele Grüße,
Uwe

[hathor]

Ich teste jetzt mal:

function WriteFile; external kernel32 name 'WriteFile';
function ReadFile; external kernel32 name 'ReadFile';
function FlushFileBuffers; external kernel32 name 'FlushFileBuffers';


FlushFileBuffers könnte DIE Lösung sein...

[himitsu]

FlushFileBuffers hilft nur beim Schreiben ... beim Lesen sollte es keine Veränderung geben,
da die Daten zwar auf die Platte geschrieben, aber nicht aus der Cache gelöscht werden.

[hathor]

Ich habe etwas (mit Sourcecode) gefunden, das funktioniert (nach einigen kleinen Änderungen...) - siehe Anhang: