C DLL mit Delphi verwenden

[Beowulf01]

Hallo ich habe ein Problem mit einer C-DLL.
Ich arbeite mit Delphi 7 und habe die Header-Dateien der Dll vorliegen.
Nur wie erkenne ich, wann ich cdecl, stdcall oder was auch immer verwenden muss. Ich weiß, dass diese Einstellung sagt, wie die Parameter des Callbacks auf dem Stack behandelt werden sollen. Also wer die aufräumt.
Das Problem direkt:
Ich kann wunderbar die Methoden der DLL aufrufen, aber dort, wo ich ein Callback erwarte, kommt einfach nichts. Daher meine Frage, wie ich prüfen kann, ob die Parameter korrekt übertragen wurden, und nicht zum Beispiel irgendwelche unsinns-Zeiger statt der korreten Zeiger auf die Callbacks übertragen wurden.

[Aphton]

Du könntest per Debugger im disassemblierten Code nachschauen, in welcher Reihenfolge die Parameter gepusht werden. Mehr fällt mir spontan auch nicht ein.

[Beowulf01]

Dankeschön, für den Hinweis. Ich glaub ich muss dann nur schauen, wie der Stackpointer sich währen dem Aufruf der DLL-Methode verhält, oder?

Ich habe gerade einfach mal stdcall gegen cdecl ausgetauscht und da hagelt es schon bei den ersten DLL-Aufrufen Schutzverletzungen, also geh ich mal von stdcall aus. Dennoch bekomme ich kein Callback aus der Dll. Ich werde gleich mal zusammenstellen, wie die Aufrufe im C-Beispielprogramm gemacht werden und wie ich das in Delphi umgesetzt habe. Dauert nur ein Momentchen...

[Beowulf01]

C Beispiel:

Header-File

Code:

#undef ATTR_PACKED
#if defined(_MSC_VER)
 #pragma pack( push, safe_old_packing, 4 )
 #define ATTR_PACKED
...
#endif

#ifdef PASCAL
    #define CODE_ATTR __stdcall
#else
    #define CODE_ATTR
#endif

typedef IOXS    (*CBF_DATA_WRITE) /* write data to IO stack (local ==> remote) */
       (UINT32          DevHndl,       /* Handle for device */
        DEV_ADDR      * pAddr,         /* address */
        UINT32          BufLen,        /* length of input data */
        UINT8         * pBuffer,       /* Ptr to data buffer to write to */
        IOXS            Iocs);         /* remote status */

typedef IOXS    (*CBF_DATA_READ)  /* read data from IO stack (remote ==> local) */
       (UINT32          DevHndl,       /* Handle for device */
        DEV_ADDR      * pAddr,         /* address */
        UINT32          BufLen,        /* length of input data */
        UINT8         * pBuffer,       /* Ptr to data buffer to read from */
        IOXS            Iops);         /* provider status */

/* structure for callback function block */
typedef struct {
    UINT32               size;          // size of struct = sizeof(CBF_FUNCTIONS)
    CBF_DATA_WRITE       cbf_data_write;
    CBF_DATA_READ        cbf_data_read;
} ATTR_PACKED CBF_FUNCTIONS;

UINT32 CODE_ATTR device_open (
        UINT16          DeviceId,       /* [in]  device id */
        CBF_FUNCTIONS * pCbf,           /* [in]  cbf */
        UINT32        * pDevHndl);      /* [out] device handle */

Hätte ich vorher schon genauer hingeschaut, hätte ich gesehen, dass es stdcall ist...(s.o.)

Und hier meine Umsetzung in Delphi:

Code:

{$Z4}

TCbfDataRWProc  =
  procedure(
    DevHndl     : UINT32;
    pAddr       : PTDevAddr;
    BufLen      : UINT32;
    pBuffer     : PTUINT8;
    Ioxs        : EIoXS
  ); EIoXS; stdcall;

TCbfFunctions =
  packed record
    size                : UINT32;
    cbf_data_write      : TCbfDataRWProc;
    cbf_data_read       : TCbfDataRWProc;
  end;

PTCbfFunctions = ^TCbfFunctions;

function device_open(
  DeviceId        : UINT16;
  pCbf            : PTCbfFunctions;
  pDevHndl        : PTUINT32
  ): UINT32; stdcall;

[Beowulf01]

Ich komme irgendwie nicht weiter...
Kann das Problem das Allignment der Daten in den Strukturen sein?
Ich habe eben festgestellt, dass bei einem MethodenAufruf eine C-Struktur 58 Byte groß ist und die dazugehörige Delphi-Struktur nur 56 Byte.

Die Struktur besteht aus :

Byte-Array (26 Bytes)
Byte-Array (21 Bytes)
Word ( 2 Bytes)
Byte ( 1 Byte )
Word ( 2 Bytes)
Word ( 2 Bytes)
Word ( 2 Bytes)

In Delphi habe ich ein Packed Record draus gemacht, aber in C wir die Direktive

#pragma pack( push, safe_old_packing, 4 )

verwendet. Heißt das jetzt ich muss

{$A4}

verwenden?

[Assarbad]

Welcher Typ ist denn IOXS? ... du hast bspw. keinen Rückgabewert in deiner Delphi-Funktionsdeklaration.

Ansonsten hilft hier nur sich das Projekt (oder die Make-Datei) anzugucken. MSVC erlaubt es einzustellen welche Aufrufkonvention standardmäßig verwendet wird.

Delphi-Quellcode:

TCbfDataRWProc =
  function(
    DevHndl    : UINT32;
    pAddr      : PTDevAddr;
    BufLen     : UINT32;
    pBuffer    : PTUINT8;
    Ioxs       : EIoXS
  ): IOXS; EIoXS; stdcall;

Ob stdcall hier korrekt ist, kann man ohne den Kontext zu kennen nicht sagen. Hast du bspw. die Projektdatei (MSVC) parat?

Nachtrag: Alignment ist bei diesem Record unter Annahme von 32bit (immerhin gibt es noch keinen offiziellen 64bit Delphi-Compiler) irrelevant.