| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TWebBrowser. Странность в поведении. [D7]

mfender ©   (2011-02-10 14:07:00) 

Здравствуйте. Вот такая стандартная ситуация:

     WebBrowser1.Navigate('about:blank');
     while WebBrowser1.Document = nil do
       Application.ProcessMessages;
     Doc := WebBrowser1.Document as IHTMLDocument2;
     V := VarArrayCreate([0, 0], varVariant);
     V[0] := HTML.Text;
     Doc.write(PSafeArray(TVarData(V).VArray));
     Doc.close;

Первый раз всё проходит нормально, в браузере документ нарисован. Второй и последующие разы остаётся чистый документ, который при просмотре кода показывает <html></html>, при этом заметно, что текст в нём появляется на мгновение и пропадает.

Что это может быть?

---

sniknik   (2011-02-10 14:21:00) [1]

Doc.close; ???
а ты его открывал?

---

И. Павел   (2011-02-10 14:20:00) [2]

Попробуйте ждать завершение загрузки документа не так:

while WebBrowser1.Document = nil do
      Application.ProcessMessages;


а так:

 while  WebBrowser1.Busy do
   Sleep(200);
 while  WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
   Sleep(200);

---

Наверх