Главная страница
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.009 c
2-1296987414
Fr
2011-02-06 13:16
2011.05.15
использование TDialogOpen


15-1296120101
Demo
2011-01-27 12:21
2011.05.15
Сенсорный моноблок


15-1296654628
int64
2011-02-02 16:50
2011.05.15
Как попасть на RSDN.ru?


2-1296928775
new_user
2011-02-05 20:59
2011.05.15
TWebBrowser


15-1296736261
Smile
2011-02-03 15:31
2011.05.15
Тем, у кого есть немного свободного времени:)