Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.07.10;
Скачать: CL | DM;

Вниз

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, если функция представлена так, что возвращает строку, булеан  или еще какой-нить тип?


 
DiamondShark ©   (2011-04-04 15:25) [6]


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



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


 
Magedon ©   (2011-04-04 16:30) [7]


> DiamondShark ©


Спасибо



Страницы: 1 вся ветка

Текущий архив: 2011.07.10;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.008 c
15-1301148266
Учусь
2011-03-26 17:04
2011.07.10
[Fatal Error] Internal error: BC2241


1-1259145289
istok20
2009-11-25 13:34
2011.07.10
чтение писем из eml формата..


15-1301290908
OW
2011-03-28 09:41
2011.07.10
Поиск по строке аля посковика. Генераторы запроса.


1-1258972053
Cobalt
2009-11-23 13:27
2011.07.10
XMLNode - List index out of bounds


15-1300947227
И. Павел
2011-03-24 09:13
2011.07.10
Печать нескольких RAV-проектов на одной странице