Forum: Sonstige Fragen zu Delphi
Delphi
by shmia,
24. Mär 2009
Ich rufe bei der Messung optional FlushFileBuffers() auf.
Auf meinem Rechner macht das aber wenig Unterschied (zu wenig Cache :cry: )
Im Anhang ist das Testprogramm (inkl. Sourcecode).
Forum: Sonstige Fragen zu Delphi
Delphi
by shmia,
24. Mär 2009
Hast ja recht, aber längere Messungen können die Geduld doch sehr strapazieren. :roll:
write 8388608 blocks à 8 bytes: 40176,8 ms
write 4194304 blocks à 16 bytes: 17426,7 ms
write 2097152 blocks à 32 bytes: 8945,0 ms
write 1048576 blocks à 64 bytes: 5454,6 ms
write 524288 blocks à 128 bytes: 5153,7 ms
write 262144 blocks à 256 bytes: 4755,9 ms
write 131072 blocks à 512 bytes: 4623,0 ms...
Forum: Sonstige Fragen zu Delphi
Delphi
by shmia,
16. Mär 2009
Ich habe mal Messungen durchgeführt.
Dabei wird eine Datei mit 2MB mit unterschiedlichen Blockgrössen beschrieben und gelesen.
Ein günstige Puffergrösse wäre wohl 8kB.
Interessant ist, das die Leistung bei Puffer über 32kB eher schlechter wird.
PS: TFileStream ist ungepuffert und sehr nahe am Betriebssystem.