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: