Comment utiliser Dll Delphi(avec type PChar) en C#

Je vais prendre votre question à la valeur nominale, avec quelques réserves cependant:

• Si vous utilisez un Unicode Delphi ou pas est essentiel de connaître pour l'interopérabilité code à l'aide de PChar parce que PChar flotte entre AnsiChar et WideChar selon la version de Delphi. J'ai supposé que vous utilisez Unicode Delphi. Si non, alors vous aurez besoin de changer la chaîne de triage, la valeur de P/Invoke côté.
• J'ai modifié le code de la DLL. J'ai supprimé les paramètres de longueur et travaille sur l'hypothèse que vous êtes à l'intention de laisser le code de confiance appel de cette DLL. Code non fiable peut produire des dépassements de la mémoire tampon, mais vous n'allez pas laisser de code non sécurisé sur votre machine, et vous?
• J'ai aussi changé BlockFree afin qu'il puisse recevoir un pointeur non typé. Il n'y a pas besoin pour cela d'être de types de PChar, il est juste d'appeler Free.

Voici la modification du code Delphi:

library Project2;

uses
  SysUtils;

{$R *.res}

function SimpleConv(const s: string): string;
begin
  Result := LowerCase(s);
end;

function MsgEncode(pIn: PWideChar; out pOut: PWideChar): LongBool; stdcall;
var
  sOut: string;
  BuffSize: Integer;
begin
  sOut := SimpleConv(pIn);
  BuffSize := SizeOf(Char)*(Length(sOut)+1);//+1 for null-terminator
  GetMem(pOut, BuffSize);
  FillChar(pOut^, BuffSize, 0);
  Result := Length(sOut)>0;
  if Result then
    Move(PChar(sOut)^, pOut^, BuffSize);
end;

procedure BlockFree(p: Pointer); stdcall;
begin
  FreeMem(p);//safe to call when p=nil
end;

exports
  MsgEncode,
  BlockFree;

begin
end.

Et voici le code C# de l'autre côté:

using System;
using System.Runtime.InteropServices;

namespace ConsoleApplication1
{
    class Program
    {
        [DllImport("project2.dll", CharSet = CharSet.Unicode, CallingConvention = CallingConvention.StdCall)]
        [return: MarshalAs(UnmanagedType.Bool)]
        public static extern bool MsgEncode(string pIn, out IntPtr pOut);

        [DllImport("project2.dll", CharSet = CharSet.Unicode, CallingConvention = CallingConvention.StdCall)]
        public static extern void BlockFree(IntPtr p);

        static void Main(string[] args)
        {
            IntPtr pOut;
            string msg;
            if (MsgEncode("Hello from C#", out pOut))
                msg = Marshal.PtrToStringAuto(pOut);
                BlockFree(pOut);
        }
    }
}

Cela devrait vous obtenir a commencé. Puisque vous êtes nouveau à C#, vous allez avoir besoin de faire un peu de lecture sur P/Invoke. Profitez-en!

OriginalL'auteur David Heffernan

Édité

Désolé, je n'ai pas vu que vous exportez BlockFree fonction.

La règle de base est: toujours d'allouer et de libérer de la mémoire dans le même module; si vous allouer de la mémoire dans la Dll, il devrait être libéré dans la même Dll.

Donc, si vous libérer de la mémoire avec BlockFree vous allouer et de libérer de la mémoire dans le même module, c'est OK.

Noter que Delphi chaîne et PChar types sont dépendants de la version - ils sont la norme ANSI avant Delphi 2009 et UNICODE dans Delphi 2009 et après.

OriginalL'auteur kludg