VPF::Не работает Refresh - Форум программистов

razumsap

Дата 15.9.2010, 11:30 (ссылка)

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

Загрузка ...

Шустрый

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

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

Привет всем!!!

Столкнулся с интересной проблеммой, 2-й день болит от неё голова.

У меня есть програма в которойвыполняется такой вот код с браузером

Код


    Form1.WebBrowser1.Navigate('http://roulette.net.ua/index.php');
    while pg <> 1 do Application.ProcessMessages;
    pg:=0;


    form1.WebBrowser1.Refresh;
    while pg <> 1 do   Application.ProcessMessages;
    pg:=0;

почему то при выполнении этого кода программа зависает на блоке while pg <> 1

т.к. он связан с кодом и программа 2-й раз в него не заходит, но при этом обновление страницы произошло

Код


procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
 var
   CurWebrowser: IWebBrowser;
   TopWebBrowser: IWebBrowser;
   Document: OleVariant;
   WindowName: string;

begin
   CurWebrowser := pDisp as IWebBrowser;
   TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;
   if CurWebrowser = TopWebBrowser then begin
      pg:=1;
//     ShowMessage('Complete document was loaded')
     end
   else
   begin
     Document := CurWebrowser.Document;
     WindowName := Document.ParentWindow.Name;
 if  WindowName = 'success' then
  fr:=fr+1;
//     ShowMessage(Format('Frame "%s" was loaded', [WindowName]));
   end;
 end;

если же из кода

Код


    form1.WebBrowser1.Refresh;
    while pg <> 1 do   Application.ProcessMessages;
    pg:=0;

выбрасить

Код


    while pg <> 1 do   Application.ProcessMessages;
    pg:=0;

то программа не зависает, но при єтом и страничка не обновляется

пробовал тоже не помогло, у него всегда readyState = 'complete'

Код


    form1.WebBrowser1.Refresh;
while ((WebBrowser1.Document as IHTMLDocument2).readyState <> 'complete') do
    Application.ProcessMessages;

подскажите что не так? дайте совет.

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