Wer kann mir diese C Funktion uebersetzen?

[mika]

So, ich habe mir gedacht ich kann meine DLL ja schon mal umbauen und schreib
mir selber noch n kleines Testprogramm um die ganze Sache einmal auszuprobieren
aber irgendwie klappt das auch nicht so ganz.

Ich bekomms immer noch nicht hin die Parameter auszulesen. Da ich die Aufrufkonvention
jetzt ja auf cdecl geändert habe muss ich mich doch auch im "Aufrufenden" Programm
um die Speicherverwaltung der Parameter kümmern oder?


In meiner DLL habe ich folgenden Record deklariert

Delphi-Quellcode:

PParameterStructure = ^TParameterStructure;
TParameterStructure = Record
  one,
  two,
  three,
  four: double;
End;

Die Methode die aufgerufen wird sieht folgendermaßen aus:

Delphi-Quellcode:

Function PassParamFunction(Var Parameter: TParamStructure): Double; cdecl;
Var
  Wert1,
  Wert2,
  Wert3,
  Wert4: Double;
Begin
  Wert1 := Parameter.one;
  Wert2 := Parameter.two;
  Wert3 := Parameter.three;
  Wert4 := Parameter.four;
  Result := 0;
End

In meinem Testprogramm das die DLL aufruft ist in meiner "Api"-Unit folgendes angelegt!

Delphi-Quellcode:

PParameterStructure = ^TParameterStructure;
TParameterStructure = Record
  one,
  two,
  three,
  four: double;
End;

Function PassParamFunction(Var Parameter): Double; cdecl;

implementation

Function PassParamFunction(Var Parameter): Double; cdecl; external 'test.dll';

Und bei dem Button mit dem ich den ganzen Kram teste:

Delphi-Quellcode:

Procedure TestIt;
Var
  Parameter: PParameterStructure;

Begin
  GetMem(Parameter, SizeOf(TParameterStructure));
  Parameter.One := 12;
  Parameter.Two := 23;
  Parameter.Three := 34;
  Parameter.Four := 45;
  PassParamFunction(Parameter);
  FreeMem(Parameter);
End

Wisst ihr da weiter?