Aufruf DLL: Wie nur das Array?

[markus123]

Hallo zusammen,

ich muss hier eine DLL einbinden, was bis jetzt problemlos funktioniert hat. Folgende Gegebenheiten: Ich habe die DLL und eine API dazu. Hinzu ein funktionierendes C++ Beispiel. Dazu eine Delphi-Unit mit den StdCalls, die meiner Meinung nach aber nicht immer 100% richtig ist. Vom Hersteller fehlt leider der Support, die sind der Meinung, dass man mit C++ doch viel besser zurecht kommt...

Mein Problem: Es gibt einen Record (C++ struct). Folgende C++ und Delphi Umsetzung, die soweit an vielen Stellen problemlos funktioniert:

Code:

typedef struct { 
   long dLength; 
   BYTE* dpRef; 
} FAPIMem; 

FAPIMem = record
   dLength: LongInt;
   dpRef: PBYTE;
end;

Nun gibt es Aufrufe, die laut Doku Funktionen mit Input Parameter: FAPIRef* - im StdCall sieht das dann so aus:

Code:

function XY(var pRef: FAPIMem): LongInt stdcall; external 'my.dll' name '_FAPIXY@4';

Wenn ich die Funktion nun ausführen will, funktioniert folgender Code auch wieder problemlos:

Code:

var
  apiMem: FAPIMem;
begin
  XY(apiMem);
end;

Und jetzt kommt das eigentliche Problem: Eine Funktion YZ mit Input FAPIMem** - FAPIMem Reference Array (beachtet den Doppelstern!). Dazu noch ein Integer-Parameter length. Das ganz sieht für mich nun so aus, als wenn ich ein Array of FApiMem übergeben soll. Die (vorgegebene) Umsetzung des Delpi StdCalls sieht nun so aus:

Code:

function YZ(var pRef: FApiMem; length: LongInt): LongInt stdcall; external 'my.dll' name '_FAPIXY@40';

Also bin ich wie folgt vorgegangen:

Code:

var
  apiMem: arry of FApiMem;
begin
  SetLength(apiMem, 2);
  // ... hier jetzt Initialisierung ...
  YZ(apiMem[0], 2);
end;

Leider kommt dann der Fehler, dass die Daten ungültig wären. Ich gehe an der Stelle davon aus, dass meine Initalisierung korrekt funktioniert, denn wenn ich anstatt YZ die Funktion XY mit einem apiMem[0] aufrufe, klappt alles.

Der (angeblich) funktionierende C++ Code lautet in etwa:

Code:

FAPIMem **reqTest;

reqTest = (FAPIMem**) malloc (sizeof(FAPIMem*)*2);
reqTest[0] = malloc(sizeof(FAPIMem));
reqTest[1] = malloc(sizeof(FAPIMem));
// -- Hier dann die Intialisierung der eigentlichen Daten
NumberOfRef = 2;
YZ(reqTest, NumberOfRef);

Ich hätte ja fast behauptet, dass meine Umsetzung in Delphi korrekt ist, oder aber dass ich bei der Datenerzeugung wirklich irgendwo daneben greife. Allerdings komme ich keinen Zentimeter weiter und würde von euch gerne wissen, was ihr denke: Ist mein Ansatz falsch oder soll ich den Fehler woanders suchen?

Vielen Dank,
Markus

PS: Die DLL heißt natürlich nicht my.dll und die Funktionen nicht XY, YZ. Allerdings darf ich die Daten hier aus Lizenzgründen nicht weitergeben. Sorry!

[himitsu]

malloc .... das sieht für mich eher so aus, als wenn es ein array of PFApiMem sein soll.

** = Zeiger auf eine Liste von Zeigern auf deinen Record


PS: FApiMem ... in Delphi würde ich das eher TFApiMem nennen.


Und welche Delphi-Version war das jetzt nochmal?

[Blup]

Ich würde das auch so übersetzen:

Delphi-Quellcode:

TApiMem = ^PApiMem;
PApiMem = record
   dLength: LongInt;
   dpRef: PBYTE;
end; 

function YZ(var pRef: FApiMem; length: LongInt): LongInt stdcall; external 'my.dll' name '_FAPIXY@40'; 

var
  apiMem: array of PApiMem;
begin
  SetLength(apiMem, 2);
  New(apiMem[0]);
  // Initialisierung apiMem[0]
  New(apiMem[1]);
  // Initialisierung apiMem[1]
  YZ(apiMem[0], 2);
end;

[markus123]

Hallo ihr zwei,

vielen Dank für eure Hilfe - hätte man auch selbst darauf kommen können, aber das Brett vor dem Kopf ist eher größer als kleiner geworden. Das Beispiel von Blup funktioniert einwandfrei!

Die Namen sind natürlich nicht ideal, die werden noch angepasst...

Vielen Dank
Markus

[himitsu]

Und nicht das Dispose zum New vergessen.

Man könnte auch 2 Arrays verwenden, eines mit TFApiMem für den Inhalt und eines mit PFApiMem für die Übergabe ... darum auch die Frage nach der Delphiversion, denn da könnte man z.B. über Class Helper das Pointerarray ganz nett im anderen array verstecken oder gar eine automatische Umwandlung einbauen.

[markus123]

Sorry für die späte Antwort. Wir sprechen von Delphi 2007 Pro. Das mit dem Dispose war klar, außer ich hätte Speicher "sammeln" wollen

Grüße
Markus