Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Переходим на https. Просьба писать обо всех замеченных неисправностях.
  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: COM-объекты и исключения. Что делать?  (Прочитано 4074 раз)
0 Пользователей и 1 Гость смотрят эту тему.
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« : 08-05-2007 10:17 » 

Существует строронняя ПО, написанное на VB. Некоторые методы реализуют контроль ошибок созданием исключений.

Цитата
ApplyEdit Method

The ApplyEdit method permanently applies changes made to an object’s properties after
the initial call to the BeginEdit method. The ApplyEdit method is defined as follows:

Public Sub ApplyEdit(ByRef Result As String, ByRef Severity As Integer)

If an error occurs, the ApplyEdit method raises an error condition and updates the Result
and Severity parameters with the Error Message and Severity of the error, respectively.
The Severity parameter is set to “0” if the error was critical, and to “1” if the error was
not critical. Your application should check the error state and act accordingly.

Я импортировал библиотеку типов. (https://forum.shelek.ru/index.php/topic,11479.msg152373.html#msg152373)

Написал тестовое приложение и обнаружил, что на этом методе исключение не возникает.
Накидал аналогичное приложение на VB и проверил, что при тех же параметрах исключение возникает.

Начал рыться по инету (мусор один) и нашел упоминания, что для вызова методов COM-объектов в Delphi применяется соглашение safecall, которое перехватывает исключения во время работы методов. Т.к. я использую импорт библиотеки типов через паскалевские файлы (см. ссылку выше), то сие на меня также распространяется.

Если честно: за$&@!ся бороться. Нифига не врубаюсь.

Как мне узнать, что во время выполнения метода COM-объекта произошло исключение, которое средствами VCL было успешно подавлено?


В паскалевском файле объявлены интерфейсы и оберточные классы. Метод там объявлен так:
Код: (Pascal)
// interface
  _JobCard = interface(IDispatch)
// ...
    procedure ApplyEdit(var _Result: WideString; var Severity: Smallint); safecall;

// class
  TJobCard = class(TOleServer)
// ...
    procedure ApplyEdit(var _Result: WideString; var Severity: Smallint);

procedure TJobCard.ApplyEdit(var _Result: WideString; var Severity: Smallint);
begin
  DefaultInterface.ApplyEdit(_Result, Severity);
end;
 

В автоматически генерящемся hpp-файле:
Код: (C++)
__interface _JobCards;
typedef System::DelphiInterface<_JobCards> _di__JobCards;
typedef _JobCards JobCards;
;

// ...

class DELPHICLASS TJobCard;
class PASCALIMPLEMENTATION TJobCard : public Oleserver::TOleServer
{
// ...
        void __fastcall ApplyEdit(WideString &_Result, short &Severity);
// ...
};
« Последнее редактирование: 08-05-2007 10:38 от RXL » Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.

Хз, я не очень просто не очень во всё это верю, во всякие там сатурны и прочую поебень.
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 08-05-2007 11:38 » 

3.14......

В общем, оказалось, что методы в классах-обертках, которые сгенерил Borland, возвращают не объекты таких же оболочечных классов, а объекты DelphiInterface! Соотв., присходит вызов
Код: (C++)
        virtual HRESULT __safecall ApplyEdit(WideString &_Result, short &Severity) = 0 ;
и HRESULT мне нужно обрабатывать самостоятельно.

P.S.: никогда не любил C++ и MS, а теперь начинаю разочаровываться в Borland...
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.

Хз, я не очень просто не очень во всё это верю, во всякие там сатурны и прочую поебень.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines