Обработка исключений C# в COM-компонентах для Delphi-приложений: решение проблемы с потерянными ошибками

Delphi , Технологии , COM и DCOM

Обработка исключений C# в COM-компонентах для Delphi-приложений

При работе с COM-компонентами, созданными в C# для использования в приложениях на Delphi, может возникнуть проблема с обработкой исключений. Вопрос, поднятый пользователем, заключается в том, что при возникновении исключений в C#-компоненте, они не передаются в Delphi-приложение. Это связано с особенностями взаимодействия между COM и .NET.

Проблема

В коде C# при вызове метода FindLinkedClientEng интерфейса iLinkV2 происходит попытка поднять исключение COMException, однако в Delphi-приложении это исключение не перехватывается. Пользователь предполагает, что проблема может быть связана с отсутствием определенного декоратора метода.

void iLinkV2.FindLinkedClientEng(string SourceApp, string SourceClientID,
     ref object ClientID, ref object Engagement)
{
    throw new COMException("errClientNotFound",
        (int)ExceptionsType.errClientNotFound);
    ClientID = SourceClientID; // Эта строка не будет выполнена
}

Решение

В соответствии с альтернативным ответом, исключения не являются частью спецификации COM Interop и не должны передаваться через границы модулей. Вместо этого рекомендуется использовать коды состояния для указания ошибок. В каждом методе COM-интерфейса следует перехватывать исключения непосредственно перед выходом из метода и преобразовывать результат в код ошибки. Если использовать HRESULT, то можно обработать его как safecall и заставить компилятор Delphi перевызвать исключение.

Пример кода

[ComVisible(true), Guid("D731C821-EEA2-446E-BC5A-441DCA0477F5"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface iLinkV2
{
    // Определение метода с использованием HRESULT
    void FindLinkedClientEng(string SourceApp, string SourceClientID, ref object ClientID, ref object Engagement, out int hr);
}

public void FindLinkedClientEng(string SourceApp, string SourceClientID, ref object ClientID, ref object Engagement)
{
    try
    {
        // Код выполнения
        ClientID = SourceClientID;
        hr = 0; // Успех
    }
    catch (Exception ex)
    {
        hr = (int)Marshal.GetExceptionCodeForHRESULT(ex.HResult);
        // При необходимости можно установить ClientID в null или другое значение, указывающее на ошибку
    }
}

В Delphi-приложении этот HRESULT необходимо обработать для определения и реакции на ошибки.

Пример кода в Delphi

procedure ExternalMethod(SourceApp, SourceClientID: string; var ClientID, Engagement: Variant; out ResultCode: Integer);
begin
    // Здесь должна быть логика обработки HRESULT
    if ResultCode <> S_OK then
    begin
        // Обработка ошибки
    end;
end;

Таким образом, использование кодов состояния позволяет передать информацию об ошибках из C#-компонента в Delphi-приложение без использования механизма исключений.

В данной статье мы рассмотрели проблему обработки исключений в COM-компонентах, созданных на C#, для использования в приложениях на Delphi. Было предложено решение, основанное на использовании кодов состояния вместо передачи исключений, что соответствует спецификации COM Interop.

Создано по материалам из источника по ссылке.

При взаимодействии COM-компонентов, созданных в C#, с Delphi-приложениями, необходимо использовать коды состояния для обработки ошибок, так как исключения не передаются через границы модулей.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: COM и DCOM ::