Hello, Aleksey!
Aleksey Karyakin wrote:
Чтобы можно было делать какие-то выводы по результатам тестов предлагаю:
1) перевести попугаев в осмысленные единицы, Мб/сек для лин. скорости и оп/сек
для рандомной.
перевел. в transfer rate, mb/sec. включается по вкусу.
2) провести калибровку тулзины на какой-либо общепринятой проге тестирования;
необязательно. Можно взять несколько разных результатов, и свести их
в текст к софтине.
3) опубликовать исходники, я думаю там нет ничего суперсекретного;
не люблю я этого. код, который тестирует, примитивен.
procedure TDiskForm.SeqScan(const blk: Integer);
var
D1, D2: TDateTime;
i: integer;
p: pointer;
r: PTestRec;
begin
GetMem(p, BlockSize[blk]);
FHandle.Seek(0, 0);
D1:=Time;
for i := 0 to (FileSize div BlockSize[blk]) - 1 do
FHandle.ReadBuffer(p^, BlockSize[blk]);
D2:=Time;
r:=RecList.Items[0];
r^.TestData[blk]:=Round((D2-D1) * (24*60*60));
FreeMem(p);
vtResults.Refresh;
Progress.Position:=Progress.Position+1;
Application.ProcessMessages;
end;
А то я тут посмотрел некоторые результаты - похоже на рандомный генератор.
> Если увеличение скорости при увеличении размера буфера еще с теорией
согласуется,
> то почти все остальное непонятно. Почему скорость записи отличается от
скорости
> чтения в десятки раз? Почему такой большой разброс на винтах одного класса? И
т.д. и т.п.
хрен знает. я вот тоже хочу это понять.
А тестировать надо все-таки после дефрагментации.
--
Dmitri Kuzmenko, www.ibase.ru, (495) 953-13-34
