Скачать: CL | DM;

TWebBrowser. Странность в поведении.   Найти похожие ветки 

← →
mfender   (2011-02-10 14:07) [0]

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

     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>, при этом заметно, что текст в нём появляется на мгновение и пропадает.

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

---

← →
И. Павел ©   (2011-02-10 14:20) [1]

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

while WebBrowser1.Document = nil do
      Application.ProcessMessages;


а так:

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

---

← →
sniknik ©   (2011-02-10 14:21) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.004 c