Übersetzung C++ -> Pascal, Callback, Zugriffsverletzung

[_BlackDragon_]

Hi Leute,

hab ein Problem bei der Übersetzung einer API von C++ nach Pascal/Delphi.

Erstmal die Deklaration der Original Callback Routine:

Code:

typedef void*( * ADL_MAIN_MALLOC_CALLBACK)(int)

Zitat:

Memory Allocation Call back.

Die Callback-Routine in Delphi als Typ deklariert:
type TADL_MAIN_MALLOC_CALLBACK = function(iSize: Integer): Pointer; stdcall;
So weit denke ich, das es richtig übersetzt ist.

Jetzt kommt die Routine aus der API, welche diese Callback-Routine nutzen soll.

Code:

int  ADL_Main_Control_Create (ADL_MAIN_MALLOC_CALLBACK callback, int iEnumConnectedAdapters)

Zitat:

Function to initialize the ADL interface. This function should be called first.

This function initializes the ADL library. It also initializes global pointers and, at the same time, calls the ADL_Main_Control_Refresh function.

Supported Platforms:
Linux and Windows(XP and Vista); 32bit and 64bit
Parameters:
[in] callback,: The memory allocation function for memory buffer allocation. This must be provided by the user. ...

Und meine Übersetzung:

Delphi-Quellcode:

type
  TADL_Main_Control_Create = function(CallBack: TADL_MAIN_MALLOC_CALLBACK;
                                      iEnumConnectedAdapters: Integer): Integer; stdcall;

Laut der Doku und den Beispielen, sieht die Implementierung der Callback-Routine
in C++ so aus:

Code:

void* __stdcall ADL_Main_Memory_Alloc ( int iSize )
{
    void* lpBuffer = malloc ( iSize );
    return lpBuffer;
}

Meine Implementierung:

Delphi-Quellcode:

function ADL_Main_Memory_Alloc(iSize: Integer): Pointer; stdcall;
begin
  Result := AllocMem(iSize);
end;

Des weiteren geht aus den Beispielen hervor, das die Initialisierung und der Aufruf wie folgt von statten gehen soll:

Code:

...
ADL_Main_Control_Create = (ADL_MAIN_CONTROL_CREATE)GetProcAddress(hDLL,"ADL_Main_Control_Create");
        if ( NULL != ADL_Main_Control_Create)
            ADL_Err = ADL_Main_Control_Create (ADL_Main_Memory_Alloc, 0);
...

In Delphi mache ich das so:

Delphi-Quellcode:

...
var
  ADL_Main_Control_Create: TADL_Main_Control_Create = nil;
...

function ADL_Initialize: Integer;
...

  @ADL_Main_Control_Create := GetProcAddress(hLib, 'ADL_Main_Control_Create');

  if (ADL_Main_Control_Create <> nil) then
  begin
    Result := ADL_Main_Control_Create(@ADL_Main_Memory_Alloc,0); // als Result wird 0 (= OK) zurück
                                                                 // gegeben, was laut Doku aussagt
                                                                 // das der Aufruf klappt.
  end;
...
end;

Der Aufruf klappt und die anderen Funktions-Variablen werden auch zugewiesen.
Aber beim Verlassen der Routine 'ADL_Initialize', wird nicht in den Programmteil, der den Aufruf
tätigt zurückgegehrt, sondern folgende Exception geworfen.

Zitat:

---------------------------
Benachrichtigung über Debugger-Problem
---------------------------
Im Projekt M:\Projekte\ADL_Test\debug\ADL_Test.exe sind zu viele auseinanderfolgende Exceptions aufgetreten: ''access violation at 0x00000000: read of address 0x00000000''. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

Leider bin ich bisher noch nicht dahinter gekommen warum, und möchte nun wissen ob
die Übersetzung wenigstens korrekt ist und ich Fehler darin ausschließen kann.

Vielen Dank schon mal für eure Hilfe.

Gruss

BlackDragon