Всем привет! Кинул я полехтмл на форму, перехожу по ссылке из программы, и надо мне понять - загрузилась страничка или нет...как это выяснить?
у ПолеХТМЛ событий для этого никаких нету. Что можно сделать?

Есть идея анализировать строку состояния на "Готово", но как это сделать?

Это не помогает?

ПолеHTMLДокумента (HTMLDocumentField)
ДокументСформирован (DocumentComplete)
Синтаксис:
ДокументСформирован()
Описание:
Возникает, когда HTML-документ построен и готов к использованию.

(1) проблема в том что это событие возникает параллельно ходу самой программы.
Т.е.
ЭлементыФормы.Обозреватель.Перейти(Ссылка);
//страничка пойдет на загрузку, но следующие операторы будут выполняться сразу,
//а не после ДокументСформирован
Оператор 1;
Оператор 2;

подскажите как анализировать строку состояний можно?

нефиг к жопе через гланды лезть
подожди пока документ не сформируется

юзай readyState
или Status

в конце скрипт с присвоение переменой определенного значения, как только он отработал - значит готово

Да завести переменную булеву,
перед формированием сбрасывать, в ДокументСформирован() устанавливать.

(4) а как это использовать в ПолеХТМЛ? это же для КОМ
(5) какой скрипт
(6) пробовую все равно хрень...Операторы то выполняются

(7) Ну так перед ними цикл с опросом ее родимой.

(8)+ но только так и повеситься недолго...
Что-то с постановкой задачи не совсем...

(7) скрипт на VB в конец загружаемой страницы, обращаться к переменным можно через свойство Document

(8) надо загружать в цикле несколько страничек...загрузив одну надо считать с нее данные в 1с, и перейти на другую. При переходе загрузка может не пойти поэтому надо проверять каждый раз загуржена ли страничка...

(10) странички то в инете, чужие сайты

Не проще ли те опрераторы обработки вызывать из ДокументСформирован?

(11) тогда ищи </body></html> правда они не всегда есть

писал в 7.7 одну вещицу - кусок кода такой

objIE = СоздатьОбъект("InternetExplorer.Application");
 objIE.Visible = IE; // Если не показывать окно - может ругаться антивирь, но удобнее работать.
 objIE.Silent = 0;    
 Адрес = "http://bank.gov.ua/Fin_ryn/OF_KURS/Currency/FindByDate.aspx";
 objIE.Navigate(Адрес);                                              
 
 Пока objIE.readyState<4 Цикл // Ждем пока она загрузится
 КонецЦикла;    

Собственно, "readyState<4" и есть признак того, что еще не загрузилась.
Переведи на 8 и все.

у меня щас структур такая

ПеремГлоб;
Процедура А();

Ссылка = "уа.ru";
ЭлементыФормы.Обозреватель.Перейти(Ссылка);  
Перем = ПеремГлоб;

КонецПроцедуры;

ОбозревательДокументСформирован(Элемент);
    Процедура В();
КонецПроцедуры;

Процедура В();
    //считает какие-то данные, которые нужны в Процедуре А

   ПеремГлоб = 1;

КонецПроцедуры;

(16)+ не знаю как проверить что после первого перехода страничка загрузилась?

(15) это круто, видел, но у меня ПолеХТМЛ + каким оператором можно получить полный ХТМЛ код?

(18) Свойство Документ - это ComОбъект и имеет ото усе.
Но в принципе все можно организовать в 1С.
Тот же цикл по глобПерем я ж тебе предлагал.

В общем вот ссылка всей обработки
http://infostart.ru/projects/3333/
За основу брал книжку Михайлова по системному программированию в 1С - там и по 7.7  и по 8 есть варианты кода.
В принципе, через СОМ работать с хтмл удобнее, имхо.

http://www.kodges.ru/12858-1s-predprijatie-7.78.0-sistemnoe-programmirovanie.html

(19) никак не догоню как с глобальными...помоги если можешь

(21) Что то типа:

 Флаг = Ложь;
 ЭлементыФормы.Обозреватель.Перейти(Ссылка);  
 Пока Истина Цикл
   Если Флаг Тогда Прервать;
 КонецЦикла;


В обработчике ДокументСформирован()
 Флаг = Истина;

(22) КонецЕсли забыл

(22)+ опять же можно и повеситься, так что надо бы какой-то резервный выход из
цикла предусмотреть

(24)все равно какя то фигня
Флаг = Ложь;
 Ссылка = Строка("http://yandex.ru");
 ЭлементыФормы.Обозреватель.Перейти(Ссылка);  
 Пока Истина Цикл
     Если Флаг Тогда
         Прервать;
     КонецЕсли
     
 КонецЦикла;
 Сообщить("123");
Процедура ОбозревательДокументСформирован(Элемент)
 Флаг = Истина;
Проверка();

КонецПроцедуры

Процедура Проверка();

Сообщить("Ура!");

КонецПроцедуры

на выходе =
Ура!
123
Ура!

а должно быть Ура, Ура, 123

Ну так все правильно. Ведь это только ты знаешь, что страница дважды должна
перейти. Ну тогда так и пиши:

Флаг = 0;
 Ссылка = Строка("http://yandex.ru");

 ЭлементыФормы.Обозреватель.Перейти(Ссылка);  
 Пока Истина Цикл
     Если Флаг=2 Тогда
         Прервать;
     КонецЕсли
     
 КонецЦикла;
 Сообщить("123");
Процедура ОбозревательДокументСформирован(Элемент)
 Флаг = Флаг+1;
Проверка();

КонецПроцедуры

(26)+ но вообще как-то коряво.
Может как то определить, добрались ли до нужного URL?

(27)+
По идее
ЭлементыФормы.Обозреватель.Документ.URL - должен вернуть

28)т.е. проверить после Перейти(Ссылка) будет ли Ссылка = ЭлементыФормы.Обозреватель.Документ.URL ?

(28)(29)урл наверно сразу присваивается а не после загрузнки...

(30) можно проверять в обработчике ДокументСформирован
Если ЭлементыФормы.Обозреватель.Документ.URL = НужнаяСсылка...
и если там где надо: Флаг=Истина.
Только проверь, что он там возвращает (ЭлементыФормы.Обозреватель.Документ.URL)

(31) смори а если коннект пропадет...ссылка то присвоится для ЭлементыФормы.Обозреватель.Документ.URL все равно...но страничка то будет с сообщение что инета нет

что за х...

(32) Если коннект пропадет, то по идее событие ДокументСформирован не возникнет.
Потому и проверять там надо.
Но нужно пробовать.

Дерзай, я через 5мин домой.

(33)...нь какая то...задача упрощаетя - надо вернуться из ДокументСформирован в начало цикла. Т.е. надо перезапустить выполнение операторов для текущего элемента в процедуре А

Может поможет:
я делал так:
Функция        ДождатьсяЗагрузкиДокумента(IE,ВСостояние = "Загрузка страницы...",Таймаут = 20)
   
   // ИЕ.Busy                   Ложь
   // ИЕ.ReadyState           1-4
   // ИЕ.Document.readyState  loading/complete    
   
   ДатаПоТаймауту = ТекущаяДата() + 20;
   Пока НЕ IE.Document.readyState = "complete" Цикл
       Состояние(ВСостояние); ОбработкаПрерыванияПользователя();
       Если ДатаПоТаймауту <= ТекущаяДата() Тогда Прервать; КонецЕсли;
   КонецЦикла;
   
   ДокументЗагружен = (IE.Document.readyState = "complete");
   Возврат ДокументЗагружен;
   
КонецФункции

только ИЕ это был ComОбъект
т.е. IE.Document вроде тоже что и обозреватель.Документ в Вашем случае.

(35) спасибо щас попробую, т.е. ЭлементыФормы.Обозреватель.Документ.readyState тоже что и IE.Document.readyState
или надо ЭлементФормы.Обозреватель.readyState?

(36)а блин туплю...

(36) ЭлементыФормы.Обозреватель.Документ.readyState
правда сам не пробовал. Проверил бы сейчас, но под рукой нет 1С-ки.

(37) правильно тестирую?:
Функция        ДождатьсяЗагрузкиДокумента()
   
   // ИЕ.Busy                    Ложь
   // ИЕ.ReadyState            1-4
   // ИЕ.Document.readyState  loading/complete    
   
   Таймаут = 20;
   ВСостояние = "Загрузка страницы...";
   ДатаПоТаймауту = ТекущаяДата() + 20;
   Пока НЕ ЭлементыФормы.Обозреватель.Документ.readyState = "complete" Цикл
       Состояние(ВСостояние); ОбработкаПрерыванияПользователя();
       Сообщить("ждем...");
       Если ДатаПоТаймауту <= ТекущаяДата() Тогда Прервать; КонецЕсли;
   КонецЦикла;
   
   ДокументЗагружен = (ЭлементыФормы.Обозреватель.Документ.readyState = "complete");
   Возврат ДокументЗагружен;
   
КонецФункции

Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   Рез = Ложь;
   Ссылка = Строка("http://yandex.ru");
   ЭлементыФормы.Обозреватель.Перейти(Ссылка);
   Рез = ДождатьсяЗагрузкиДокумента();
   
   Если Рез = Истина Тогда
       Сообщить("123");
   КонецЕсли;
   
   
   
КонецПроцедуры

123 вылетает сразу...страничка не до конца загрузилось когда еще

блин видимо надо будет все на КОМ переводить...

(39) хотя в отладчике ЭлементыФормы.Обозреватель.Документ.readyState реально "complete", только почему то всегда...мне же надо понять что страничка ya.ru загрузилась а не html - Эта программа не может отобразить эту веб-страницу

readyState работает только для простого HTML для всяких flash и других наворотов - нет, та-же миста думаю не будет работать (так-как есть автоподгрузка).

(42)ну я просто хтмл и получаю...

(39) Да, не получится. Ибо обработчик надо отпустить после ПолеХТМЛ.Перейти(), что б ПолеХТМЛ начало загрузку страницы.

(44) +

Перем ИЕ;

Процедура       ПриОткрытии()
   ИЕ = Новый COMОбъект("InternetExplorer.Application");
       ИЕ.Visible = Ложь;
КонецПроцедуры

Функция        ДождатьсяЗагрузкиДокумента(IE,ВСостояние = "Загрузка страницы...",Таймаут = 20)
   
   ДатаПоТаймауту = ТекущаяДата() + 20;
   Пока НЕ IE.Document.readyState = "complete" Цикл
       Состояние(" " + (ДатаПоТаймауту - ТекущаяДата()) + " " + ВСостояние); ОбработкаПрерыванияПользователя();
       Если ДатаПоТаймауту <= ТекущаяДата() Тогда Прервать; КонецЕсли;
   КонецЦикла;

   Возврат (IE.Document.readyState = "complete");
   
КонецФункции

Функция        ПолеХТМЛПерейти(ПолеХТМЛ,URL)

   ИЕ.Navigate(URL);
   Загружен = ДождатьсяЗагрузкиДокумента(ИЕ);    
   Если Загружен Тогда ПолеХТМЛ.УстановитьТекст(ИЕ.Document.documentElement.outerHTML); КонецЕсли;
   
КонецФункции


Процедура       КнопкаВыполнитьНажатие(Кнопка)
    Сообщить(ТекущаяДата());
    ПолеХТМЛПерейти(ЭлементыФормы.ПолеHTML,"http://yandex.ru");
    Сообщить("" + ТекущаяДата() + " загружен");
КонецПроцедуры

(44) +

Сообщает:
 04.03.2009 6:54:24
 04.03.2009 6:54:26 загружен


Еще есть особенность использования InternetExplorer.Application в Висте.
Т.к. там эксплорер с закладками, то при Navigate и определенных настройках (по умолчанию) он откроет новую вкладку, и при обращении к ИЕ.Document вылетет с ошибкой.

(44) +

Еще вариант

Процедура    ПолеХТМЛПерейти(ПолеHTML,УРЛ)    
  Сообщить(ТекущаяДата());
  ГетЗапрос = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
  ГетЗапрос.Option(9,80);
  ГетЗапрос.Open("GET",УРЛ,0);
  // ГетЗапрос.setRequestHeader("Content-Type","text/xml; charset=Windows-1251");
  ГетЗапрос.Send();
  ПолеHTML.УстановитьТекст(ГетЗапрос.Responsetext);
  ГетЗапрос = Неопределено;
  Сообщить("" + ТекущаяДата() + " загружен");
КонецПроцедуры

в этом варианте нет дождаться загрузки

Вопрос с тестилки проф. по платформе 8.1.:

Для отслеживания момента полной загрузки HTML документа в элементе управления "Поле HTML документа" можно использовать:
1. Проверку свойства "URL" данного элемента управление на равенство заданному адресу ресурса
2. Проверку свойства "Значение" данного элемента управление на равенство "Null"
3. Проверку свойства "Значение" данного элемента управление на равенство "Неопределенно"
4. Флаг модифицированности формы
5. Обработчик события "Документ сформирован" данного элемента управления, в котором при этом производится проверка свойства URL на равенство заданному адресу ресурса

Правильный ответ: 5. Г-ну 73 пятерка :)

(48) и сколько гемора что б написать пошаговый код:
1. Переход на нужный урл
2. Получение ХТМЛ кода
3. Обработка ХТМЛ кода.

после первого шага обработчик надо отпустить, значит остальные шаги будут висеть на ДокументСформирован - некрасиво будет.

поэтому и в (41) после Перейти() весит "complete" от старой страницы.

(48) Спасибо, не ожидал :)