Открываю новую тему, в которой будем общаться относительно сабжа, как продолжение оффтопной темы http://www.1cpp.ru/forum/YaBB.pl?num=1315559526. Буду сюда скидывать свои наработки по использованию этого "чуда", надеюсь и активисты подтянутся, всё-таки коллективный разум это сила.


1. ОС

Ближе к теме. Предыдущая попытка поделиться примером управления DOM-моделью HTML-документа потерпела фиаско по причине того, что Win7 и Win2008 более-менее сносно поддерживают управление узлами прямо из 1С, а вот WinXP и Win2003 можно сказать отвратительно, потому я как-то сразу и не подумал что готовое и работающее на стороне клиентов решение может у кого-то не работать. Далее буду продолжать тему в контексте WinXP, хотя и под более свежими ОС тоже будет работать.

2. DOM

Значит путем экспериментов выяснилось, что управлять нормально DOM напрямую из 1С нельзя, из MSScriptControl.ScriptControl получше но полноценно тоже нельзя, из javascript внутри HTML-документа (или приаттаченого) - управляется практически полноценно. Об этом свидетельствовали веб-страницы с активным содержимым, которые загружались и работали без проблем.

3. Скрипты

Значит нужно вынести весь функционал по управлению DOM в скрипты. Вопрос в том как вызывать эти скрипты, как передавать туда параметры и как возвращать результаты.

3.1. Вызов скриптов

Единственная возможность вызвать скрипты в окне WebBrowser - это через метод ExecScript родительского для WebBrowser объекта parentWindow.

Браузер.Объект.document.parentWindow.ExecScript(ТекстСкрипта,"JavaScript")
 

Оно работает, но есть одна фича которую нужно иметь ввиду: ExecScript - асинхронный метод, то есть управление в модуль 1С возвращается сразу после вызова скрипта, а не после его выполнения. А вот управление в форму не возращается, так что эта асинхронность как собаке пятая нога - только мешает. Но работать можно, только иметь ввиду данный факт при написании программ, чтобы не искать подолгу ошибки. В приведенном примере я специально расставил сообщения с _GetPerformanceCounter(), чтобы вы наглядно могли увидеть в каком порядке это происходит.

3.2. Передача параметров в скрипт

Так как ExecScript принимает в качестве параметра только строку, мы не можем передать в скрипт объекты напрямую, как в случае с MSScriptControl.ScriptControl.

Вы можете попробовать воспользоватся медом "Сериализовать" из класса "Система" 1С++, но вряд ли у вас выйдет что-то стабильное. Я попробовал, с одной стороны оно работает до поры до времени, с другой стороны асинхронность ExecScript приводит к тому что в какой-то момент по клику пользователя экземпляр "Системы" не готов вернуть объект и сначала скрипт выдает ошибку, а затем вываливается 1С. Если все-таки удастся решить эту проблему, я буду очень признателен.

А на данный момент можно либо усложнить себе жизнь, конвертируя объекты в JSON и обратно (еще поискать надо чем), либо просто конвертировать объекты в строку. ТЗ и списки конвертируются в строку с разделителями и в скрипте разворачиваются в виде массива (одномерного, двумерных в javascript нету, но это не очень мешает). В примере как раз реализована свертка и развертка двумерной ТЗ с помощью строки с разделителями. Работает стабильно.

3.2. Возврат результатов из скрипта, перехват событий

У нас есть один простой и надежный метод перехватывать события из WebBrowser - это событие BeforeNavigate2. В нем мы можем перехватить ссылку, по которой переходит пользователь, отменить переход, а взамен наделать кучу гадостей. В ссылку можно запихнуть тоже довольно много, если этого будет мало - то придется обратиться к методу POST, куда можно засунуть на порядок больше. Но обычно из скрипта много передавать и не приходиться - идентификатор какой-нибудь, значение введенное в поле, наименование действия и т.д., а что еще?

Но с событием BeforeNavigate2 есть неприятные тонкости: возникает оно программно из скрипта, обрабатываем мы его тоже программно, и 1С не обновляет WebBrowser до тех пор пока обработка не завершиться. Ну скажем нельзя в окне браузера выводить прогресс-бар по мере добавления строк в таблицу, статус-текст и т.п. Из этой ситуации можно выкрутиться следующим образом - в обработчике события BeforeNavigate2 мы генерируем новое событие через класс "Сервис" FormEx, управление кратковременно передается в форму, потом в предопределенной процедуре формы "ОбработкаВнешнегоСобытия" мы уже выполняем действия над WebBrowser. В примере доступно показано как это делается.

Но даже когда мы меняем содержимое WebBrowser из обработчика внешнего события (а меняем мы его запуском скрипта), окно браузера не обновиться до тех пор пока не закончиться скрипт. Поэтому при разработке программ учитывайте, что лучше 1000 раз в цикле вызвать функцию скрипта, добавляющую одну строку, чем 1 раз вызвать функцию скрипта, добавляющую разом 1000 строк. В первом случае окно будет обновляться сразу после добавления каждой строки, а во втором только после того как всё выведется. Визуально первый вариант намного предпочтительнее. Зато второй быстрее.

Интерактивный фоновый отчет по документам

А вот наклепал я практически рабочий отчет, который в фоне выводит список всех документов базы. Можно при этом спокойно работать с другими окнами, можно щелкать по строкам формирующейся таблицы, прокручивать ее. А отчет всё формируется и формируется... Кому не понятен принцип получения/вывода данных - объясню позже, очень устал...

P.S. Примеры делал без гламурных красот типа картинок и прочего - эту хрень за 10 минут добавить можно если надо, в отличие от алгоритма.

Dmitry The Wing писал(а) 20. Сентября 2011 :: 01:19:


+1

Вот с этим 3.2. Передача параметров в скрипт можно паработать.
Пример можешь подготовить, когда это невозможно сделать, чтоб ошибка выдавалась. Я посмотрю.

chessman писал(а) 20. Сентября 2011 :: 07:15:

Стёр я его, перепишу снова как время будет.

Общий смысл такой: объект "Система" объявлен в модуле, при клике в веб-форме мы формируем в 1С таблицу значений, сериализуем ее и передаем в скрипт, где происходит ее развертка. Так вот если не ждать 1-2 секунды пока таблица в скрипте обратно развернется и выведется, а упорно продолжать тыкать по кнопке "Добавить таблицу", то где-то на 10-15 тыке управление успевает получить 1С до того, как скрипт закончит работать с очередным экземпляром, и получается что новая таблица только еще сериализуется, а скрипт продолжает работать с предыдущим экземпляром (объект "Система"-то один на весь модуль), в результате скрипт не может получить очередное значение из таблицы и вываливает ошибку и валит заодно 1С. Говорю же что тут асинхронность сказывается, если только заводить по одному экземпляру "Системы" на каждую сериализацию, а потом удалять их по команде из скрипта.

P.S. Лучше JSON реализовать - посмотрел я, не так там всё и сложно, а возможности представления структур такие же как у XML, то есть можно хранить структуры любой сложности, а разворачивается структура из строки простым методом eval(str) в яваскрипте. Есть пример кодировки структур и объектов в JSON из 1С8, думаю можно и под 1С77 переписать: http://infostart.ru/public/59535/

maljaev писал(а) 20. Сентября 2011 :: 10:31:


Вот это не поможет?

http://www.1cpp.ru/forum/YaBB.pl?num=1312576677/15#24

Сделай пример, где ТЗ передается без сериализации. В скрипте работай с ТЗ, как с обычным объектом 1С, только методы и наименования колонок используй английские.
Пускай 1С ругается, я дальше гляну, может взлетит.

Пример взял из "Журнала".
Эх, жаль, что на javascript все написано. На vbs'е было бы проще. 

Пример и класс DWX.Blang (просто создать 1 раз за сессию, он пропатчит Blang)

Ура, у меня получилась классная вещь! Оказывается можно сериализовать контекст формы!   Вот что делаем:

Функция get_object(ИмяОбъекта)
	Возврат СоздатьОбъект(ИмяОбъекта);
КонецФункции

Процедура HTML_DocumentComplete()
	));
КонецПроцедуры
 

var object1C;

function initObject1C(obj) {

	object1C=GetObject(obj);

	var tz=object1C.get_object("ТаблицаЗначений");
	tz.ChooseLine(); // это работает !!!

	var myclass=object1C.get_object("МойКласс"); // это тоже работает !!!

}
 

И больше не нужно никаких обработчиков событий и т.д. - скрипт сам получает из 1С нужную информацию - заметьте любую, вплоть до пользовательских классов. Думаю что можно даже прямо к форме обратиться из скрипта, но не пробовал.

Единственная проблема - 1С вываливается тихо при закрытии обработки. Видимо надо какой-то деструктор для сериализованного контекста делать, chessman - может разберешься в чём дело?

по моему надо при закрытии

Процедура ПриЗакрытии()
	Браузер.Уничтожить();
КонецПроцедуры
 

проверить не могу потому что у меня еще раньше валиться твой
тестовый пример.

ps Только что увидел твой код
Все равно к #13 надо добавить #14