Einzelnen Beitrag anzeigen

Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: DLL-Zugriff und EAccessViolation

  Alt 8. Feb 2008, 10:26
Du musst auch vor der Exception im CPU-Fenster gucken

Der Code bringt zumindest keine AV:
Delphi-Quellcode:
function AUDIOFormatIsValid: boolean;
var
  Proc1: function(datei:pwidechar):integer; stdcall;
  Proc2: function: integer; stdcall;
  Handle: THandle;
begin
  Handle:= LoadLibrary(PChar(AudioGenie2dll));
  if Handle <> 0 then
    begin
      Proc1 := GetProcAddress(Handle, 'AUDIOAnalyzeFile');
      Proc2 := GetProcAddress(Handle, 'AUDIOFormatIsValid');

      Proc1('test.mp3');
      Result:= Proc2 = -1;
      FreeLibrary(Handle);
    end;
end;
Und wenn ich aus dem "DateiChar" ein "Datei: PWideChar" mache, dann gibt die Funktion sogar true zurück (Proc1 liefert 1 und Proc2 -1)
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat