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

мСоединение = СоздатьОбъект(V77s.Application);
//..... Указываем параметры базы .....
Соединяемся = мСоединение.Initialize(мСоединение.RMTrade + Каталог + Пользователь + Пароль + Немонопольный режим + без заставки);

Получаем нужные нам данные, все замечательно, закрываем все базы и видим, что 1С больше не запускается, потому что в менеджере задач навечно зависает процесс 1Cv7s.exe, очевидно занятый этим соединением. Само не закрывается, его можно только убить из таск менеджера с последующей реиндексацией базы, к которой обращались. База файловая, то бишь не на скуле, до десятка пользователей, выполняется каждые 2 минуты, работать невозможно((

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

(0) мСоединение.ЗавершениеРаботыСеанса(0);
//При этом в БД прописываешь, что нудно выйти без вопросов :)

Или

//Пишешь...
мСоединение = 0;

v8: Кто как "отключает" подключенную по ОЛЕ базу 1с77 ?

(1) Замечательно работает при подключении в семерку из восьмеры, а из семерки в семерку к сожалению не идет, процесс остается висеть(
Процедуры ЗавершениеРаботыСеанса к сожалению нету - самописное нетиповое все.. Хотел попробовать вырвать из ТиСа, но в глобальном модуле таковой нету.. Может не там ищу или это фишка восьмерочных конфигураций?

(2) Спасибо, но опять же, работает для подключения из восьмерки в семерку, а из семерки в семерку нет( висит процесс и никуда не девается..

(3) ЗавершитьРаботуСистемы()?

(5) Для OLE эта процедура не отрабатывается!

а вот ПриНачалеРаботыСистемы() отрабатывает.

(5) (7) в ТиСе из подобного есть только бесполезная

Процедура ПриЗавершенииРаботыСистемы()
    
    Если ПустоеЗначение(глЗначениеПоУмолчанию("НеЗапрашиватьПодтверждениеПриВыходе")) = 1 Тогда
        Если Вопрос("Закончить работу с программой?", "Да+Нет", 10)="Нет" Тогда
            СтатусВозврата(0);
            Возврат;
        КонецЕсли;
    КонецЕсли;
    
    ОткрытьФормуМодально("Обработка.ТорговоеОборудование", "Отключить");
    
КонецПроцедуры

Я так понимаю, идеологически соединение, активируемое Initialize'м, должно как-то автоматически закрываться? Ведь у него есть метод инициализации (сам Initialize) а закрытия нету..

(9) Идеологически - оно имеет полное право висеть, пока не решит закрыться.

мСоединение = ""
Было?

(6) А как вызываешь?

(11) _Разрешает_ соединению закрыться.

(0) мСоединение = "";

по идее так

что бы соединение нормально закрылось надо все подчиненные оле процессы тоже убить.

ааа еще проще можно

если делаешь запуск ОЛЕ из обработки то для уничтожения объекта ОЛЕ достаточно закрыть связанную с ним форму. то есть делаешь так

Форма.Закрыть()

и твой экземлпляр ОЛЕ уничтожается

(16) Не факт.

(12) И не только процессы. Хорошо ли, плохо ли, но 7-ка - сильно щепетильна в данном вопросе. Её легко "подвесить", просто не уничтожив созданный объект. (И есть много других способов её "подвесить").

(18)->(15)

(13)еще форму надо закрыть. да?

(20) Ещё может много чего быть создано. Пока не будет ясно, что именно - идёт гадание на кофейной гуще.
Она ведь не сразу закрывается. Смотрит, кто есть ху. И постепенно убивает, кого может. А если не может - ждёт.
Посмотри через Sysinternals (да или через Диспетчер), как она веселится при закрытии.

(21) да, спасибо, надо искать. На самом деле тут все вообще весело - это мСоединение создается и инициализируется в нескольких десятках функций и процедур, которые вызываю по сути не я, а некая Cleverence Mobile Smarts. При этом сложно определить, в каких местах вообще стоит отрубать ОЛЮ, в каких этого делать не следует.. Думаю, один из перечисленных способов "убийства" подходит, надо просто искать и экспериментировать, в каких местах его нужно "мочить".. В каком-то месте подчиненные процессы явно остаются..

(17) факт

(23) К сожалению, в моем случае это даже не важно, потому что (22) - никаких форм не открывается в принципе, "все само" и закрывать нечего :)

(23) Давай проверим. Создай объект и присвой его переменной глобального модуля.

(3)
Компьютер=".";
Локатор=СоздатьОбъект("wbemscripting.swbemlocator");
Сервис=Локатор.ConnectServer(Компьютер,"root\cimv2");
СпОЛЕ=БазаОле.CreateObject("СписокЗначений");
СпОЛЕ.ДобавитьЗначение(БазаОле.CreateObject("WScript.Shell"));
СпОЛЕ.ДобавитьЗначение(БазаОле.CreateObject("Shell.Explorer"));
ТестИД=СпОЛЕ.ПолучитьЗначение(1).Exec(""""+СпОЛЕ.ПолучитьЗначение(2).fullname()+""" -Embedding").ProcessID;
ТестИД=Формат(ТестИД,"ЧВН=; ЧДЦ=0; ЧГ=0");
Процесс=Сервис.Get("Win32_Process.Handle='"+ТестИД+"'");
ПроцессИДОЛЕ=Формат(Процесс.ParentProcessID,"ЧВН=; ЧДЦ=0; ЧГ=0");;
Процесс.Terminate(0);
Сервис.Get("Win32_Process.Handle="+ПроцессИДОЛЕ).Terminate(0);

ТестИД=Формат(ТестИД,"ЧВН=; ЧДЦ=0; ЧГ=0");

лишнее

ПроцессИДОЛЕ=Формат(Процесс.ParentProcessID,"ЧВН=; ЧДЦ=0; ЧГ=0");;

Заменить на

ПроцессИДОЛЕ=Процесс.ParentProcessID;

(16) фигня муйня

(0) Нужно обнулить все переменные связанные с оленькиной базой, тогда процесс закроется.

На этот случай есть еще такая "процедура Попытка" - не пробовал?

(30) Ну и каким боком эта "процедура" (которая совсем не процедура) в данном случае?

(28) ну-ну

(25) При чем тута глобальная переменная.
Он же пишет что закрывает все 1С а процесс висит.
Тута чет у него невладах с системой.

(33) _Как_ он "закрывает все 1С"? Через OLE?
Ну так OLE - тупо считает ссылки. И удаляет объекты, у которых после Release образовался 0. А если ссылка сохранилась - то будет её держать до посинения. 1С запускается не как dll, в адресном пространстве хост-процесса, а как процесс, то есть, как "хозяин памяти".

Спасибо всем за советы. Похоже что решение выглядит примерно как

мСоединение.ExecuteBatch("ЗавершитьРаботуСистемы(0)");
мСоединение = ПолучитьПустоеЗначение();

Однако так и не удается найти подвисающий процесс. Но это уже должно быть мои "руки-голова из ж..."

(35) А попробуй в ПриНачалеРаботыСистемы и ПриЗавершенииРаботыСистемы вставить отладочные сообщения в некий лог-файл.

(36) Зачем в лог?
Достаточно этого:
ЗаписьЖурналаРегистрации("Выход");

со 100% уверенностью утверждаю
при использовании ОЛИ ПриЗавершенииРаботыСистемы() не вызывается!

(0)и вообще я же сказал это не базе проблема а в винде или 1С.

(0) для начала спробуй переустановить 1С.

вот токо щас спробовал, все красиво запускается и закрывается.
ничего не подвисает.

во.
еще момент.
что пишет по этому пользователю журнал регистрации удаленной базы?
Должен быть вход и выход.

а вот это
мСоединение.ExecuteBatch("ЗавершитьРаботуСистемы(0)");

мертвому припарка.

(38) вызывается, еще как вызывается.

Вставь в нее ЗаписьЖурналарегистрации()
и посмотри что будет.
факт выхода фиксируется а заверщенияработыситемы() фиг!

(45) вставь туда Предупреждение и посмотри

(38)еще как вызывается

+46 или еще проще - выведи на экран процесс, запущеный по оле  и хоть в сообщить пиши

да нехрена оно туда незаходит.

(49) мне не в падлу я проверил,
усё заходит :
в поделке

    ОЛЕ.ExecuteBatch("ЗавершитьРаботуСистемы(0)");

в базе
Процедура ПриЗавершенииРаботыСистемы()
    ЗаписьЖурналаРегистрации("Вася "+ТекущееВремя());
КонецПроцедуры

А

А ?

не.
мы просто друг друга не поняли.
я имел ввиду что когда этого не делать

ОЛЕ.ExecuteBatch("ЗавершитьРаботуСистемы(0)");

от при уничтожениии ОЛЕ данныя процедура не вызывается.

и даже предупреждение воткнул и через шоу1с посмотрел на окошко в оле базе..

дык (43) ..

:)

(53) и так тоже срабатывает

воткни предупреждение и любуйся окошком..

т.е.
    Путь=СокрЛП(глВернутьПараметрСтрПоКоду("ПутьКТере"));
    База=СоздатьОбъект("v77.Application");
    Состояние("Подключение к базе: "+Путь);
    стат=База.Initialize(База.RMTrade, "/D"""+Путь+""" /NАгент /P123","NO_SPLASH_SHOW");
    Если стат=0 Тогда
        Сообщить("Ошибка");
        //Возврат 0;
    КонецЕсли;
    База.ExecuteBatch("Предупреждение(""Куку"")");

делает все как надо.
при старте
1.фиксирует в журнале вход
2.отрабатывает
ПриНачалеРаботыСистемы()
3.незаходит в
ПриЗавершенииРаботыСистемы()
4.фиксирует в журнале выход пользователя

Ну Куку конечно выдает.

а и ладно, оле дин хрен в топку..

Ну не говори.
У меня используется для автоматического создания расхода в одной базе что в текущей можно было создавать приход.
Причем все должно быть в реальном времени.
Посему пришло таки юзать ОЛЮ.
Хотя отчеты и всякую хрень я делаю прямыми запросами в удаленные базы.