Einzelnen Beitrag anzeigen

pajofego

Registriert seit: 6. Okt 2004
103 Beiträge
 
#4

Re: DLL in Delphi Win32 schreiben und in C# benutzen

  Alt 27. Feb 2006, 22:01
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

Gruß

pajofego
  Mit Zitat antworten Zitat