Zugriff von C# auf Delphi-Library

[Kyon]

Hi ^^

ich habe hier ein Problem mit dem Aufruf von Funktionen einer Delphi-DLL (Kein ActiveX, verwendet wird Delphi 7 für Windows). Der Zugriff auf die Dll erfolgt genau so wie ich es bei C++-DLLs mache:

Code:

[DllImport("MyDll.dll", EntryPoint = "openDB", CallingConvention = CallingConvention.StdCall)]
    private static extern void _OpenDB();

Der Aufruf von openDB sorgt dafür, dass innerhalb der DLL eine Datenbankverbindung initialisiert wird. Verwendet wird diese dann jeweils über Query-Funktionen:

Code:

[DllImport("MyDll.dll", EntryPoint = "queryX", CallingConvention = CallingConvention.StdCall)]
    public static extern string _QueryX(Char[] val);

Nun zum eigentlichen Problem: Die Datenbankverbindung wird in einem eigenen Thread erstellt. Der Aufruf einer Query*-Funktion erfolgt jeweils aus einem eigenen Thread heraus. Bei diesen Aufruf bleibt der Thread der C#-Anwendung offenbar stehen. Nach dem Aufruf des Einsprungspunktes der DLL sollte sofort eine Debugging-Meldung ausgegeben werden, was nicht der Fall ist. Zu dem Zeitpunkt erfolgt also noch gar kein Zugriff auf die Datenbankobjekte.

Bei C++-DLLs ist sowas kein Problem. Leider bin ich kein erfahrener Delphi-Programmierer und würde gerne wissen, ob sich Delphi hier irgendwie anders verhält. (Alle Funktionen wurden mit einem stdcall; versehen und mit extern auch exportiert)

[Stevie]

Delphi Strings und C# Strings sind nicht kompatibel. Imo geht an der Stelle nur der Austausch über PChar.

[daywalker9]

Code:

[DllImport("MyDll.dll")]
public static extern bool EineFunktion([MarshalAs(UnmanagedType.LPStr)]string AChars);

In C# musst Du angeben als was die Strings interpretiert werden sollen. Dazu gibt es MarshalAs(UnmanagedType.LPStr) (in diesem Fall ist es pAnsiChar). Bei PWideChar müsstest Du UnmanagedType.LPWStr nehmen

Edit: Im Namespace

Code:

using System.Runtime.InteropServices;

zu finden

[Elvis]

Zitat von Stevie:

Delphi Strings und C# Strings sind nicht kompatibel. Imo geht an der Stelle nur der Austausch über PChar.

Nope, der Austausch geht ganz einfach mit WideString.
Keine Pointer, Kein Ansi, Kein Gezicke.
Der Beitrag bei Stackoverflow handelt von Oxygene aka Delphi Prism, aber ist genauso rückwärts auf C# anwendbar.

btw, als Ergebnis einer Abfrage wäre wohl ein OleVariant am sinnvollsten. Oder ein Interface, welches einem erlaubt durch die Ergebnismenge zu scrollen.

[Kyon]

Danke für die ganzen anregenden Antworten. Diese Infos brauche ich ganz sicher nochmal alle.

Das Problem konnte ich letztendlich doch noch alleine lösen, aber ich werde jetzt wohl die Anwendung von PChar-Values auf WideString umstellen, wenn diese wirklich kompatibel sind. Bisher habe ich in C# "char[]"-Arrays für Parameter und Rückgabewert verwendet und auf der Delphi-Seite eben PChar. Die waren voll kompatibel. Ob Ansi oder Unicode, scheint C# automatisch zu erkennen (Voreinstellung). Deshalb bleibe ich erstmal dabei.

Allerdings bin ich noch nicht sicher wie ich die Rückgabe von mehreren Werten anstellen soll. Arrays sind hier schon unter C++ eine heikle Sache in bestimmten Fällen und das Gegenstück zu den Structs sind offenbar unter Delphi anders aufgebaut.

[Medium]

Jain, Records lassen sich durchaus binäridentisch zu Structs gestalten, allerdings muss man stellenweise ein paar Dinge wissen. Übersetzungen von C-Structs in Delphi werden hier desöfteren besprochen, so dass du gleich hier im Forum mal rein informativ danach stöbern könntest. Viele Fallstricke sollten sich durch einfach drüberschauen schon im Vorfeld vermeiden lassen.

[Elvis]

Zitat von Kyon:

Das Problem konnte ich letztendlich doch noch alleine lösen, aber ich werde jetzt wohl die Anwendung von PChar-Values auf WideString umstellen, wenn diese wirklich kompatibel sind. Bisher habe ich in C# "char[]"-Arrays für Parameter und Rückgabewert verwendet und auf der Delphi-Seite eben PChar. Die waren voll kompatibel. Ob Ansi oder Unicode, scheint C# automatisch zu erkennen (Voreinstellung). Deshalb bleibe ich erstmal dabei.

.Net erkennt da gar nix automatisch. Du hattest einfach nur Glück. Das Standard Charset für P/Invoke in .Net ist Ansi, und das wird er auch nehmen, wenn du ihm nix anderes sagst.
Willst du also WideStrings übergeben, musst du ihm sagen, dass die als UnmanagedType.BStr übergeben werden.

Zitat von Kyon:

Allerdings bin ich noch nicht sicher wie ich die Rückgabe von mehreren Werten anstellen soll. Arrays sind hier schon unter C++ eine heikle Sache in bestimmten Fällen und das Gegenstück zu den Structs sind offenbar unter Delphi anders aufgebaut.

Eine einfache Lösung hierfür wäre es ein Interface zu deklarieren, welches einen Record aus deinem Programm abbildet. Auf die Art kann man auch aus .Net durch die Daten scrollen und auf einzelne Werte zugreifen.
Das hier ist ein wenig aus den Fingern gesaugt, aber so in der Art kannst du dir das vorstellen.
Man ist bei Delphi->DLL->.Net NICHT auf plattgekloppte, stumpfsinnige Funktionen beschränkt.
Auch wenn das einem viele "Opas" weismachen wollen. Dank Interfaces lassen sich auch Objekte zwischen den Umgebungen übergeben.

Delphi-Quellcode:

type
  IDelphiCursor = interface(IUnknown)
  ['some GUID']
    function MoveNext : Boolean; safecall;
    function GetFieldCount : Integer; safecall;
    function GetFieldName(columnIndex : Integer) : WideString; safecall;
    function GetValue(columnIndex : Integer) : OleVariant; safecall;
  end;

  procedure Sample(out instance : IDelphiCursor); stdcall; export;

Code:

[Guid("some GUID")]
[ComVisible(true)]
[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
interface IDelphiRecord
{
  bool MoveNext();
  // Ich nutze hier eine Property, da die ja nur ein Getter ist, der von der Signatur mit der Delphi Funktion passt
  int FieldCount { get; }

  [return:MarshalAs(UnmanagedType.BStr)]
  String GetFieldName(int columnIndex);
  // hier nutze ich einen indexer, weil auch der besser passt
  Object this[int columnIndex] { get; }
}

[DllImport("DeineLib", EntryPoint="Sample")]
static extern void CreateDelphiCursor([MarshalAs(UnmanagedType.Interface)]out IDelphiCursor instance);