Remoting, отключение от сервера

[lord0n]

Коллеги, доброго времени суток.
Возникла проблема при работе с ремоутенгом:
Подключаюсь к серверу:

Код: Выделить всё


         ChannelServices.RegisterChannel(MyChannel, False)
         RemotingConfiguration.RegisterActivatedClientType(GetType(DBClass.DBClass), "tcp://" & MyMachine & ":" & MyPort & "/MBRRAPIServer/")

         MySap = New DBClass.DBClass


При первом вызове все отрабатывает замечательно.
Как только запускаю выполнение второй раз падает с ошибкой что канал мол зарегистрирован

Добавил освобождение канала:

Код: Выделить всё


         If ChannelServices.RegisteredChannels.Length > 0 Then
            ChannelServices.UnregisterChannel(ChannelServices.RegisteredChannels(0))
         End If


Канал теперь регистрируется, но при попытке активации обьекта DBClass.DBClass падает с ошибкой: "Attempt to redirect activation of type 'DBClass.DBClass, DBClass' which is already redirected."

В инете уже искал, но там на подобные вопросы внятного ответита не было

[lord0n]

Нашел способ:

Код: Выделить всё


         Dim RegType As ActivatedClientTypeEntry() = RemotingConfiguration.GetRegisteredActivatedClientTypes()

         Dim AlreadyReg As Boolean = False

         If RegType.Length > 0 Then
            Dim x As Integer
            For x = 0 To RegType.Length - 1
               If RegType(x).ObjectType.Name = GetType(DBClass.DBClass).Name Then
                  AlreadyReg = True
                  Exit For
               End If
            Next
         End If

         If AlreadyReg = False Then
            If ChannelServices.RegisteredChannels.Length > 0 Then
               ChannelServices.UnregisterChannel(ChannelServices.RegisteredChannels(0))
            End If


            ChannelServices.RegisterChannel(MyChannel, False)
            RemotingConfiguration.RegisterActivatedClientType(GetType(DBClass.DBClass), "tcp://" & MyMachine & ":" & MyPort & "/MBRRAPIServer/")
         End If

         MySap = New DBClass.DBClass


Этот кусок кода проверяет зарегистрирована ли библиотека. Если зарегистрирована, то происходит локальная регистрация (не знаю как правильно назвать, в общем вызывается конструктор MySap = New DBClass.DBClass).
Если библиотека не активирована, то он её активирует.

[Sebas]

Ужас, а пристарте низя канал зарегить и не парится?

[lord0n]

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

[Sebas]

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

Кто закрывается? Непонял.

[lord0n]

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

Кто закрывается? Непонял.

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

Другая прога вызывает мою библиотеку (клиентскую часть). Дллка конектится к серверу. Сервер получает данные из БД и возвращает их дллке. Она их обрабатывает, возвращает результат и завершает работу.

Но канал почему то остается открытым (я так понимаю он будет открыт пока не пройдется сборщик мусора)

[Sebas]

Она ... и завершает работу.

Что подразумевается под этим?

[lord0n]

Она - это библиотека
Завершает работу - сбрасывает в нафин все переменные и обьекты
Теоретически должна выгружаться из памяти
Код завершения в программе которая вызывает библиотеку выглядит так:

Код: Выделить всё


   obj.Dispose
   Set obj = Nothing