VPF::как прервать выполненеи проги

razumsap

Дата 7.4.2008, 09:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 52
Регистрация: 13.12.2007

Репутация: нет
Всего: нет

Цитата(imageman @ 3.4.2008, 18:40)

PS.

а

Код


 while pg <> k do
   Application.ProcessMessages;

не грузит намертво процессор?

может лучше так
while pg <> k do begin
Application.ProcessMessages;
sleep(50);
end;

только мне не нравятся такие комбинации. Может лучше таймер поставить с периодичностью 100 мсек?

Дело в том что pg говорит о загрузке документа (полностью)

Код


 begin
   CurWebrowser := pDisp as IWebBrowser;
   TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;

   if CurWebrowser = TopWebBrowser then
   pg:=pg+1;
 end;

и если у человека очень медленный инет, то задерка 100 или 1000 не поможет:(
и если ProcessMessages - зло! - то какова альтернатива?

MetalFan

Дата 7.4.2008, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Цитата(razumsap @ 7.4.2008, 09:44

)

Дело в том что pg говорит о загрузке документа (полностью)

а чем OnDocumentComplete не устраивает?

--------------------

There are always someone smarter than you...

razumsap

Дата 8.4.2008, 08:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 52
Регистрация: 13.12.2007

Репутация: нет
Всего: нет

Цитата(MetalFan @ 7.4.2008, 17:11)

Цитата(razumsap @ 7.4.2008, 09:44

)

Дело в том что pg говорит о загрузке документа (полностью)

а чем OnDocumentComplete не устраивает?

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »