Как корректно завершить COM соединение? #248517

После установки соединения из программы на VS Basic for .NET там объекту присваиваю Nothing, но пользователь так и остается на сервере работающим, а процесс nhsrvice.exe(HASP LM) постоянно жрет память и время проца(50%), приходится перезагружать :(

Покажи код

Dim СерверМТ As TcpListener = New TcpListener(IPAddress.Parse(стрАдресСервера), 8000)        СерверМТ.Start            Dim КПК As TcpClient = СерверМТ.AcceptTcpClient            Dim Поток As NetworkStream = КПК.GetStream            Dim ОбъектЧтение As New BinaryReader(Поток)            Dim ОбъектЗапись As New BinaryWriter(Поток)            Dim ВосьмеркаСОМ As V8.COMConnector = New V8.COMConnector            Dim Восьмерка As Object = ВосьмеркаСОМ.Connect(стрСоединениеV8)                Dim Сообщение As String = ОбъектЧтение.ReadString                If Сообщение = СообщенияКлиента.ПередаюИмяАгента Then                If Сообщение = СообщенияКлиента.ПолучитьТаблицуМаршруты Then                    ОбъектЗапись.Write(СообщенияСервера.ВернутьТаблицуМаршруты)                    Dim ТекстЗапроса As String = СформироватьТекстЗапроса(ВидыЗапроса.ПоМаршрутам)                    Dim тзМаршруты As Object = Восьмерка.всРезультат                    Dim ИндексСтроки As Integer                    Dim КоличествоСтрокВТаблице As Integer = тзМаршруты.Количество                    Dim СтрокаТаблицы As Object                    For ИндексСтроки = 0 To КоличествоСтрокВТаблице - 1                If Сообщение = СообщенияКлиента.ПолучитьТаблицуКонтрагенты Then                    ОбъектЗапись.Write(СообщенияСервера.ВернутьТаблицуКонтрагенты)                    Dim ТекстЗапроса As String = СформироватьТекстЗапроса(ВидыЗапроса.ПоКонтрагентам)                    Dim тзКонтрагенты As Object = Восьмерка.всРезультат                    Dim ИндексСтроки As Integer                    Dim КоличествоСтрокВТаблице As Integer = тзКонтрагенты.Количество                    Dim СтрокаТаблицы As Object                    For ИндексСтроки = 0 To КоличествоСтрокВТаблице - 1                If Сообщение = СообщенияКлиента.ПолучитьТаблицуДоговоры Then                    ОбъектЗапись.Write(СообщенияСервера.ВернутьТаблицуДоговоры)                    Dim ТекстЗапроса As String = СформироватьТекстЗапроса(ВидыЗапроса.ПоДоговорам)                    Dim тзДоговоры As Object = Восьмерка.всРезультат                    Dim ИндексСтроки As Integer                    Dim КоличествоСтрокВТаблице As Integer = тзДоговоры.Количество                    Dim СтрокаТаблицы As Object                    For ИндексСтроки = 0 To КоличествоСтрокВТаблице - 1                If Сообщение = СообщенияКлиента.ПолучитьТаблицуНоменклатура Then                    ОбъектЗапись.Write(СообщенияСервера.ВернутьТаблицуНоменклатура)                    Dim ТекстЗапроса As String = СформироватьТекстЗапроса(ВидыЗапроса.ПоНоменклатуре)                    Dim тзНоменклатура As Object = Восьмерка.всРезультат                    Dim ИндексСтроки As Integer                    Dim КоличествоСтрокВТаблице As Integer = тзНоменклатура.Количество                    Dim СтрокаТаблицы As Object                    For ИндексСтроки = 0 To КоличествоСтрокВТаблице - 1                If Сообщение = СообщенияКлиента.ПолучитьТаблицуПродажи Then                    ОбъектЗапись.Write(СообщенияСервера.ВернутьТаблицуПродажи)                    Dim ТекстЗапроса As String = СформироватьТекстЗапроса(ВидыЗапроса.ПоПродажам)                    Dim тзПродажи As Object = Восьмерка.всРезультат                    Dim ИндексСтроки As Integer                    Dim КоличествоСтрокВТаблице As Integer = тзПродажи.Количество                    Dim СтрокаТаблицы As Object                    For ИндексСтроки = 0 To КоличествоСтрокВТаблице - 1                If Сообщение = СообщенияКлиента.КонецСеанса Then

В режиме COM соединения не работает ЗавершитьРаботуСистемы, может есть аналог?

Посмотри в файлике /1cv8/V8AddDoc810.htm описание программного интерфейса администрирования сервера 1С:Предприятия, который доступен через COM объект V8.COMConnector. Пример удаления всех соединений (фрагмент на VBScript):

Спасибо за ответы буду пытаться :)

а можно вопрос? а что это? Dim ВосьмеркаСОМ As V8.COMConnector

ой, я знаю что это :)

Мдя ... это самое

мда.. вот что значит телепатия..уже с полуслова всё понимают..

мистОзависимость, сначала спросил-потом подумал :)

чудно:) говорят что скорость мысли чуть меньше скорости света))

их просто нет у меня :)

думаю, все проще:            .....

а мы в COM-соединении применяем ПрекратитьРаботуСистемы  - эта команда завершает соединение сразу и бесповоротно, а вот ЗавершитьРаботуСистемы не всегда сразу завершает, а может, например, до конца модуля дождаться и потом вообще не отключиться. Попробуй.