DLL in Delphi Win32 schreiben und in C# benutzen

[pajofego]

Hallo Leute ich möchte in Delphi Win32 eine DLL schreiben und diese in C# aufrufen bzw. benutzen. Dazu habe ich folgenden Beispielcode geschrieben: Nicht wildes!!!

Delphi-Quellcode:

library DLL_Test;

uses
  SysUtils, Classes;

{$R *.res}

function addiere(zahl1, zahl2: integer): integer; stdcall;
begin
  result:=zahl1+zahl2;
end;

exports
  addiere;
begin
end.

Und so schaut mein Beispielcode in C# aus...

Code:

 
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
using Test_DLL;

namespace Test_DLL
{
   class MainClass
   {
      [DllImport("DLL_Test.dll")]
      static extern int addiere(int zahl1, int zahl2);

      public static void Main(string[] args)
      {
         Console.WriteLine(Test_DLL.addiere(1,2));
         Console.Read();
      }
   }
}

Das funktioniert natürlich nicht! Das sind ja auch meine ersten Gehversuche, kann mir einer von euch sagen, wie ich o.g. Funktio aus der Delphi DLL in C# aufrufen kann?

Danke,

Gruß

pajofego

[Elvis]

Kann auch nicht gehen. ;)
Du ruft addiere direkt auf den Namespace auf. addiere ist bei dir aber eine statische Funktion von MainClass.

So gates:

Code:

using System;
using System.Runtime.InteropServices;

namespace Test_DLL
{
   class MainClass
   {
      [DllImport("DLL_Test.dll")]
      static extern int addiere(int zahl1, int zahl2);

      public static void Main(string[] args)
      {
         Console.WriteLine(addiere(1, 2));
         Console.Read();
      }
   }
}

[pajofego]

Hey Super und danke! Mensch soweit weg war ich ja nicht!

Manchmal sind es kleine Dinge, die einen glücklich machen! :-D

Gruß

pajofego

[pajofego]

Hallo,

jetzt war ich so glücklich darüber, dass o.g. Beispiel funktioniert und bin jetzt dabei überzugehen mich an etwas komplexeres heranzuwagen.

Delphi-Quellcode:

library DLL_Test;

uses
  SysUtils,
  Classes;

{$R *.res}

type
   TMyValue = Double;
   TMyValueArray = array of TMyValue;

function addiere(zahl1, zahl2: integer): integer; stdcall;
begin
  addiere:=zahl1+zahl2 * 2;
end;

function AddiereArrays(ArrayVal1, ArrayVal2 : TMyValueArray):TMyValueArray; stdcall;
var 
   i : integer;
   tempArray :TMyValueArray;
begin
   tempArray := nil;
   if not High(ArrayVal1) = High(ArrayVal2) then
      writeln('Array mit unterschiedlicher Groesse !!!')
   else
   begin
      SetLength(tempArray, High(ArrayVal1));
      for i := 0 to High(ArrayVal1) do
         tempArray[i] := ArrayVal1[i] + ArrayVal2[i];
   end;
   AddiereArrays := tempArray;
end;

exports
  addiere, AddiereArrays;
begin
end.

Ich habe jetzt einen Datentypen TMyValueArray deklariert. Diesen möchte ich ganz gerne in meinem C# Programm verwenden. Daran happerts noch: Kann mir jemand sagen wie ich das anstellen muss?

Code:

using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
using Test_DLL;

namespace Test_DLL
{
   class MainClass
   {
      [DllImport("dll_test.dll")]
      static extern int addiere(int zahl1, int zahl2);
      // ??? static extern TMyValueArray; ???
      static extern TMyValueArray AddiereArrays(TMyValueArray ArrayVal1, TMyValueArray ArrayVal2);
      public static void Main(string[] args)
      {
         Console.WriteLine(addiere(1,2));
         Console.Read();
      }
   }
}

C# meckert zurecht, dass er TMyValueArray nicht kennt...Wie rufe ich von C# AddiereArrays auf und übergebe ihm dabei zwei Arrays vom Datentyp TMyValueArray, dessen Größe ich in C# vorher definiert habe?

Danke für eure Hilfe!

BTW, falls ihr ein gutes Tut kennt, wo ich alles finden könnte, wäre ja super, dann müsste ich hier euch nicht nerven :oops:

Gruß

pajofego

[SirThornberry]

du solltest kein "Array of" verwenden. Denn ein dynamiches Array in der DLL ist Delphi eigenes Speichermangagement. Das ist ähnlich wie mit Delphistrings.

[pajofego]

Hi,

das geht nicht! Ich habe eine Menge Code in Delphi. Das will und kann ich nicht in C# umschreiben. Ich möchte aber weiterhin diesen Delphi Code warten und in C# verwenden. Deswegen die Frage, wie kann ich das entsprechend in C# einsetzen. Kann man denn nicht weiterhin die Speichervewaltung Delphi überlassen und nur über ein Pointer die Speicheradresse des Array zurückgeben lassen? Ist dafür "pinvoke" notwendig?

Danke,

Gruß

pajofego

[SirThornberry]

ein "Array of" ist ja intern ist ja intern auch nur ein Zeiger auf dynamich angeforderten Zeiger. Das heißt es müsste möglich sein die "Array of" Variable auf Pointer zu casten, zu dereferenzieren und schon bist du bei den eigentlichen Daten die du dann ansprechen kannst. Wie du das ganze aber auf C# anwendest weiß ich nicht. Es gibt ja auch noch die Möglichkeit das du die Daten anderweitig in die DLl rein reichst und erst in der DLL die Daten in ein Delphi-"Array of" stopfst.

[pajofego]

Zitat:

Zitat von SirThornberry

ein "Array of" ist ja intern ist ja intern auch nur ein Zeiger auf dynamich angeforderten Zeiger. Das heißt es müsste möglich sein die "Array of" Variable auf Pointer zu casten, zu dereferenzieren und schon bist du bei den eigentlichen Daten die du dann ansprechen kannst. Wie du das ganze aber auf C# anwendest weiß ich nicht. Es gibt ja auch noch die Möglichkeit das du die Daten anderweitig in die DLl rein reichst und erst in der DLL die Daten in ein Delphi-"Array of" stopfst.

Prizipiell habe ich es verstanden, aber wie das gehen soll, d.h die praktische Umsetzung, habe ich gar keine Ahnung. Vielleicht verirrt sich hier ein Spezialist auf diesen Gebiet, der mir das zeigen könnte.

Danke im voraus...

Gruß

pajofego

[pajofego]

:-D push :-D

[pajofego]

Hi,

ich wollte nochmal zärtlich nachfragen, ob mir hier keiner mehr zu o.g. Thema helfen kann?

Danke,

Gruß

pajofego