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