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?

[pantarhei]

[EDIT]
Ist keine COM-Dll. Ist eine DLL zum ansteuern eines Venescanners.
[/EDIT]

Type

Delphi-Quellcode:

type
  PPchar = ^PChar;

DLL
function Identify(ATemplates: PPChar; ATemplatesCount: Cardinal; var ATemplateIndex: Cardinal; var ARetCode: Cardinal): Integer; cdecl; external 'Identify.dll'; Aufruf

Delphi-Quellcode:

var
  scanIndex, retCode: Cardinal;
  Args: array of PChar;
  PArg: PPChar;
  ArgCount: Cardinal;
begin
  SetLength(Args, 2);
  Args[0] := 'template1';
  Args[1] := 'template2';
  PArg := @Args[0];
  ArgCount := High(Args) + 1;

  Identify(PArg, ArgCount, scanIndex, retCode);
end;

Ergibt dann eine EAccessViolation

=> Acces violation at address 7C80A300 in module 'kernel32.dll'. Read of adress...

Wenn ich jetzt anstelle des von dir vorgeschlagenen ^PChar in der Deklaration einen PWideChar verwende und anstelle eines array of PChar ein array of WideChar verwende kommt es beim Aufruf wenigstens nicht mehr zu einer AV. Allerdings macht die Funktion auch nicht dass was sie soll.

So langsam aber sicher blick ich gar nicht mehr durch.

[gammatester]

Auf jeden Fall solltest Du auch Int64 anstelle der Cardinal verwenden.

[pantarhei]

Zitat von gammatester:

Auf jeden Fall solltest Du auch Int64 anstelle der Cardinal verwenden.

Warum aufjedenfall? Zumindest bei einam anderen Aufruf aus der gleichen DLL tuts der Cardinal aufjedenfall. Evtl. eine kleiner Erläuterung deinerseits warum Int64 verwendet werden sollte?