Delphi COM 1c 8.2 Обработка дисконнектов

[SolidSnake]

Добрый день форумчане.
Пишу сервис в среде Borland Delphi 2006, который подключается к 1с по COM-соединению.
Подключаюсь так.

 con1c:=createOleObject('V82.COMConnector');
  conn:=con1c.connect(ConnectionString );

Подключается без проблем.
Каждый день запланирован ребут 1с сервера. (Ну бывают и нештатные ситуации )
Как корректно обработать событие разрыва подключения сервиса с 1с сервером?
Попробовал вызывать процедуру "проверки соединения":
======

try
     User1c :=conn.ПараметрыСеанса.ТекущийПользователь.Код;
  except
     con1c:=Unassigned;
     conn:=Unassigned;
  end;

=======
дальше "Переподключение "

try
             begin
              
              if VarIsEmpty(conn) then
                begin
                  con1c:=createOleObject('V82.COMConnector');          
                  conn:=con1c.connect('Srvr='connectstring');           
               end;
             end;
          except on E:Exception do
            begin
              con1c:=Unassigned;
              conn:=Unassigned;

Вроде даже все переподключается. Но через некоторое время, сервис сваливается с сообщением типа "Access Violation at 0X0bf05355 write of address 0x4cfe3fa3.Process Stopped ".

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

[Человек_Борща]

Не понятно. Хотя нет, 1c и Delphi

try
     User1c :=conn.ПараметрыСеанса.ТекущийПользователь.Код;
  except
     con1c:=Unassigned;
     conn:=Unassigned;
  end;

Шедевр


По теме:
Поставьте MadExcept, подключите к проекту, пересоберите проект и пускайте в ход, при ошибке получите массу полезной информации о том, откуда ноги растут.

[SolidSnake]

Если кому интересно, то bugreport во вложении.
Что то мне подсказывает , что просто не выгружаются вовремя 1сные модули .

[Человек_Борща]

Ошибка не у вас. Вы вызываете исключение в ПО, которое хотите прибить.

[SolidSnake]

Если я правильно понял, то вы имеете ввиду мой шедевр ?

try
     User1c :=conn.ПараметрыСеанса.ТекущийПользователь.Код;
  except
     con1c:=Unassigned;
     conn:=Unassigned;
  end;

[Человек_Борща]

я толком, не понимаю, что там происходит.
Но код просто не имеет смысла.

  except
     con1c:=Unassigned;
     conn:=Unassigned;
  end;

этот код выполнится только, если здесь

   try
     User1c :=conn.ПараметрыСеанса.ТекущийПользователь.Код;

будет ошибка.

Вам будет лучше спросить на форумах 1c, как правильно завершать сеанс пользователя(закрывать подключение к серверу) и запускать его снова. А потом уже это через API делать.

[SolidSnake]

в случае дисконнекта, conn.ПараметрыСеанса.ТекущийПользов атель.Код;
возвращает исключние с сообщением

к примеру "
21.02.2013 14:19:34: Сервер баз данных не обнаружен
Microsoft OLE DB Provider for SQL Server: [DBNETLIB][ConnectionOpen (Connect()).]SQL Server не существует, или доступ запрещен.
HRESULT=80004005, SQLSrvr: SQLSTATE=08001, state=1, Severity=10, native=17, line=0, SrvrName=dbsrv\dbsrv
21.02.2013 14:20:29: Сервер баз данных не обнаружен "

, которое в дальнейшем обрабатывается исключением .

пойду тогда 1с негов пытать как всетаки у них обрабатывается событие при разрыве соедениения .

PS: Спасибо за madExcept. Интересная вещь