Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.05.15;
Скачать: 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 вся ветка

Текущий архив: 2011.05.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.005 c
2-1297265333
fil-23
2011-02-09 18:28
2011.05.15
Как заставить программу подождать?


15-1296422980
Юрий
2011-01-31 00:29
2011.05.15
С днем рождения ! 31 января 2011 понедельник


15-1296595780
Юрий
2011-02-02 00:29
2011.05.15
С днем рождения ! 2 февраля 2011 среда


15-1296212454
qazxsw
2011-01-28 14:00
2011.05.15
Быстрый вывод пикселей на канву


3-1258736999
Незнайка
2009-11-20 20:09
2011.05.15
like в delphi