Создание DLL на Паскале для Интеграции с C# через COM Interop: 32 и 64 Битные Решения

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

Интеграция кода, написанного на языке Pascal, с приложениями на C# через COM Interop может потребовать создания динамически подключаемой библиотеки (DLL). В данной статье мы рассмотрим процесс компиляции Pascal кода в DLL с использованием компилятора Free Pascal и его последующей интеграции с C# через COM Interop, учитывая особенности 32- и 64-битных решений.

Подготовка к компиляции

Для начала работы необходимо убедиться, что у вас установлен компилятор Free Pascal, который поддерживает создание DLL. Free Pascal — это кросс-платформенный компилятор для Pascal, который может сгенерировать исполняемые файлы, библиотеки и многое другое.

Компиляция 64-битных DLL

Для 64-битных систем по умолчанию используется совместимость с COM, включающая структуры обработки исключений SEH. Это означает, что для компиляции 64-битного DLL из кода на Pascal дополнительные действия не требуются.

Пример кода на Object Pascal для 64-битного DLL:

program MyLibrary64;
uses
  SysUtils;
function Add(a, b: Int64): Int64;
begin
  Result := a + b;
end;

Компиляция этого кода в 64-битный DLL может быть выполнена с помощью следующей команды:

fpc -Mwin64 -Od -ve MyLibrary64.dll MyLibrary64.pas

Компиляция 32-битных DLL

Для 32-битных систем необходимо включить поддержку SEH в коде, что требует перекомпиляции Free Pascal с определенной опцией. После этого можно скомпилировать ваш код в 32-битный DLL.

Пример кода на Object Pascal для 32-битного DLL:

program MyLibrary32;
uses
  SysUtils;
function Add(a, b: NativeInt): NativeInt;
begin
  Result := a + b;
end;

Для компиляции 32-битного DLL с поддержкой SEH, сначала убедитесь, что в Free Pascal включена соответствующая опция. Затем используйте команду:

fpc -Mwin32 -dtest_win32_seh -Od -ve MyLibrary32.dll MyLibrary32.pas

Интеграция с C# через COM Interop

После создания DLL, вы можете использовать COM Interop в C# для вызова функций из вашей библиотеки. Это делается путем создания интероп-объекта в C# и вызова методов через этот объект.

Пример кода на C# для использования 32-битного DLL:

using System;
using System.Runtime.InteropServices;

class Program
{
    static void Main()
    {
        Type t = Type.GetTypeFromProgID("MyLibrary32.MyLibrary");
        object o = Activator.CreateInstance(t);
        IntPtr p = Marshal.GetIUnknownForObject(o);
        IntPtr funcPtr = Marshal.GetDelegateForFunctionPointer(p, typeof(IntPtr).TypeHandle);
        var func = (NativeMethods.MyAddFunction)Marshal.GetDelegateForFunctionPointer(funcPtr, typeof(NativeMethods.MyAddFunction));
        int result = func(10, 20);
        Console.WriteLine(result);
    }
}

public class NativeMethods
{
    [UnmanagedFunctionPointer(CallingConvention.StdCall)]
    public delegate int MyAddFunction(int a, int b);
}

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

В контексте заданной проблемы, создание DLL на Pascal для интеграции с C# через COM Interop требует внимания к битности целевой платформы. Для 64-битных систем дополнительные действия не требуются, в то время как для 32-битных необходимо включить поддержку SEH в компиляторе.

Заключение

Мы рассмотрели процесс создания DLL на языке Pascal для использования с C# через COM Interop, учитывая различия между 32- и 64-битными системами. Следуя инструкциям и примерам кода, вы сможете успешно интегрировать ваш Pascal код в проекты на C#.

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

Статья описывает процесс создания динамически подключаемых библиотек на языке Pascal для интеграции с C# через COM Interop, учитывая различия между 32- и 64-битными системами.

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

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

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