Zurückgeben einer Zeichenfolge aus den delphi-dll in C# Anrufer in 64 bit

Habe ich eine C# - Anwendung, die Aufrufe von nativen Delphi-dll mit dem folgenden code:

C#

[DllImport("NativeDLL.dll", CharSet = CharSet.Unicode, CallingConvention = CallingConvention.StdCall)]
public static extern int GetString(string out str);

Delphi

function GetString(out a: PChar): Integer; stdcall;
begin
  a := PChar('abc');
  Result := 1;
end;

die funktioniert gut in einem 32-bit-Anwendung. Aber wenn ich kompilieren, C# - exe und Delphi-dll für 64 bit bekomme ich ein seltsames problem. Nach einem Aufruf von GetString, die in Delphi-debugger kann ich sehen, dass eine Ausnahme ausgelöst wird irgendwo in der .NET-code und der folgende string wird in der Debugger-Ausgabefenster: "Kritischer Fehler erkannt c0000374". Google sagt, dass dieser Fehler im Zusammenhang mit der heap-Beschädigung.
Ich habe versucht, mit ref/var Parameter Modifikatoren anstelle der out/out. Immer noch kein Glück. Warum erhalte ich diese Fehlermeldung? Sollte ich eine andere Aufrufkonvention für 64 bit?

BTW. Die folgende Kombination funktioniert:

C#

[DllImport("NativeDLL.dll", CharSet = CharSet.Unicode, CallingConvention = CallingConvention.StdCall)]
public static extern string GetString(string a);

Delphi

function GetString(a: PChar): PChar; stdcall;
var
  inp: string;
begin
  inp := a;
  Result := PChar('test ' + inp);
end;

funktioniert einwandfrei. Aber ich muss einen string zurückgeben, als ein out-parameter.

InformationsquelleAutor Max | 2013-04-23
  1. 17

    Können Sie nicht übergeben Sie eine Zeichenfolge von einheimischen verwaltet, die Art und Weise. Dein code ist falsch, in der 32 bit auch nicht, Sie passieren einfach Weg mit ihm. Die zweite version der code ist auch falsch. Es scheint nur zu arbeiten.

    Müssen Sie entweder:

    1. Reservieren von einem shared-heap, so dass Sie, dass der verwaltete code kann freigeben aus, dass heap. Die freigegebenen heap-für p/invoke COM heap.
    2. Den Speicher auf dem verwalteten Seite, und kopieren Sie den Inhalt in die Puffer auf der native Seite.

    Option 2 ist immer vorzuziehen. Es sieht wie folgt aus:

    [DllImport("NativeDLL.dll", CharSet = CharSet.Unicode)]
public static extern int GetString(StringBuilder str, int len);

    Auf der nativen Seite hätte man

    function GetString(str: PChar; len: Integer): Integer; stdcall;
begin
  StrLCopy(str, 'abc', len);
  Result := 1; //real code would have real error handling
end;

    Dann rufen Sie diese wie folgt:

    StringBuilder str = new StringBuilder(256);
int retval = GetString(str, str.Capacity);

    Wenn Sie versuchen wollen, option 1, es sieht aus wie dieses auf der verwalteten Seite:

    [DllImport("NativeDLL.dll", CharSet = CharSet.Unicode)]
public static extern int GetString(out string str);

    und wie dieses native:

    function GetString(out str: PChar): Integer; stdcall;
begin
  str = CoTaskMemAlloc(SizeOf(Char)*(Length('abc')+1));
  StrCopy(str, 'abc');
  Result := 1; //real code would have real error handling
end;

    Wenn der verwaltete code kopiert den Inhalt str zu den string-Wert, es dann Anrufe CoTaskMemFree auf den Zeiger, dass Sie zurückgegeben.

    - Und das ist trivial einfach zu nennen:

    string str;
int retval = GetString(out str);
    • Ich danke Ihnen sehr! Sie ersparte mir viele Stunden zu kämpfen mit diesem problem.
    • PChar ? Glücksspiel war es PAnsiChar oder PWideChar ? (ja, können wir ableiten, es ist 64-bit-XE2, aber wir können nicht gewährleisten, dieser code würde nicht kompiliert werden, mit 64-bit FPC oder kopieren-einfügen auf 32-bit-Projekt, etc.)
    • Dann nutzen Sie PWideChar wenn Sie es vorziehen.
    • Hat ein Dokument verfasst, die vor kurzem auf meiner Blog
    InformationsquelleAutor David Heffernan
Schreibe einen Kommentar