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;