Открыть и сохранить страницу (TWebBrowser)
Нужно открыть страницу в TWebBrowser и, когда она загрузится, сохранить на жесткий диск.
Я делаю так:
WebBrowser1.Navigate('http://ya.ru');
repeat
Until WebBrowser1.ReadyState=4;
ShowMessage('Ok');
Но почему то программа виснет (( С какого фига?? Если проверять таймером, то все работает, но таймером нельзя, т.к. тогда получится, что после таймера надо перепрыгнуть в определенное место в другой процедуре, а лабелы работают только в одной процедуре =(
Вобщем суть ясна: нужно в одной процедуре открыть, дождаться окончания загрузки и сохранить в файл на жесткий диск, страницу.
|