Вычислением MD5 с прогрессбаром

[Человек_Борща]

доброго времени суток!

Собственно сабж. Как вычислять md5 с прогрессбаром?
Как например это сделано в hashtab?

[notHaker]

Не понел. С отображением прогресса?
Если так, то вот код. Только в функцию MD5Update и в нужное место поставить обновление прогрессбара. Вот и все дела.

[Человек_Борща]

Ну у меня есть этот модуль. А как определить максимум для прогрессбара?

Ну вообще подобный модуль я видел CnMD5.pas из CnVCL(Прилепил).

Там есть функция:

function MD5File(const FileName: string;
  CallBack: TMD5CalcProgressFunc = nil): TMD5Digest;

и есть это:

  TMD5CalcProgressFunc = procedure (ATotal, AProgress: Int64;
    var Cancel: Boolean) of object;

Но сабж так и не заработал.

[notHaker]

Подправь код руками. В функции MD5Update (эта функция ключевая для модуля) есть цикл

while i + 63 < inputLen do
    begin
      MD5Transform(@Context.state, PArray64Byte(@Input[i]));
      Inc(i, 64);
    end;

На входе функции есть параметр InputLen. Делишь его на 64 (там длинна блока такая) и округляешь в большую сторону. Вот тебе и количество проходов (максимум для прогрессбара). И в этом цикле, хочешь вызывать кэлбэк - вызывай, хочешь - напрямую инкрементируй прогрессбар. Без разницы.