Устранение ошибок доступа при передаче строк из C# в DLL на Delphi

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

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

Проблема

Пользователь столкнулся с ошибкой доступа при передаче строки из C# в функцию Delphi DLL, которая ожидает параметр типа PChar. Пример экспорта функции из Delphi:

procedure DLL_Message(Location: PChar; AIntValue: Integer); stdcall;
external 'DLLTest.dll';

Импорт функции в C# выглядит следующим образом:

[DllImport(
    "DLLTest.dll",
    CallingConvention = CallingConvention.StdCall,
    CharSet = CharSet.Ansi,
    EntryPoint = "DLL_Message"
)]
public static extern void DLL_Message(IntPtr Location, int AIntValue);

При попытке вызвать функцию возникает ошибка доступа, что указывает на проблему с передачей строки.

Решение проблемы

Решение заключается в правильной настройке атрибутов импорта в C# и использовании соответствующего типа для обозначения строки. В данном случае, как было указано в "Подтвержденном ответе", можно использовать атрибут MarshalAs для контроля типа, используемого в нативном коде.

[DllImport(
    "DLLTest.dll",
    CallingConvention = CallingConvention.StdCall,
    CharSet = CharSet.Ansi,
    EntryPoint = "DLL_Message"
)]
public static extern void DLL_Message(
    [MarshalAs(UnmanagedType.LPStr)] string Location,
    int AIntValue
);

Важно отметить, что использование MarshalAs в данном случае не является необходимым, так как по умолчанию происходит правильное преобразование строки. Однако, для ясности и точности кода, указание типа маршалинга может быть полезным.

Также стоит учитывать, что по умолчанию используется тип LPTSTR, который соответствует 16-битным символам (UTF-16), но если необходимо использовать ANSI-строку, следует использовать LPStr (UnmanagedType.LPStr).

Примеры кода

Вот пример кода на Object Pascal (Delphi), который демонстрирует экспорт функции DLL_Message:

program DLLExporter;
{$APPTYPE CONSOLE}
uses
  System.SysUtils;

function AnsiStringToPChar(const AAnsiString: string): PChar;
var
  LPAnsiChar: PChar;
begin
  GetMem(LPAnsiChar, Length(AAnsiString) + 1);
  StrCopy(LPAnsiChar, PChar(AAnsiString));
  Result := LPAnsiChar;
end;

procedure DLL_Message(Location: PChar; AIntValue: Integer);
begin
  // Ваш код обработки строки
  WriteLn('Получено сообщение: ', Location);
end;

exports DLL_Message;
begin
  // Освобождение памяти, выделенной для строки
  {$IFDEF WINDOWS}
  {$RANGEDELIMIT ON}
  {$RANGEBODY 'Delphi.DelphiWinapi' DO
    procedure FreePChar(AString: PChar);
    begin
      SetLength(AString, 0);
      FreeMem(AString);
    end;
  {$ELSE}
    {$RANGEBODY 'System.SysUtils' DO
      procedure FreePChar(AString: PChar);
      begin
        SetLength(AString, 0);
      end;
  {$ENDIF}
  FreePChar(AnsiStringToPChar('Пример строки'));
  ReadLn;
end.

И пример импорта функции в C#:

using System;
using System.Runtime.InteropServices;

class Program
{
    [DllImport("DLLTest.dll", CallingConvention = CallingConvention.StdCall)]
    public static extern void DLL_Message([MarshalAs(UnmanagedType.LPStr)] string Location, int AIntValue);

    static void Main()
    {
        DLL_Message("Тестовая строка", 123);
    }
}

Заключение

При передаче строк из C# в DLL на Delphi важно правильно настроить параметры импорта и использовать соответствующие типы маршалинга. В большинстве случаев, по умолчанию используется правильное преобразование, но для устранения ошибок доступа и повышения читаемости кода рекомендуется явно указать тип маршалинга.

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

Проблема передачи строковых данных из C# в функцию, написанную на Delphi, и способы её решения.

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

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

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