«Веб-приложение ASP.NET» и неуправляемая DLL

function DllTestas(var InputOutput: PAnsiChar): Longint; stdcall;

Этот прототип обречен на провал. Он не может быть разумно использован для взаимодействия. Проблема в том, что нет ясности относительно того, кто распределяет память и кто несет ответственность за уборку.

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

Самый простой способ взаимодействия строк - использовать COM-строку BSTR которая была разработана для этой цели. На стороне С# передать его как string с MarshalAs(UnmanagedType.BStr). На стороне Delphi используйте WideString.

Теперь, используя BSTR легко передать строки от неуправляемого вызываемого абонента управляемому абоненту. В другом направлении вопрос не возникает. Вы можете использовать строку с нулевым завершением, выделенную вызывающим. Передайте string на стороне С# и получите как PAnsiChar и PWideChar зависимости от того, как вы упорядочили строку. Затем снова вы можете использовать один тип для всех строк. В этом случае используйте BSTR.

Одно слово предупреждения. Не используйте WideString в качестве возвращаемого типа функции при выполнении взаимодействия: почему WideString не может использоваться как возвращаемое значение функции для взаимодействия?

Некоторые примеры:

Delphi

library Project1;

procedure Foo(InputVal: PWideChar; out OutputVal: WideString); stdcall;
begin
  OutputVal := 'Foo: ' + InputVal;
end;

procedure Bar(InputVal: WideString; out OutputVal: WideString); stdcall;
begin
  OutputVal := 'Bar: ' + InputVal;
end;

exports
  Foo, Bar;

begin
end.

С#

using System;
using System.Runtime.InteropServices;

namespace ConsoleApplication1
{
    class Program
    {
        const string dllname = @"Project1.dll";

        [DllImport(dllname, CharSet = CharSet.Unicode)]
        static extern void Foo(
            string InputVal,
            [MarshalAs(UnmanagedType.BStr)]
            out string OutputVal
        );

        [DllImport(dllname)]
        static extern void Bar(
            [MarshalAs(UnmanagedType.BStr)]
            string InputVal,
            [MarshalAs(UnmanagedType.BStr)]
            out string OutputVal
        );

        static void Main(string[] args)
        {
            string OutputVal;
            Foo("Hello", out OutputVal);
            Console.WriteLine(OutputVal);
            Bar("World", out OutputVal);
            Console.WriteLine(OutputVal);
        }
    }
}

Вывод

Foo: Hello
Bar: World