Array Parameter in einer DLL

[Aya]

Hi,

ich bastle gerade eine DLL in VC++ und binde die in Delphi ein. Klappt soweit alles ganz gut..

Nur, jetzt muß ich einen Array von Delphi an die DLL übergeben, in dieser DLL soll der Array gefüllt werden und wieder zurück zu Delphi..

Wie mach ich das?

Code:

void myFunction(float *output);
{
  for (int i = 0; i < 10; i++)
    output[i] = 5.0f;
}

Delphi-Quellcode:

TFloatArray = Array of Single;

procedure myFunction(var outPixels: TFloatArray); stdcall; external DLLName;

[...]
var
  output: TFloatArray;
begin
  SetLength(output, 100);
  myFunction(output);

So geht es leider nicht.. bekomme ne AccessViolation.

Hat jemand ne idee wie das geht??

Au'revoir,
Aya~

[mkinzler]

Versuchs mal nicht als var-Parameter.

procedure myFunction(outPixels: TFloatArray); stdcall; external DLLName;

[Aya]

Das klappt, tausend dank!

[Aya]

Hi,

hab dochnoch ne frage..
Wie sieht die deklaration in C++ aus, wenn ich einen "Array of PChar" statt des "Array of Single" haben will??

Aya~

[Dax]

Ich schätz mal **Char, aber da bin ich mir nicht ganz sicher..

[Aya]

Hi,

und wie schreib ich dann in den *char??

Code:

void myFunc(char *output);
{
  output = "Hello World";
}

Delphi-Quellcode:

procedure myFunc(var output: PChar); stdcall; external DLLName;

[...]
var
  output: PChar;
begin
  myFunction(output);
  ShowMessage(output);

egal ob ich das "var" weglasse oder nicht, ich bekomme nie "Hello World" angezeigt

Aya~

[Dax]

Wahrscheinlich musst du vorher den Speicher für deine Rückgabe reservieren (im Delphi-Programm), und dann irgendwie den String, den du zurückgeben willst, in output kopieren.. Aber frag mich nicht wie

[chaoslion]

hey ich weiß nicht ob es daran liegt, aber du willst den Wert von output ändern, also musst
du das so schreiben:

Code:

void myFunc(char *output);
{
  *output = "Hello World";
}