В прошлом шаге мы с Вами посмотрели как вообще обрабатываются ошибки в VB. Давайте попробуем применить наши знания к COM DLL. Мы возьмем тот же компонент, что и из шага "Шаг 39 - Понимание использования MTS". И изменим главный метод.

Public Function Method() As Boolean

Dim context As ObjectContext

Dim sql As ClassSQL

Dim oracle As ClassORACLE

Set context = GetObjectContext

Set sql = context.CreateInstance("ProjectTransaction.ClassSQL")

Set oracle = context.CreateInstance("ProjectTransaction.ClassORACLE")

sql.Method

oracle.Method

Set sql = Nothing

Set oracle = Nothing

context.SetAbort

Err.Raise 11111, "Com DLL", "Hello Client"

Method = True

End Function

Нужно заново собрать DLL и обновить в Transaction server. У клиента сделаем перехват ошибок:

Private Sub Command1_Click()

On Error GoTo Errors:

Dim a As ClassGeteral

Dim b As Boolean

Set a = New ClassGeteral

b = a.Method

Set a = Nothing

If b = True Then

MsgBox "Ok"

Else: MsgBox "Error"

End If

 Exit Sub

Errors:

 MsgBox "Error detected"

 MsgBox (Str(Err.Number))

 MsgBox (Err.Source)

 MsgBox (Err.Description)

End Sub

Запустим и посмотрим.

Клиент перехватил ошибку и обработал, что и требовалось. Итак, если произошла ошибка нужно вернуть SetAbort. Только будьте внимательны, если ошибка внутри какого-то компонента, то код этой ошибки нужно передать по цепочке объектов, а клиент должен знать все коды, чтобы что-то сказать пользователю. Вызов SetAbort гарантирует, что дальнейшее обращение к объектам прекратится и ошибка будет отлавливаться. Внимательным нужно быть в плане того, что стандартный код подразумевает, что ошибки отлавливаются в каждом компоненте, и, если она внутри вызова, то может затеряться. Вы узнаете, что транзакция отменена, но почему не узнаете. Вариантов реализации много, может клиенту и не надо знать почему и что произошло, а только сам факт. Есть такая возможность и как сказано в уставе - умело орудуя штыком и прикладом...