Обработка исключений в COM+

← →
seu (2002-10-01 16:36) [0]

Сервер приложений представляет собой совокупность ActiveX Library, объединенных в COM+Application с использованием Just_In_Time активации для объектов бизнес-логики.
Например,
TObject1=class(TMTSDataModule, IObject1)
protected
procedure Proc1;safecall;
end;
procedure TObject1.Proc1;
begin
try
......
with CreateComObject(Class_Object2) as IObject2 do
Proc2;
.....
SetComplete;
except
SetAbort;
raise;
end;
end;
TObject2=class(TMTSDataModule, IObject2)
protected
procedure Proc2;safecall;
end;
procedure TObject2.Proc2;
begin
try
......
<код, генерирующий исключение>
.....
SetComplete;
except
SetAbort;
raise;
end;
end;
Если на клиенте вызывается метод Proc2 объекта Object2, то обработчик ошибок на стороне клиента получает нормальное содержание ошибки. Если же с клиента вызывается метод Proc1 объекта Object1, то содержание ошибки - "OLE error 800A0E7C".
Хотелось бы услышать какие-нибудь соображения по возможности получения на клиенте "читаемых" сообщений об ошибке.

← →
seu (2002-10-01 19:38) [1]

Обработка исключений в COM+ Найти похожие ветки