Stringübergabe in eine Delphi Win32-DLL

[little_budda]

Hallo,

ich veruche eine Funktion aus einer Delphi Win32 DLL unter C# aufzurufen.
Ich muss hier zwei strings übergeben und scheitere daran kläglich.
In meiner DLL kommt immer nur Schrott an.

Hier in der Forensuche finden sich zwar einige Beträge die Stringübergaben behandeln,
aber die Tipps bringen mich nicht nach vorn.

Meine C# Implemetierung:

Code:

  [return: MarshalAs(UnmanagedType.I4)]
  [DllImport("wsa.dll", CharSet = CharSet.Auto)]
  static extern Int32 ConvertArchiveToXml(
    [MarshalAs(UnmanagedType.BStr)] string archivePath, 
    [MarshalAs(UnmanagedType.BStr)] string xmlPath);
// Für das Marshalling habe ich auch schon ".LPStr" und ".LPWStr" ausbrobiert. 
// Leider mit gleichem Ergebnis

Unter Delphi habe ich die Funktion wie folgt aufgebaut

Delphi-Quellcode:

library wsa;
...
function ConvertArchiveToXml(achivePath: PAnsiChar; xmlPath: PAnsiChar): integer;
// In der Deklaration habe ich bereits PChar und widestring ausprobiert.
var amountOfDataLines : integer;
    lastErrorCode : integer;
begin
  // Testausgaben in eine lokale Protokolldatei um die Übergaben in die DLL zu prüfen
  SetLogItem('Archiv: ' + archivePath);
  SetLogItem('XML: ' + xmlPath);

  try
    result := ExtractArchiveContentToTable(archivePath);
//            (Die Funktion liefert einen INT)
  except
    result := -1;
  end;
end;

...

exports
  ConvertArchiveToXml,
  initDLL,
  freeDLL;
...

Was bitte mache ich denn falsch?