String array als Parameter für externe DLL?

[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?

[gammatester]

Den Teil aus dem ersten Beitrag:

Code:

__int64 lCount, __int64* lIndex, __int64* lRetCode

hat Du mit ATemplatesCount: Cardinal; var ATemplateIndex: Cardinal; var ARetCode: Cardinal übersetzt. Richtig ist, daß die Pointer __int64* mit Var-Parametern belegt sind. Allerdings werden doch 64 Bit von der DLL zurückgeschrieben, Deine Cardinals haben 32 Bits, und die oberen überzähligen 32 Bit werden dann irgendetwas anderes auf dem Delphi-Stack überschreiben.

[pantarhei]

Habe es dann endlich doch noch gefunden. Problem war das dynamische Array. Damit kam die C Dll nicht zurecht. Ich vermute mal wegen dem length prefix. Hier der Vollständigkeit wegen noch wie es jetzt funktioniert:

Type

Delphi-Quellcode:

type
  TArrayOfWideString= array[0..999] of WideString;

Deklaration
function Identify(var ATemplates: TArrayOfWideString; ATemplatesCount: int64; var ATemplateIndex: int64; var ARetCode: int64): Integer; cdecl; external 'Identify.dll'; Verwendung

Delphi-Quellcode:

var
  templateIndex, retCode: int64;
  templates: TArrayOfWideString;
  retval: integer;

//TODO: range checking for TArrayOfWideString needed

templates[0] := 'template1';
templates[1] := 'template2';

retVal := Identify(templates, 2, scanIndex, retCode);