Разрешение проблемы доступа к методам объекта `ISample` при использовании `WideString` в Delphi/Lazarus и C#

Delphi , Файловая система , DLL и PlugIns

Разрешение проблемы доступа к методам объекта ISample при использовании WideString в Delphi/Lazarus и C

Введение

В данной статье рассматривается проблема, связанная с использованием WideString в качестве возвращаемого типа для методов интерфейса ISample в среде разработки Delphi/Lazarus, а также в C# с использованием библиотеки RGiesecke.DllExport. Проблема заключается в возникновении нарушения доступа при вызове метода TestMethod объекта ISample, что приводит к сбою программы.

Описание проблемы

При работе с COM-объектами важно соблюдать соглашения о вызовах и правильно обрабатывать типы данных, особенно когда речь идет о возвращаемых значениях. В примере, предоставленном в контексте, используется WideString в качестве возвращаемого типа для методов интерфейса ISample, что, как было замечено, приводит к ошибке доступа.

Анализ контекста

Контекст предоставляет два примера кода: один на C# с использованием библиотеки RGiesecke.DllExport для экспорта функций в неуправляемый код, и второй на Delphi/Lazarus, который использует эти функции. В обоих примерах определяется интерфейс ISample с методами, возвращающими WideString.

Подтвержденный ответ

Проблема заключается в том, что WideString не может быть использован в качестве возвращаемого типа для методов интерфейса, предназначенных для COM-интероперабельности. Это связано с тем, что safecall изменяет соглашение о вызовах, преобразуя возвращаемое значение в параметр по ссылке и делая фактическим возвращаемым значением HRESULT.

Альтернативный ответ

Для решения проблемы рекомендуется заменить возвращаемые типы WideString на типы, совместимые с COM, например, на Integer. Это позволит избежать использования safecall и следовать стандартным соглашениям о вызовах.

Пример кода на Object Pascal (Delphi)

type
  ISample = interface(IUnknown)
    ['{8871C5E0-B296-4AB8-AEE7-F2553BACB730}']
    function GetResult: Integer; stdcall;
    procedure SetValue(const Value: Integer); stdcall;
    function Test: Integer; stdcall;
    property Value: Integer read GetResult write SetValue;
  end;

procedure CreateSampleInstance(out Sample: ISample); stdcall; external 'MyLibrary.dll';

var
  Sample: ISample;
begin
  CreateSampleInstance(Sample);
  Writeln(Sample.Value);
  Writeln(Sample.Test);
  Readln;
end.

Пример кода на C# с использованием RGiesecke.DllExport

public interface ISample
{
    int GetResult();
    void SetValue(int value);
    int Test();
    // Свойство для удобства
    int Value { get { return GetResult(); } set { SetValue(value); } }
}

public class Sample : ISample
{
    public int Value { get; set; }
    public int GetResult()
    {
        return Value;
    }
    public void SetValue(int value)
    {
        Value = value;
    }
    public int Test()
    {
        return Value + 1; // Пример простой логики
    }
}

public static class UnmanagedExports
{
    [DllExport(CallingConvention = CallingConvention.StdCall)]
    public static void CreateSampleInstance([MarshalAs(UnmanagedType.Interface)] out ISample instance)
    {
        instance = null;
        try
        {
            instance = new Sample { Value = 123 };
        }
        catch
        {
            // ...
        }
    }
}

Заключение

Изменение типов данных в методах интерфейса ISample на типы, совместимые с COM, позволяет избежать проблем, связанных с соглашениями о вызовах и правильной интероперабельностью между управляемым и неуправляемым кодом. Это решение подтверждено и было успешно применено в средах Delphi/Lazarus и C#.

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

Проблема связана с некорректным использованием `WideString` в методах интерфейса `ISample` при работе с COM-объектами в средах Delphi/Lazarus и C#, что приводит к ошибке доступа при вызове методов.

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

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

:: Главная :: DLL и PlugIns ::