DLL-Zugriff und EAccessViolation

**Dunkel**

Hallo zusammen!

Ich bräuchte mal ein wenig seelischen Beistand von Euch. Irgendwie habe ich das dumme Gefühl, dass ich mich extrem verrannt habe.

Ich möchte mir einen Wrapper für eine

externe DLL schreiben. Zur Verfügung habe ich die DLL itself, eine Dokumentation der DLL und einen Wrapper für VB.NET.

Das sagt die Doku:

Zitat:

Integer AUDIOFormatIsValid
Beschreibung:
zeigt an, ob die Audio-Datei gültig ist
Parameter:
keine
Rückgabewert:
Integer -1 wenn Datei gültig ist, ansonsten 0

Die entscheidenden QT-Zeilen aus der VB.NET-Wrapper-Datei:

markieren

Code:

			  Private Declare Auto Function AUDIOFormatIsValidW Lib "AudioGenie2.dll" Alias "AUDIOFormatIsValid" () As System.Int16

  Public Function AUDIOFormatIsValid() As System.Boolean

    Return CBool(AUDIOFormatIsValidW)

  End Function

und hier meine Umsetzung in Delphi:

zusammenfalten · markieren

Delphi-Quellcode:

			function TAudioGenie2.AUDIOFormatIsValid: boolean;

type

  TAudioGenie2_AUDIOFormatIsValid = function: integer; stdcall;

var

  Proc: TAudioGenie2_AUDIOFormatIsValid;

  Handle: THandle;

begin

  Result:= False;

  Handle:= LoadLibrary(PChar(AudioGenie2dll));

  if Handle <> 0 then

    begin

      @Proc := GetProcAddress(Handle, 'AUDIOFormatIsValid');

      if @Proc <> nil then

        Result:= Proc = -1;

      FreeLibrary(Handle);

    end;

end;

Egal welchen Rückgabetyp ich für die DLL-Function verwende, ich bekomme immer eine Debugger-EAccessViolation-Exception "at address XYZ in 'DLL'. Read of address 00000000" in Zeile 14. Die DLL kann also geladen werden, der Export-Einsprungspunkt wird anscheinend auch gefunden.

Mache ich was falsch oder ist das womöglich ein Fehler in der DLL?

DLL-Zugriff und EAccessViolation

DLL-Zugriff und EAccessViolation

Forumregeln