Компонента грузиться о вот Перехватчик хоть ты его тресни не хочет работать.
Смысл в следующем
База лежит на серваке 2003.
Standart.
На серваках такого же типа только Enterpr R2 все нормально + компонента грузиться нормально да и все классы тоже.
Че делать ума не приложу.
Разница в серваках только в том что они не R2 и все.
Может где-то еще.
Помощить справиться.

А настройка для Перехватчика случайно не выключена?
или она принудительно включается в начале работы 1С++ ?
каков порядок загрузки ВК ?
когда включается перехват?
и т.д.
пиши подробнее, пока ничего не понятно.

вот модуль загрузки
Функция глЗагрузитьВнешниеМодули()
     СпКомпонент=СоздатьОбъект("СписокЗначений");
     // Список с внешними модулями, Значение=Имякомпоненты, Строковое представлание 1-обязательная загрузка 0- не обязательно
     СпКомпонент.ДобавитьЗначение("TabCtrl.dll",0);
     СпКомпонент.ДобавитьЗначение("1cpp.dll",1);
     СпКомпонент.ДобавитьЗначение("formex.dll",1);
     СпКомпонент.ДобавитьЗначение("turbomd.dll",1);
     СпКомпонент.ДобавитьЗначение("RWidjets.dll",0);
     СпКомпонент.ДобавитьЗначение("DialMail.dll",1);
     СпКомпонент.ДобавитьЗначение("AddIn.FileWatcher",0);
     //СпКомпонент.ДобавитьЗначение("migrate3.dll",0);vk_ChangeNotification.dll
     СпОшибок=СоздатьОбъект("СписокЗначений");
     Для н=1 По СпКомпонент.РазмерСписка() Цикл
           стр="";
           ИмяКомпоненты=СпКомпонент.ПолучитьЗначение(н,стр);
           Критично=Число(стр);
           стат=глЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
           Если Критично=1 Тогда
                 Если стат=0 Тогда
                       СпОшибок.ДобавитьЗначение(ИмяКомпоненты);
                 КонецЕсли;
           КонецЕсли;
     КонецЦикла;
     Если СпОшибок.РазмерСписка()=0 Тогда
           // все ок , т.е. все требуемые модули подгружены.
           Инфо=СоздатьОбъект("MetaInfoClasses");
           ЭтоSQL=Инфо.ЭтоSQL_Версия();
           глМетаДата=СоздатьОбъект("MetaDataWork");
           глСервис=СоздатьОбъект("Сервис");
           глСервис.ИспользоватьПланРаскраски(1);
           // добавил обработку ожидания для Менеджеров
           //глСервис.ОбработкаОжидания("глОбработкаОжидания",10*60*1000);
           глСервис.ВключитьРаскраскуТаблиц();
           //глСервис.ОбработкаОжидания("глОбработкаОжидания",2*1000);
           глФормаРасш=СоздатьОбъект("РасширениеФормы");
           мнМеню=СоздатьОбъект("Меню");
           мнМеню.УдалитьВсе();
           мнФайл=мнМеню.ПолучитьСистемное("Файл");
           мнФайл.ДобавитьКоманду("Excel", "Сохранить в Excel", "ОткрытьФорму (""Отчет"",,КаталогИБ () + ""ExtForms\Быстрое сохранение mxl в xls.ert"")");
           мнМеню.Обновить();
           
           Сист=СоздатьОбъект("AddIn.SystComm");
           Если Метаданные.Константа("IDD").Выбран()=1 Тогда
                 СпрКоды=СоздатьОбъект("Справочник.КодыБаз");
                 СпрКоды.НайтиПоКоду(Константа.IDD);
                 глТекущаяБаза=СпрКоды.ТекущийЭлемент();
                 Если глТекущаяБаза.Склад.Выбран()=0 Тогда
                       глЦентр=Да;
                 КонецЕсли;
                 //ЗаголовокСистемы(глТекущаяБаза);
           КонецЕсли;
           СтрЗаголовок=Метаданные.Комментарий;
           СтрЗаголовок=СтрЗаголовок+" <"+СокрЛП(глТекущаяБаза)+">";
           Сист.ЗаголовокСистемы(СтрЗаголовок);
           //глСервис.ИконкаПредупреждения(1,1,1);
           //глСоединениеМОД=глСоединение();
           //глСервис.ОбработкаОжидания("глПроверкаЗавершенияРаботы",15000);
           УправлениеНастройками = СоздатьОбъект("УправлениеНастройками");
           Если УправлениеНастройками.Получить("EnableDebugging")=0 Тогда
                 УправлениеНастройками.Включить("ПерехватитьСобытияГК");
                 Перехватчик = СоздатьОбъект("Перехватчик");
                 Перехватчик.ПодключитьСобытие_НеобработаннаяОшибка();
                 Перехватчик.ПодключитьСобытие_ЗаписьСобытияЖурналаРегистрации();
                 ;
                 ПерехватчикСобытий=СоздатьОбъект("ПерехватГМ");
                 ПерехватчикСобытий.ВключитьПерехватСобытий();
           КонецЕсли;
           Если ПустоеЗначение(глКонстанта("РегистрацияSQL"))=0 Тогда
                 ТекстЗапр="
                 |if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[log]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
                 |CREATE TABLE [dbo].[log] (
                 |[Row_Id] [int] IDENTITY (1, 1) NOT NULL ,
                 |[DateTimePos] [datetime] NULL ,
                 |[UserName] [varchar] (24) COLLATE Cyrillic_General_CI_AS NULL ,
                 |[EventCategory] [varchar] (20) COLLATE Cyrillic_General_CI_AS NULL ,
                 |[Event] [varchar] (20) COLLATE Cyrillic_General_CI_AS NULL ,
                 |[EvType] [varchar] (50) COLLATE Cyrillic_General_CI_AS NULL ,
                 |[comment] [text] COLLATE Cyrillic_General_CI_AS NULL ,
                 |[object] [char] (23) COLLATE Cyrillic_General_CI_AS NULL ,
                 |[ObjDescr] [text] COLLATE Cyrillic_General_CI_AS NULL
                 |) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
                 |";
                 Запрос=глСоединение();
                 Запрос.ВыполнитьСкалярный(ТекстЗапр);
                 глЖурналРегистрации=глСоединение();
           КонецЕсли;
           Попытка
                 //ИмяВК="AddIn.FileWatcher";
                 //глСканер=СоздатьОбъект(ИмяВК);
                 //глСканер.ОтслеживатьПодкаталоги=0;
                 //глСканер.НачатьКонтрольИзменений("c:\");
                 
           Исключение
           КонецПопытки;
           
     КонецЕсли;
     Если СпОшибок.РазмерСписка()>0 Тогда
           Возврат СпОшибок;
     Иначе
           Возврат 1;
     КонецЕсли;
КонецФункции      // глЗагрузитьВнешниеМодули

Версии последние.
И щераз кажу что все везде работает.
Причем на одном даже на версии 1С++ 3.1.7
и все пучком
на других (в том числе и неработающей) стоит 3.1.22

Результат тот же.
Перехватчик не стартует.
И это причем не токо на сервере но и на рабочих станциях.
Будут какие-то соображения.
На рабочих станциях ни кто в настройки не лазил.
Да и вообще-то они и не в курсах че тама моно сделать.

Ну попробуй загрузку части ВК убрать и проверь работу Перехватчика.

Eprst писал(а) 02. Марта 2010 :: 07:24:

Да, вполне может быть.
Мое предложение выше "убрать часть ВК" наверняка привело бы к данному результату.