Aufruf Delphi-Dll von DotNet, Probleme mit struct-Parameter

[JFB]

Hallo,

ich habe ein merkwürdiges Problem beim Versuch, eine Methode in einer Delphi-Dll (habe ich als Anhang beigefügt) aus einer DotNet-Anwendung aufzurufen.

Ich habe folgenden Code:

Code:

// c#-Programm
// ===========
using System;
using System.Runtime.InteropServices;

namespace ConsoleApp3
{
    class Program
    {
        [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi, Pack = 1)]
        public struct TPara1Rec
        {
            public double Jahresumsatz1;
            public double Jahresumsatz2;
            public double Aufwendungen;
            public double Privateinlagen;
            public double Privatentnahmen;
            public double LandwFlaeche;
            public double ForstFlaeche;
            public double Teichflaeche;

            [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 3 + 1)]
            public string Waehrung; // EUR

            public bool P39A3;
        }

        [DllImport("DStbVV2012.dll", EntryPoint = "Gegenstandswerte", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Ansi)]
        private static extern void DStbVV2012_Gegenstandswerte(ref TPara1Rec para, ref double pWertDa, ref double pWertDb, IntPtr ptr);

        static void Main(string[] args)
        {
            TPara1Rec para1 = new TPara1Rec() { Aufwendungen = 1154659.74d, ForstFlaeche = 4.95d, Jahresumsatz1 = 1219758.83d, Jahresumsatz2 = 12, LandwFlaeche = 219.26d, P39A3 = false, Privateinlagen = 67148.41d, Privatentnahmen = 157779.99d, Teichflaeche = 0d, Waehrung = "EUR" };
            double para2 = 0;
            double para3 = 0;
            IntPtr ptr = IntPtr.Zero;

            DStbVV2012_Gegenstandswerte(ref para1, ref para2, ref para3, ptr);
        }
    }
}

// Delphi-Dll DStbVV2012.dll
// =========================

  TPara1Rec = packed record
    Jahresumsatz1   :real;
    Jahresumsatz2   :real;
    Aufwendungen    :real;
    PrivatEinlagen  :real;
    PrivatEntnahmen :real;
    LandwFlaeche    :real;
    ForstFlaeche    :real;
    TeichFlaeche    :real;
    VerpachtFlaeche :real;
    Waehrung        :AnsiString;
    P39A3           :boolean;
  end;

procedure Gegenstandswerte(var Para :TPara1Rec;
                           var pWertDA,pWertDB :real;
                           Para4Ptr:TPara4Ptr = nil);

var W_BETRAG_1, W_BETRAG_2, ZWI_BETRAG_1,ZWI_BETRAG_2,ZWI_BETRAG_3,ZWI_BETRAG_4,
    w_jahresumsatz_je_ha, W_MULTIPLIKATOR,mp : real;
begin
  if Para.Waehrung = 'DEM' then mp := cEuroFaktor else mp := 1;

  W_BETRAG_1 := Para.JahresUmsatz1 / mp +
                          Para.PrivatEinlagen / mp;
                          
  // Weiterer Code
end;

Wenn ich die Delphi-Dll debugge, ist der Parameter "Para" nicht verfügbar und es kommt zu einer Schutzverletzung. Entfernt man in der C#-Anwendung im Feld para1.Jahresumsatz1 die Nachkommastellen (statt 1219758.83d nur 1219758 übergeben) funktioniert alles wunderbar.

Ich bin ratlos. Hat jemand eine Idee?
Bin nur noch heute und morgen in der Firma, dann erst nächste Woche wieder. Kann also auf Rückfragen u.U. nicht sofort antworten.

Gruß
Johann

[KodeZwerg]

Zitat:

Zitat von JFB (Beitrag 1407532)

1219758.83d

Ist das ein Schreibfehler mit dem "d" am Ende?

[JFB]

Zitat:

Zitat von KodeZwerg (Beitrag 1407534)

Zitat:

Zitat von JFB (Beitrag 1407532)

1219758.83d

Ist das ein Schreibfehler mit dem "d" am Ende?

Nein, das ist notwendig, damit der C#-Compiler weiß, in welches Format das Literal konvertiert werden soll. In diesem Fall bedeutet "d" = double.

[KodeZwerg]

Nur so eine Idee, ich weiß nicht genau zwischen C# <-> Delphi wie das intern abläuft aber vielleicht kann Dir ein Frac() helfen.
Also Vorkomma und Kommata Werte einzeln schicken. Tut mir leid falls das völliger Blödsinn ist!

[JFB]

Zitat:

Zitat von KodeZwerg (Beitrag 1407539)

Nur so eine Idee, ich weiß nicht genau zwischen C# <-> Delphi wie das intern abläuft aber vielleicht kann Dir ein Frac() helfen.
Also Vorkomma und Kommata Werte einzeln schicken. Tut mir leid falls das völliger Blödsinn ist!

Du hast die Antwort selbst gegeben: Völliger Blödsinn. Wenn die Struct nur einen double-Wert für Jahresumsatz1 hat, kann ich natürlich nicht einfach zwei daraus machen, zumal ich die aufgerufene Dll nicht ändern darf.

[KodeZwerg]

Könnte es sein das C# String nicht mit Delphi String eins ist?
Probehalber String mit PAnsiChar tauschen und testen, ginge das? (in der DLL, nicht im C#, auch wenn du DLL nicht verändern darfst)

[JFB]

Hatte vergessen, für den Delphi-Teil die Deklaration des Übergabeparameters hinzuzufügen. Habe ich jetzt gemacht (siehe Anfangsposting).

Der C#-String wird in einen AnsiString umgewandelt ([MarshalAs(UnmanagedType.ByValTStr, SizeConst = 3 + 1)]).

Gruß
Johann

[KodeZwerg]

Überall wo ich lese, wie hier zum Beispiel wird kein direkter String genutzt sondern die Pointer-Variante, deswegen fragte ich ob Du das mal testen könntest (das betrifft nur die Delphi DLL und nicht dein C#)

[TiGü]

In Delphi einen WideString umändern und in C# einen UnmanagedType.BStr konvertieren.
Siehe: https://social.msdn.microsoft.com/Fo...=csharpgeneral

[JFB]

@KodeZwerg:
Vielen Dank! Du hast mich auf die richtige Spur gebracht. Meine Lösung sieht jetzt folgendermaßen aus:

In der Delphi-Dll habe ich AnsiString durch PAnsiChar ersetzt. Das allein reichte aber noch nicht, da dadurch zwar kein Fehler mehr auftrat, das Währungs-Feld der Struktur aber nur als leerer String übergeben wurde. In der C#-Struktur habe ich das Währungsfeld in Unmanaged.LPStr (statt wie bisher in UnmanagedType.ByValTStr) geändert.

Hier ist eine ganz gute Beschreibung der Problematik:
https://limbioliong.wordpress.com/20...d-code-part-1/