Работа с C++ DLL в C#: использование интерфейсов, написанных на Pascal

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

Вопрос, с которым вы столкнулись, заключается в необходимости использования C++ DLL, написанной для проектов на Delphi, в проекте на C#. Суть проблемы состоит в том, что DLL возвращает интерфейсный объект, который необходимо реализовать в C# для признания его через DllImport. Вы уже имеете рабочий код на Pascal, но не имеете доступа к исходному коду C++. Давайте разберемся, как можно решить эту проблему.

Шаг 1: Анализ кода Delphi

Прежде всего, рассмотрим интерфейс ILhm, определенный в коде на Delphi. Определены различные функции, которые используют типы данных, специфичные для Pascal, такие как TIdBytes и TUDPRcvRcd. Также есть декларации процедур ReceiveDataEvent и ListRecive, которые в Delphi могут быть частью объекта, но в C# требуют другого подхода.

Шаг 2: Перевод кода в C

Ваш текущий код на C# использует атрибут DllImport для вызова функции ControllerInit из DLL. Однако, вы столкнулись с ошибками, которые указывают на неправильное определение P/Invoke или на проблемы, связанные с коррупцией стека.

Шаг 3: Ошибки и их причины

Ошибки, которые вы получаете, могут быть вызваны несколькими причинами:

1. Неправильно указан конвенция вызова функций (CallingConvention).
2. Несовместимость типов данных между Pascal и C#.
3. Использование событий и динамических массивов, специфичных для Delphi.

Шаг 4: Подтвержденное решение

Для использования интерфейса, написанного на Pascal, в C# необходимо выполнить следующие шаги:

• Убедитесь, что конвенция вызова (CallingConvention) соответствует тому, что используется в C++ DLL.
• Переопределите типы данных, специфичные для Pascal, в соответствии с C#.
• Если интерфейс в DLL основан на COM, используйте COM-интероп в C#.
• Если прямой перевод невозможен, создайте COM-обертку вокруг DLL и используйте её в C#.

Шаг 5: Альтернативное решение - COM-обертка

Так как перестройка DLL невозможна, рекомендуется создать COM-обертку вокруг неё. Это позволит использовать интерфейс в C# через COM-интероп. Создание COM-обертки требует знаний в области Delphi или C++Builder.

Пример кода для создания COM-обертки

program ComWrapper;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Winapi.Windows,
  ComObj;

type
  TMyComWrapper = interface(IInterface)
    ['{00020400-0000-0000-C000-000000000046}']
    function SearchDev: Integer; stdcall;
    // Остальные функции интерфейса
  end;

  TMyComWrapperClass = class(TOleServer)
  private
    FController: ILhm;
  public
    function Invoke(VarNo: Integer; var RIID; var riid; var pData; var pTypeInfo; var pDesc): HRESULT; stdcall;
    destructor Destroy; override;
  public
    property ClassInfo: TClassInfo read FClassInfo implements IGetClassInfo;
    procedure _NewEnum(var ppv): HRESULT; stdcall;
    class function GetInterface(const IID: TGUID): Interface; static;
  end;

{ TMyComWrapperClass }

constructor CreateComWrapper;
begin
  FController := ControllerInit;
end;

function TMyComWrapperClass.Invoke(VarNo: Integer; var RIID; var riid; var pData; var pTypeInfo; var pDesc): HRESULT;
begin
  // Реализация вызова функций интерфейса через FController
end;

destructor TMyComWrapperClass.Destroy;
begin
  if Assigned(FController) then
    FController.Free;
  inherited;
end;

class function TMyComWrapperClass.GetInterface(const IID: TGUID): Interface;
var
  Intf: Interface;
begin
  if IID = GetInterfaceID(TMyComWrapper) then
  begin
    GetModule(GetCurrentProcess, TMyComWrapperClass);
    Intf := TMyComWrapperClass.Create;
  end
  else
    Intf := nil;
  Result := Intf;
end;

{ TMyComWrapperClass }

class function TMyComWrapperClass.CreateComObject: TComObj; static;
var
  Tmp: TMyComWrapperClass;
begin
  Tmp := TMyComWrapperClass.Create(Nil);
  if Tmp then
    TComObjCreate(Tmp, TMyComWrapper, Result);
end;

{ TMyComWrapper }

constructor TMyComWrapperClass.Create(AOwner: TOleServer);
begin
  inherited Create(AOwner);
  CreateComWrapper;
  FClassInfo := TClassInfo.Create(Self, TMyComWrapper, Class_Register, Class_Module_Interface);
end;

{ TMyComWrapper }

function TMyComWrapperClass._NewEnum(var ppv): HRESULT;
begin
  // Создание перечислителя
end;

initialization
  CoRegisterClassObject(ResultClass(TMyComWrapperClass), CLSCTX_LOCAL_SERVER, IID_TMyComWrapper, LANG_NEUTRAL, CLSCTX_ALL, PKEY_TMyComWrapper);

end.

Шаг 6: Использование COM-обертки в C

После создания COM-обертки, вы можете использовать её в C# с помощью COM-интероп:

[Guid("00020400-0000-0000-C000-000000000046")]
[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IMyComWrapper
{
    [return: MarshalAs(UnmanagedType.I4)]
    int SearchDev();
    // Остальные функции интерфейса
}

class Program
{
    static void Main(string[] args)
    {
        Type comType = Type.GetTypeFromProgID("ComWrapper.MyComWrapper");
        IMyComWrapper comWrapper = (IMyComWrapper)Activator.CreateInstance(comType);
        // Использование функций интерфейса
    }
}

Заключение

Использование C++ DLL в проекте на C# может быть сложной задачей, особенно если интерфейсы написаны на Pascal. Создание COM-обертки может быть решением, если перекомпиляция DLL невозможна. Обратите внимание, что создание COM-обертки требует глубоких знаний в области Delphi или C++Builder.

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

Контекст заключается в необходимости использования C++ DLL, написанной для Delphi, в проекте на C#, с решением проблемы совместимости интерфейсов через P/Invoke и создание COM-обертки.

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

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

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