Delphi DLL Schnittstelle zu C#

[TTF]

Ich habe eine Test-Schnittstelle von Delphi nach C# geschrieben.

Hier ist der Delphi Code der DLL:

Code:

type
ITest = interface
  ['{D032F796-167D-4B0D-851D-2AEEA226646A}']
  Function GetTest : Integer; stdcall;
  Procedure SetTest(value : integer); stdcall;
end;

TTest = class(TInterfacedObject, ITest)
   public Function GetTest : Integer; stdcall; export;
   public Procedure SetTest(value : integer); stdcall; export;
   public Test: integer;
end;

Function TTest.GetTest() : Integer; stdcall; export;
begin
  result := Test;
end;

Procedure TTest.SetTest(value : Integer); stdcall; export;
begin
  Test := value;
end;

function GetTest() : TTest; stdcall; export;
begin
  Result := TTest.Create;
end;

exports
  GetTest;

end.

Hier der C# Code:

Code:

namespace WpfApplication1
{
    public partial class MainWindow : Window
    {
        [ComImport, Guid("2B4AD756-C379-4BAB-9804-72E9A9E0B26F"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
        public interface ITest
        {
            [MethodImplAttribute(MethodImplOptions.PreserveSig)]
            [return: MarshalAs(UnmanagedType.U1)]
            void SetTest(int value);
            [MethodImplAttribute(MethodImplOptions.PreserveSig)]
            [return: MarshalAs(UnmanagedType.U1)]
            int GetTest();
        }

        public abstract class TTest : ITest
        {
            public abstract void SetTest(int value);
            public abstract int GetTest();
        }

        [DllImport("Schnittstellen_1.dll", SetLastError = true, CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Unicode)]
        public static extern TTest GetTest();      

        public MainWindow()
        {
            InitializeComponent();
        }

        private void Window_Initialized(object sender, EventArgs e)
        {
            GetTest().SetTest(2);
            MessageBox.Show(GetTest().GetTest().ToString());
        }
    }
}

Wäre extrem dankbar, wenn sich jemand den Code durchlesen und auf Fehler überpfüfen könnte.

Fehlermeldung in VisualStudio:
In System.Runtime.InteropServices.COMException ist eine Ausnahme aufgetreten.

Unbekannter Fehler(Ausnahme von HRESULT: 0x80004005(E_FAIL))

[EWeiss]

Was mir noch auffällt warum zwei unterschiedliche GUIDS für das gleiche Interface ??
ITest C# Guid("2B4AD756-C379-4BAB-9804-72E9A9E0B26F")
ITest Delphi ['{D032F796-167D-4B0D-851D-2AEEA226646A}']

gruss

[TTF]

Danke vielmals
Werd's später nochmals versuchen;D

[TTF]

Könntest du mir eventuell noch den vollständigen Code schicken?
(Mit Deklarationen)
Danke im Voraus
TTF

[EWeiss]

Zitat:

Zitat von TTF (Beitrag 1265722)

Könntest du mir eventuell noch den vollständigen Code schicken?
(Mit Deklarationen)
Danke im Voraus
TTF

Vollständigen Code?
Verstehe nicht was du damit meinst.

Meine Dll ist Closed Source abgesehen von ein paar Schnipseln daraus.

Sorry.

gruss

[TTF]

Jetzt wo du deinen Source code herausgenommen hast kann ich es dir logischerweise nicht erklären. Ich habe ihn nicht abgespeichert.

[EWeiss]

Zitat:

Zitat von TTF (Beitrag 1265744)

Jetzt wo du deinen Source code herausgenommen hast kann ich es dir logischerweise nicht erklären. Ich habe ihn nicht abgespeichert.

Dann häng doch mal dein Projekt an..
Die kleine DLL und das WPF Projekt so das ich es mal hier kompilieren und ändern/ausführen kann.

gruss

[TTF]

Cool danke!:thumb:

[EWeiss]

Zitat:

Zitat von TTF (Beitrag 1265752)

Cool danke!:thumb:

Leider fehlt das Projekt der DLL ;)

Zitat:

{"Der Einstiegspunkt \"GetTest\" wurde nicht in der DLL \"Schnittstellen_1.dll\" gefunden.":""}

Den Fehler habe ich schon behoben basierend auf oben geposteten Code Schnipsel.

Zitat:

In System.Runtime.InteropServices.COMException ist eine Ausnahme aufgetreten.

gruss

[TTF]

Oh Entschuldigung

Hier ist das Projekt:

[EWeiss]

Habe alle mir bekannten Möglichkeiten ausgeschöpft
komme leider zu keinem Ergebnis.

Vielleicht hilft dir dieser Beitrag weiter.

http://www.delphipraxis.net/159737-z...i-library.html
Letzter Beitrag.

Sorry :cry:

gruss

[Blup]

Ohne mich mit der Problematik näher auseinander zu setzen:
Sollte GetTestClass nicht "ITest" liefern statt "TTest"?
Schließlich kennt nur die DLL die konkrete Klasse.

[TTF]

Danke hab ich probiert. Dann weiss ich halt einfach nicht was ich damit in C# anfangen soll. Ich kann ja kein Objekt davon erzeugen oder so...
Ich wäre sehr froh, wenn du dir den C# Code noch einmal angucken könntest...Ich habe irgendwie immer mehr das Gefühl, dass nicht allzu viel von dem Sinn ergibt:oops::lol:

Herzlichen Dank an EWeiss für seine Bemühungen.

[Elvis]

Man sollte aufpassen, wenn man mit Delphi sdtcall benutzt.
Delphi übergibt rückgabewerte anders, als es unter Windows eigenetlich sein sollte.
Es ist deshalb angebracht diese als out-Parameter zurückzugeben:

Delphi-Quellcode:

procedure GetTestClass(out value : ITest); stdcall; export;
begin
  value := TTest.Create;
  value.SetTest(5);
end;

Code:

[DllImport("Schnittstellen_1", EntryPoint = "GetTestClass", SetLastError = true)]
public static extern void GetTest(out ITest value);

public static void Main()
{
    ITest test;
    GetTest(out test);
    Debug.Assert(test.Test == 5);
    test.Test = 2;
    Debug.Assert(test.Test == 2);

Außerdem, woher hast du denn das mit dem UnmanagedType.U1?
Ein Integer in Delphi ist binär kompatibel mit einem Int32 in .Net, den man in C# auch "int" nennen kann.

Wenn du in Delphi die Interface-methoden als safecall markierst, wird sie Delphi für dich so ummodeln, dass sie dem HResult-Pattern aus der COM-Welt passen:

Delphi-Quellcode:

ITest = interface
  ['{D032F796-167D-4B0D-851D-2AEEA226646A}']
  function GetTest : Integer; safecall;
  procedure SetTest(value : integer); safecall;
end;

Dann würde das Interface in C# so aussehen:

Code:

[ComImport, Guid("D032F796-167D-4B0D-851D-2AEEA226646A"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface ITest
{
    int Test { get; set; }
}

Wenn du es so lassen willst wie jetzt, würde man es in C# trotzdem als property mappen:

Code:

[ComImport, Guid("D032F796-167D-4B0D-851D-2AEEA226646A"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface ITest
{
    int Test
    {
        [MethodImplAttribute(MethodImplOptions.PreserveSig)]
        get;
        [MethodImplAttribute(MethodImplOptions.PreserveSig)]
        set;
    }
}

btw, du hast da EINIGE Dinge eingebaut, die da überhaupt nicht hingehören:

• Deine exportierte Funktion hat keine String, warum also Unicode im DllImport?
• stdcall ist die nromale CallingConvention, muss da also nicht stehen.
• Deine Interface-GUIDs waren unterschiedlich, wofür sind den die GUIDs wohl da, wenn nicht um das Interface in beiden System zu identifizieren? ;-)

[TTF]

Wow danke!!!!:lol::lol::thumb::corky::chat:

Du bist genial:thumb:

Funzt perfekt !Da verfliegt doch der Ärger über meine blöden Fehler schnell:roll::wall:

[EWeiss]

Zitat:

Zitat von TTF (Beitrag 1265906)

Wow danke!!!!:lol::lol::thumb::corky::chat:

Du bist genial:thumb:

Funzt perfekt !Da verfliegt doch der Ärger über meine blöden Fehler schnell:roll::wall:

;)

@Elvis :thumb:
War dann doch der richtige Beitrag den ich verlinkt habe.
Na dann! Schön das es nun funktioniert.

gruss

[TTF]

Zitat:

Zitat von EWeiss (Beitrag 1265810)

Habe alle mir bekannten Möglichkeiten ausgeschöpft
komme leider zu keinem Ergebnis.

Vielleicht hilft dir dieser Beitrag weiter.

http://www.delphipraxis.net/159737-z...i-library.html
Letzter Beitrag.

Sorry :cry:

gruss

Siehste musst nicht weinen. War nicht dein letzter Beitrag:-D