Выложил на блоге сырцы своего чекера.
Зацениваем.

Аккуратный код, красиво все оформлено. Респект :)

пользовался старым чекал базу в 400К умирает после ~80К

там был баг. в сырцах его нет.
никто не отписался о баге.
а я че рыжий )))

Шустрая тулза , респект.
Но вот проц грузит на 100% при любом кол-ве потоков...

Шустрая тулза , респект.
Но вот проц грузит на 100% при любом кол-ве потоков...

это потому что нет задержки в основном потоке при обработке ошибок на создание нового потока.

ты писал, что обновил WP и просил сообщить о багах :)
Так вот, каменты не добавляются! (Opera)


По коду, имхо не помешало бы сделать след.:

проверку на код ответа 200 в потоке, т.е.
if ResponseCode = 200
then Synchronize(Sync);

...
...

procedure TGrabThread.Sync;
begin
form1.Memo1.Lines.Add(url);
end;

комменты проверил работают.
а с синхронизацией идея, зачем синхронизировать если не мой вариант.
это потому что нет задержки в основном потоке при обработке ошибок на создание нового потока.
а это не понял

в общем, опять не смог открыть твой блог :)
кстати он у меня всегда оч. долго грузится - хостера смени что ли.

пишу по памяти
while число_потоков < макс_потоков
do Application.HandleMessage;

вот эта вот часть и вешает проц по максимуму, а при низком приоритете потоков может и повлиять на кол-во Good урлов, так что добавь хотя бы Sleep(100) и все сразу станет ок.

т.е. так:
while число_потоков < макс_потоков do
Begin
Application.HandleMessage;
Sleep(100);
End;

и процу станет жить намного легче :beer: