Интеграция Delphi и C#: Правильная передача строк и работа с DLL

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

Приветствую, уважаемые разработчики! Сегодня мы рассмотрим вопрос, который часто возникает у специалистов, работающих с такими языками программирования, как Object Pascal (Delphi) и C#. В частности, мы поговорим о том, как правильно разрабатывать и использовать динамически подключаемые библиотеки (DLL) в Delphi для дальнейшего вызова их функций из C# приложений, с передачей и возвратом строк.

Основные моменты статьи:

1. Создание DLL в Delphi: Рассмотрим, как создать DLL, содержащую функцию, которая может принимать и возвращать строки, и как правильно экспортировать эту функцию.
2. Вызов функции из C#: Изучим, как правильно подключить созданную DLL в C# проект и вызвать функцию, передавая и получая строки.
3. Правильная работа со строками: Обсудим важные моменты, связанные с передачей строк между языками, и как избежать ошибок, связанных с управлением памятью.
4. Примеры кода: Предоставим примеры кода на Object Pascal и C#, которые демонстрируют правильный подход к интеграции функций между языками.

Создание DLL в Delphi

Для начала, давайте создадим DLL в Delphi. Вот пример функции, которая принимает целое число и строку, возвращая их модифицированные версии:

library DelphiLibrary;
uses
  SysUtils;

function DelphiFunction(inputInt: Integer; inputString: PAnsiChar;
                        out outputInt: Integer; out outputString: PAnsiChar): PAnsiChar; stdcall; export;
var
  s: string;
begin
  outputInt := inputInt + 1;
  try
    s := inputString + ' ' + IntToStr(outputInt);
    outputString := PAnsiChar(s);
    Result := nil; // Возврат nil в случае успеха
  except
    on E: Exception do
      Result := PAnsiChar(E.Message); // Возврат сообщения об ошибке
  end;
end;
exports DelphiFunction;

Вызов функции из C

Теперь рассмотрим, как вызвать эту функцию из C#:

using System;
using System.Runtime.InteropServices;

namespace CsharpApp
{
    class Program
    {
        [DllImport("DelphiLibrary.dll", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Ansi)]
        public static extern string DelphiFunction(int inputInt, string inputString,
                                                   out int outputInt, out string outputString);

        static void Main(string[] args)
        {
            int inputInt = 1;
            string inputString = "This is a test";
            int outputInt;
            string outputString;

            var errorString = DelphiFunction(inputInt, inputString, out outputInt, out outputString);
            if (errorString != null)
                Console.WriteLine("Error = \"{0}\"", errorString);
            else
                Console.WriteLine("outputInt = {0}, outputString = \"{1}\"", outputInt, outputString);

            Console.ReadLine();
        }
    }
}

Правильная работа со строками

Один из ключевых моментов при передаче строк между языками - это управление памятью. В Delphi строки управляются с помощью системы ссылок, и если не быть осторожным, можно столкнуться с тем, что строка будет перезаписана до того, как C# приложение успеет её прочитать. В качестве решения предлагается передавать в функцию буфер для строки, а также её размер:

function DelphiFunction(inputInt: Integer; inputString: PAnsiChar;
                        outputStringBufferSize: Integer; var outputStringBuffer: PAnsiChar;
                        errorMsgBufferSize: Integer; var errorMsgBuffer: PAnsiChar): WordBool; stdcall; export;
var
  s: string;
begin
  try
    outputInt := inputInt + 1;
    s := inputString + ' ' + IntToStr(outputInt);
    StrLCopy(outputStringBuffer, PAnsiChar(s), outputStringBufferSize - 1);
    Result := true;
  except
    on E: Exception do
    begin
      StrLCopy(errorMsgBuffer, PAnsiChar(E.Message), errorMsgBufferSize - 1);
      Result := false;
    end;
  end;
end;

И в C#:

static void Main(string[] args)
{
    int inputInt = 1;
    string inputString = "This is a test";
    int outputInt;
    const int stringBufferSize = 1024;
    var outputStringBuffer = new String('\x00', stringBufferSize);
    var errorMsgBuffer = new String('\x00', stringBufferSize);

    if (!DelphiFunction(inputInt, inputString, stringBufferSize, ref outputStringBuffer, stringBufferSize, ref errorMsgBuffer))
        Console.WriteLine("Error = \"{0}\"", errorMsgBuffer);
    else
        Console.WriteLine("outputInt = {0}, outputString = \"{1}\"", outputInt, outputStringBuffer);
}

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

Заключение

Интеграция Delphi и C# требует внимательного подхода к деталям, но с правильным подходом она становится гладким и эффективным процессом. Не забывайте о правильной работе со строками и управлении памятью, и ваша интеграция будет успешной!

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

Статья посвящена вопросам интеграции программ на Delphi и C#, с акцентом на корректную передачу строк и работу с динамически подключаемыми библиотеками (DLL).

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

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

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