на строке Application.ProcessMessages виснет намертво

[mosq]

Друзья, помогайте.

Есть прога, парсит страницы на определенные ссылки и заносит их в БД.
После загрузки страницы у меня стоит пауза в 1 сек, чтобы webbrowser1 успел загрузить все у себя и можно было у него взять html страницы.

реализовано так:

...
тут код загрузки странцы и ожидание полной загрузки (...until webbrowser1.readystate=4)
...
repeat //пауза перед парсингом
  sleep(100);
  Application.ProcessMessages;
until i>=10;
bstatus.Caption:='Filling the memo';
memo1.Lines.Text:=Webbrowser1.OleObject.document.GetElementByID('searchContent').InnerHTML;
....

Проблема в следующем: мой парсер проходит несколько html страниц, эта пауза успешно везде срабатывает (т.е. задерживается на секунду перед заполнением memo1 без зависания формы).
Но на определенной странице на шаге Application.ProcessMessages; прога виснет намертво.
При этом try..except..end; ничего не дает. Останавливается весь цикл (я встраивал счетчик inc(i) с отображением i, на одном и том же значении виснет.

Другие запросы делаю парсеру, проходит все успешно. Парсит сотни страниц без вопросов. А при определенном запросе и именно на той странице - виснет.

Считать ли это глюком системы (а-ля F00FC7C8 в свое время) или можно еще какие-то проверки сделать? А то коряво как-то получается, глюк есть, а исправить не пойму как..

[Пепел Феникса]

конфликт сообщений походу из-за пауз...

вот тут гляньте
может поможет:
http://www.delphiworld.narod.ru/base...pl_frames.html

[mosq]

Сообщение от Пепел Феникса

конфликт сообщений походу из-за пауз...
вот тут гляньте
может поможет:
http://www.delphiworld.narod.ru/base...pl_frames.html

Идет одно выполнение с одного нажатия кнопки.
Загрузки, паузы и считывания статуса браузера - все в одной процедуре.
Похоже на какое-то переполнение в чем-то. Но у меня все переменные обнуляются перед каждым циклом и не выходят за рамки.

ну во, пришлось поковыряться, выяснил причину: причина в некорректных символах, которые загружались в webbrowser со страницы.

решилось так

const badabc='‹›¿';
....
s:=Webbrowser1.OleObject.document.GetElementByID('searchContent').InnerHTML;
for i:=1 to length(badabc) do
  delete(s,pos(badabc[i],s),1);
Webbrowser1.OleObject.document.GetElementByID('searchContent').InnerHTML:=s;

Теперь Application.ProcessMessages; не зависает, все работает корректно.

PS: О том, как я выявлял эти кривые символы из 30кб текста можно слагать отдельные песни )