404 чекер

[seocoder]

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

[analgin]

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

[lol]

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

[seocoder]

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

[gogzik]

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

[Dmitry HT]

Сообщение от gogzik

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

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

[Dmitry HT]

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


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

проверку на код ответа 200 в потоке, т.е.

if ResponseCode = 200 
then Synchronize(Sync);

...
...

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

[seocoder]

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

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

а это не понял

[Dmitry HT]

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

пишу по памяти

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

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

т.е. так:

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

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