C++ DLL Header -> Delphi (Struct)

[f.siebler]

Moin Moin,

so langsam blicke ich bei der übersetzung durch, naja zumindest bei den einfachen dingen

Nun ist bei mir leider ein neues Problem aufgetreten, und zwar das folgende:

Code:

//$e-----------------------------------------------------------------------------------------------
//   @EnrollEx
//
//   Function   :   Enrolls one finger : Creates a template from a set of acquisitions.
//
//   Input      :   pstEnrolledTemplate->dwTemplateSize supplies the buffer size.
//                  (must be at least TEMPLATE_SIZE).
//                  pUpdateFunc points to a callback function that updates execution status.
//                  pvObject points to an object (context) used by pUpdateFunc.               
//               pCompletionRoutine points to a completion routine called when the operation 
//               ends. If this callback is defined, this function behaviour
//                  is asynchronous (See Info section)
//               pvContext points to a context passed to pCompletionRoutine.
//
//   Output      :   pstEnrolledTemplate points to the enrolled template if the operation 
//                  succeeded.
//
//  Returns      :   RCDone if the operation succeeded.
//               RCFailed if the operation failed.
//               RCAborted if the operation has been aborted.
//               RCNoDevice if no acquisition device has been found.
//               RCNoSensor if there is no sensor or if the sensor is defective.
//               RCOpenFailed if there is a problem while opening the device.
//               RCBufferTooSmall if the buffer named pstEnrolledTemplate->pbyTemplate is too small
//               RCAllocationFailed if a dynamic allocation failed
//               (lack of memory resource)
//
//   Info      :   If pCompletionRoutine is NULL, this function will not return until the end 
//                  of the operation, and will consequently have a synchronous behaviour.
//$e-----------------------------------------------------------------------------------------------
DLLIMPORT DWORD EnrollEx( PSTBioTemplateEx const pstEnrolledTemplate, 
                      void (*pUpdateFunc)(PVOID,DWORD) = NULL, 
                      PVOID pvObject = NULL,
                      void (*pCompletionRoutine)(DWORD,PVOID) = NULL,
                      PVOID pvContext = NULL);

//$e-----------------------------------------------------------------------------

Code:

// Template
typedef struct {
   DWORD dwTemplateSize;
   DWORD dwTemplateID;
   BYTE* pbyTemplate;
} STBioTemplateEx, *PSTBioTemplateEx;

Daraus habe ich bisher folgendes gemacht:

Delphi-Quellcode:

type
  PSTBioTemplateEx = packed record
     dwTemplateSize : DWORD;
    dwTemplateID : DWORD;
    pbyTemplate: array [0..288] of DWORD;
  end;

function EnrollEx (pstEnrolledTemplate : Pointer; pUpdateFunc :  Pointer; pvUpdateCOntext : Pointer; pCompletionRoutine: Pointer; pvCompletionContext : Pointer): DWORD; cdecl; external 'BiometricDll.dll';

probleme bereitet mir der erste Parameter, ich habe ich schon die folgende Funktion Variante getestet:

function EnrollEx (var pstEnrolledTemplate : PSTBioTemplateEx ; pUpdateFunc : Pointer; pvUpdateCOntext : Pointer; pCompletionRoutine: Pointer; pvCompletionContext : Pointer): DWORD; cdecl; external 'BiometricDll.dll'; Leider bisher alles ohne Erfolg, ich vermute, dass ich mich irgendwo grundlegend verrant habe
Ich bekomme keine Fehlermeldung zurück, aber das Gerät macht nichts, in anderen Anwendungen geht es wunderbar (Demo Project in C++)

Wer von euch hat ne Idee! Wäre super...! Und mit "Erklärung" wäre es genial..

Besten Dank &

[f.siebler]

Ist erst mal erledigt, die Größe von

 pbyTemplate: array [0..648] of DWORD; war falsch....

Danke

[Robert Marquardt]

Delphi-Quellcode:

type
  TUpdateFunc = procedure(Param1: Pointer; Param2: DWORD); cdecl;
  TCompletionRoutine = procedure(Param1: DWORD; Param2: Pointer); cdecl;

function EnrollEx(var stEnrolledTemplate: STBioTemplateEx; UpdateFunc: TUpdateFunc = nil; pvUpdateCOntext: Pointer = nil;
  CompletionRoutine: TCompletionRoutine = nil; pvCompletionContext: Pointer = nil): DWORD; cdecl; external 'BiometricDll.dll';

Der erste Parameter stEnrolledTemplate war falsch deklariert. Das var bewirkt eine Indirektion, also ist der Typ vom Pointer auf die Struktur aud den Strukturtyp zu aendern.
Die Parameter sind Callback-Prozeduren und ein zugehoeriger Context-Pointer den man bestimmt zu beliebigen Zwecken einsetzen kann. Der duerfte als der Pointer-Parameter der Callback-Prozedur uebergeben werden.
Die Defaultwerte fuer die Parameter kann man auch in Delphi implementieren.

[f.siebler]

Danke! Läuft alles