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