А ты сам подумай. Не у всех активных пользователей может быть загружена компонента.

метод конечно нужный и востребованный, но никак не пойму - чем его реализация может принципиально отличаться от пертурбаций с ОбработкойОжидания() или посылки/обработки внешних событий?.. Опять же для последнего, насколько я понимаю, нужно использовать какой-нибудь сетевой протокол, или создавать свой, опять же порты - какие использовать?..

хоть тресни - не пойму - сам то ты как эту методику представляешь?

В принципе, все это запросто решаемо.
Те же майлслоты, например - что может быть проще.

Или свой сервер приложений сделать - это интереснее.
Но думать надо больше.

Сейчас вот еще можно писать сервера для компоненты Степана.

Уже тыщу лет существует компонента раруса для обмена сообщениями через MSMQ.
Только пользовался ли ей кто-нибудь хоть однажды? хз.

---

А абстракция, по-любому будет дырявой.
Из-за протоколов, сетевых экранов и т.д.

Короче, все как всегда.


_{P.S.
Тока у меня через неделю отпуск (ха-ха).
Дембель в маю - дембель в маю - дембель и все по ... пиип...}

kms писал(а) 07. Августа 2006 :: 20:16:

Действительно у Икс-технологии.
Они декларировали, что компонента распространяется бесплатно по запросу.
Когда-то я их закидал запросами - и ничего. Никакого ответа - ни положительного, ни отрицательного.
Зато теперь для обмена через MSMQ есть EventProxy.dll

Асинхронный обмен данными можно сделать на NetaInet.dll  (http://1c.proclub.ru/modules/mydownloads/personal.php?cid=81&lid=2691). Хоть от от одного ко всем, хоть от всех к одному, хоть от всех ко всем  (это уже будет DOS-атака )).  Геморно правда, но можно. Самое х#ровое во всём этом - это то, что 1С ни разу не многопоточная система, и при асинхроне происходят иногда странные глюки. Забавно наблюдать, как валятся какие-то мессаги в окне сообщений, в то время как ты шарахаешься по менюшкам.
И что касается отладки...  ну, кто хоть раз в жизни отлаживал асинхронные системы, тот меня поймёт 

Ну делай тогда тригер, а в тригере уже делай любые дествия, например передавай сообщения 1С-ке

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

По всей вероятности мой вопрос не понят до конца или я не пойму всех вас.
Меня не устраивает периодическое отслеживание события, а обработка ожидания это оно и есть, т.е. обращение к гл.процедуре с заданным интервалом. Нужен запуск "спящей" глобальной процедуры/функции у всех пользователей по команде (по срабатыванию триггера) у любого из пользователей. Не могу же я в ПриНачалеРаботыСистемы написать "ОбработкаОжидания("НужнаяПроцедура",Интервал)", вернее можно все, но сисма только и будет заниматься тем, что ждать, когда кто-нибудь сделает то, что мне нужно знать.

DrACe писал(а) 11. Августа 2006 :: 04:48:
Не согласен. Не все. А как же CallBack-вызовы?

Цитата:


приведи все же свой конкретный пример и может кто-нибудь предложит тебе простую альтернативу тому, чего все равно еще нет (да и не известно - появится ли)

тогда очевидный тупой вопрос: когда менеджеру нужны Актуальные остатки(а не просто подбор номенклатуры)  - почему бы не нажать кнопку "Обновить"? 
Ведь все равно при проведении документа остатки будут контролироваться снова и может так получиться, что кто-нибудь из юзеров успеет списать остаток во время заполнения документа при имевшихся в наличии мгновение назад на форме подбора остатках.

...или менеджер, как в матрице(или на бирже) - просто смотрит на бегущие цифры, меняющиеся остатки на глазах, потом кричит - стойте все!!! Дайте отгрузить ведро гаек!  Не обижайся, пожалуйста, другие подскажут более конструктивно - у меня такое решение и я его могу отстаивать

Цитата:

Конечно! А кто будет остатки контролировать?! В твоем случае это лучше делать при печати. Причем сразу в этот момент сохранять и проводить документ.

kms писал(а) 10. Августа 2006 :: 06:41:

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

А пока решил попробовать GTTools, я ее с Проклуба скачал. Может быть кто-то уже пробовал ее в деле?

Цитата:

Да, спасибо. Идея очень заманчивая. Вот только запустить ее я так и не смог (отсутствует CLSID), несмотря на то, что выполнил все инструкции, расписанные в комментариях к ВК на Проклубе. Ищу что-нибудь похожее.

Утро вечера мудреней...
Для себя решил я эту задачу, взяв идею из GTTools о своем мини-сервере. Правда без обработки ожидания не получается, но при малой периодичности опроса риск промахнуться сведен до минимума. Идея такова: создается файл формата БД, мето расположения выбирается любое удобное, можно и в БД. Поля: Имя пользователя, Флаг присутствия и поля, нужные для использования, напр. Флаг движения рег.остатков ТМЦ, Сообщение и т.д.. При начале работы системы у каждого, кто ее запускает, в записи с ID этого пользователя устанавливается флаг 1 или 2 (монопольно). При завершении - флаг 0 (аналог 1SUsers). При выполнении операции, которую должны заметить все, или выбранные юзеры, в этом сервере далаются записи в поле "Флаг операции ХХХ". При переодическом опросе у тех юзеров, кому этот сигнал предназначен, получают его. После приема сигнала значение в поле обнуляется. При повторном опросе, если записи нет ничего не происходит и так, до следующего сигнала.
Если кому будет интересно, то я выложу код. Работает зараза: и запускает процедуры, и выдает сообщения, и открывает формы - прямо конференция в 1С (прямо хоть патентуй), причем необязательно использование никаких ВК (для DBF), в т.ч. 1С++, одно только могу сказать, что прямой запрос конечно на все головы выше обычноых методов работы с DBF.
Жаль только, что не получилось использовать 1С в асинхронном режиме, но раз Drace сказал, что бояться использования обработки ожидания через каждую секунду не нужно - Let it be.

Для этого и нужна eventproxy

Ты вечно спешишь непонятно куда...

1С + MSMQ посылает сообщение. Другой 1С + MSMQ + evenproxy (а она нужна именно для того чтобы поймать ивенты) ты поймал событие.


Странно, что как применить GTTools ты понимаешь, а все другие подобные варианты отрицаешь

MSMQ это GTTools, только в 1000 круче
Да простит меня БГ.

Цитата:

интересно

Цитата:

Э-эх. Да там кода на три копейки:

Перем Инфо, ОбработчикСобытийОчереди, EventProxy, Очередь;
//*******************************************
Процедура Отправить()
	Оч=Инфо.Open(2,0);
	Сообщение=СоздатьОбъект("MSMQ.MSMQMessage");
	Сообщение.Body=Тело;
	Сообщение.Send(Оч);
КонецПроцедуры

Процедура ПриОткрытии()
	//Для отсылающего приложения
	Сервер=".";
	Инфо=СоздатьОбъект("MSMQ.MSMQQueueInfo");
	Инфо.PathName=Сервер+"\private$\test";
	Попытка
		Очередь=Инфо.Open(2,0);
	Исключение
		Инфо.Create(0,-1);
	КонецПопытки;
	//Для принимающего приложения
	ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"EventProxy.dll");
	ОбработчикСобытийОчереди=СоздатьОбъект("MSMQ.MSMQEvent");
	EventProxy=СоздатьОбъект("Addin.EventProxy");
	EventProxy.ГлубинаБуфераСобытий=200;
	);
	Очередь=Инфо.Open(1,0);
	Очередь.EnableNotification(ОбработчикСобытийОчереди)
КонецПроцедуры	// ПриОткрытии	//

Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
	Если (Источник="ОчередьСообщений") и (Событие="Arrived") Тогда
		Сообщение=Очередь.ReceiveCurrent();
		//Тут обрабатываем сообщение
		Сообщить(Сообщение.Body);
		Очередь.EnableNotification(ОбработчикСобытийОчереди);
	КонецЕсли;
КонецПроцедуры	// ОбработкаВнешнегоСобытия

Процедура ПроверкаАсинхронности()
	Для Сч=1 По 20 Цикл
		Оч=Инфо.Open(2,0);
		Сообщение=СоздатьОбъект("MSMQ.MSMQMessage");
		Сообщение.Body="Сообщение №"+Сч;
		Сообщение.Send(Оч);
		Сообщить(Сообщение.Body+" послано");
	КонецЦикла;
	Сообщить("что-то еще делаем");
КонецПроцедуры	// ПроверкаАсинхронности

Процедура ПриЗакрытии()
	Очередь.Close();
КонецПроцедуры	// ПриЗакрытии 

Спасибо Steban.
MSMQ пока еще щупаю, а с обработкой ожидания я решил обойтись без применения других ВК. Получилось, даже замечательно. Смотрю интерес (маленький такой) есть, поэтому привожу код для DBF, здесь только сообщалка, каждый сделает себе то, что ему надо.
Глобальный модуль:

Перем Записи 	  Экспорт;
Перем Юзер     	Экспорт;
//_____________________________________________________________________________
Процедура ПриНачалеРаботыСистемы()
	СМС = КаталогИБ() + "_1SMS.dbf";
	Если ФС.СуществуетФайл(СМС) = 0
	Тогда
		ДБ = СоздатьОбъект("xBase");
		ДБ.ДобавитьПоле("USER",2,24,0);
		ДБ.ДобавитьПоле("MESS",2,50,0);
		ДБ.СоздатьФайл(СМС);
		ДБ.ЗакрытьФайл();
	КонецЕсли;
	Юзер = Лев(ИмяПользователя()+"				",24);

	БазаДанных = СоздатьОбъект("ODBCDatabase");
	Рез = БазаДанных.Соединение("DRIVER=Microsoft Visual FoxPro Driver;
	|Deleted=Yes;
	|Null=Yes;
	|Collate=RUSSIAN;
	|BackgroundFetch=Yes;
	|Exclusive=No;
	|SourceType=DBF;
	|SourceDB=" + КаталогИБ());
	Если Рез <> 0 Тогда
		Записи = СоздатьОбъект("ODBCRecordSet");
		Записи.УстБД(БазаДанных);

		Если МонопольныйРежим() = 1
		  Тогда
			Записи.Выполнить("DELETE FROM _1SMS");
		  Иначе
		    Записи.УстановитьТекстовыйПараметр("Юзер",Юзер);
			Записи.Выполнить("INSERT INTO _1SMS VALUES (:Юзер,'')");
		    ОбработкаОжидания("Опрос",5);
		  КонецЕсли;

	КонецЕсли;
КонецПроцедуры //ПриНачалеРаботыСистемы
//_____________________________________________________________________________
Процедура Опрос() Экспорт
	Записи.УстановитьТекстовыйПараметр("Юзер",Юзер);
	  ТЗ = Записи.ВыполнитьИнструкцию("SELECT MESS FROM _1SMS WHERE _1SMS.USER = :Юзер AND _1SMS.MESS <> ''");
	Если ТЗ.КоличествоСтрок() <> 0
	Тогда
	    Стр = ТЗ.ПолучитьЗначение(1,"MESS");
		Записи.УстановитьТекстовыйПараметр("Юзер",Юзер);
		Записи.УстановитьТекстовыйПараметр("Сообщение","Это послание всем");
	    Записи.Выполнить("UPDATE _1SMS SET _1SMS.MESS = '' WHERE _1SMS.USER = :Юзер");
		Сообщить(Стр);
	КонецЕсли;
КонецПроцедуры //Опрос
//_____________________________________________________________________________
Процедура ПриЗавершенииРаботыСистемы()
	Если ПустоеЗначение(Записи) = 0
	Тогда
		Записи.УстановитьТекстовыйПараметр("Юзер",Юзер);
	    Записи.Выполнить("DELETE FROM _1SMS WHERE _1SMS.USER = :Юзер");
	КонецЕсли;
КонецПроцедуры //ПриЗавершенииРаботыСистемы
 

И есть обработка:

//_____________________________________________________________________________
Процедура ПередатьСообщение()
	Записи.УстановитьТекстовыйПараметр("Сообщение",Сообщение);
	Если КонкретномуАдресату = 1
	Тогда
		Записи.УстановитьТекстовыйПараметр("Юзер",Адресат);
		  Записи.Выполнить("UPDATE _1SMS SET _1SMS.MESS = :Сообщение WHERE _1SMS.USER = :Юзер");
	Иначе //если всем, кроме меня
		Записи.УстановитьТекстовыйПараметр("Юзер",Юзер);
		  Записи.Выполнить("UPDATE _1SMS SET _1SMS.MESS = :Сообщение WHERE _1SMS.USER <> :Юзер");
	КонецЕсли;
КонецПроцедуры //ПередатьСообщение
 

Мне нравится (сам себя не похвалишь...)

pavlo писал(а) 25. Августа 2008 :: 10:08:

А ты сам попробуй
У ФормЕкс обработка ожидания или Таймер не ждут освобождения 1С