COM: обработка исключительных ситуаций

← →
Magedon (2011-04-04 13:42) [0]

Доброе время суток.

Написал COM сервер. Пишу клиент.

В клиенте работа с сервером реализована так

TForm1 = class(TForm) ... private FServer: IServer; ... function TForm1.CallServerMethod: boolean; begin if not Assigned(FServer) then FServer := CoServer.Create; try FServer.Method1; Result := True; except on E: Exception do begin Log(E.Message); Result := False; end; end; end;

Так вот. Всё работает нормально. Но если закрыть сервер вручную, то проверка if not Assigned(FServer) then не проходит. Т.е. объект FServer существует.

Но при попытке вызова метода FServer.Method1 естественно валиться ошибкой. Я хочу проверять если сервер уже не доступен, то попытаться создать его снова.

Как правильно это сделать?

← →
clickmaker © (2011-04-04 13:46) [1]

> Но если закрыть сервер вручную

я бы сделал сервер сервисом для начала

← →
Magedon (2011-04-04 14:11) [2]

> я бы сделал сервер сервисом для начала

А что это даст?

← →
clickmaker © (2011-04-04 14:15) [3]

сложнее закрыть сервер вручную. + автозапуск при перезагрузке компа, например

← →
DiamondShark © (2011-04-04 14:25) [4]

> Magedon (04.04.11 13:42)

При закрытии сервера вручную вызов методов валится со вполне конкретным HRESULT.

← →
Magedon © (2011-04-04 15:02) [5]

> DiamondShark © (04.04.11 14:25) [4]

Такс. Если еще конкренее, то методы на стороне сервера реализованы с входным параметром [out, retvail].

HRESULT _stdcall GetName([out, retval] BSTR * WS );

Делфи это оборачивает как функции

IServer = interface(IDispatch) ["{3F47627D-79D7-4936-9341-07C915A85D12}"] function GetName: WideString; safecall; ... end;

Как мне получить на стороне клиента HRESULT, если функция представлена так, что возвращает строку, булеан или еще какой-нить тип?

> Magedon © (04.04.11 15:02) [5]

try FServer.Method1; Result := True; except on E: EOleSysError do // здесь анализируем E.ErrorCode, это и есть HRESULT safecall-метода end;

COM: обработка исключительных ситуаций Найти похожие ветки