String array als Parameter für externe DLL?

[pantarhei]

Mal wieder eine Problem bzgl. Übergabeparameter für eine externe DLL Funktion. Meine externe Funktion sieht folgendermassen aus:

Code:

extern "C" __declspec(dllexport) int __cdecl Identify(BSTR* bstrTemplates, __int64 lCount, __int64* lIndex, __int64* lRetCode)

BSTR* bstrTemplates soll ein string array sein, und lcount die Anzahl in dem übergebenen array. Wie ist obige Funktion in D7 zu deklarieren, und wie übergebe ich ein array of string an diese Funktion?

[blackfin]

BSTR* ist ein Pointer auf ein C-string-Array.
(Ein Sternchen beim Typ ist ein Pointer auf den Typ in C, ein Sternchen bei der Variable selbst würde dem "var" Statement von Delphi entsprechen)
Normalerweise übergibt man die Argumente einer C-DLL über ein array of PChar:

Delphi-Quellcode:

var  
  ArgCount: Integer ;
  Arg : array of PChar;
  PArg : ^PChar;  
begin    
   SetLength(Arg,2);
   Arg[0]:= xxx // Param 1
   Arg[1]:= xxx // Param 2
   ArgCount := High(Arg)+1 ; // Anzahl der Parameter steht in ArgCount
   PArg:=@Arg[0];  // PArg übergibst du dann an die Funktion   
end;

Wenn ich keine Fehler gemacht habe (unwahrscheinlich ), müsste sich die Header-Funktion so übersetzen lassen:

function Identify(bstrTemplates : ^PChar; lCount: Int64; lIndex: Int64; lRetCode: Int64): Integer; cdecl; external '<Dateiname der DLL>';
...korrigiert mich, ich bin kein C-Tier

[pantarhei]

Erstmal Danke für den Tip. Also bei der Deklaration wird schonmal ^PChar angemeckert.

=> Identifier expected but '^' found.

Wenn ich anstelle ^PChar nur Pointer verwende, läuft es zwar erzeugt aber eine Access Violation wenn ich den Rest des Codes so benutze. Ich blicke es gerade gar nicht.

[blackfin]

Das mit dem Identifier expected liegt daran, dass der compiler den Pointer so nicht mag, deklariere einfach einen Typ vorher:

Delphi-Quellcode:

type
  PPChar = ^PChar ;
...
..
.
function Identify(bstrTemplates : PPChar; lCount: Int64; lIndex: Int64; lRetCode: Int64): Integer; cdecl; external '<Dateiname der DLL>';

[DeddyH]

Zitat:

ArgCount := High(Arg)+1 ;

Wäre ArgCount := Length(Arg); nicht die sicherere Alternative? Klar, bei dynamischen Arrays kommt das auf das Selbe heraus, trotzdem gefällt mir das so besser.

[pantarhei]

Erzeugt leider wie die meisten anderen Versuche auch eine Access Violation. Wenn ich das Ganze mit einem array of WideString durchspiele gibt es wenigstens keine AV. Aber die Funktion macht dann auch nichts.

[blackfin]

Wie hast du es denn nun genau deklariert und wie / wo rufst du die Funktion auf?
Eine AV kann vieles sein
Woher kommt die DLL überhaupt? Das ist aber keine COM-Dll?