Einzelnen Beitrag anzeigen

Benutzerbild von Memo
Memo

Registriert seit: 19. Aug 2003
509 Beiträge
 
Delphi 7 Enterprise
 
#1

LoadLibrary und Windows 7 - 64 Bit

  Alt 18. Jan 2013, 09:22
Hallo,

ich nutze seid Jahren die Capi-Komponenten von http://www.isdn-tools.de

Nun musste ich eine Kleinigkeit an einem Programm ändern, das diese Komponenten nutzt. Unter Win7 x64 gibt es, beim Beenden meines Programms, wenn es aus der IDE gestartet wird, eine "Zugriffsverletzung bei Adresse sowieso: Schreiben bei Adresse 0x000..".
Das passiert aber nur aus der IDE heraus. Startet ich nur das Exe-File kommt keine Exception, auch MadExcept bekommt nichts mit.

Auf Win XP x86 läuft es sauber durch.
Auf der Suche nach der Ursache konnte ich Capi-Komponente als Verantwortlichen ausmachen.
Die Komponente lädt eine Capi2032.DLL und beim entladen passiert es dann:
Delphi-Quellcode:
var
 CapiLibHandle : THandle

destructor TCapi20Base.Destroy;
begin
  {$IFNDEF WIN32}
    DeallocatehWnd (WindowHandle);
  {$ENDIF}

  ReleaseApplication;

  IsLoaded := false;

  if (CapiLibHandle <> 0) then
    FreeLibrary (CapiLibHandle); <----- Hier knallt es

  inherited Destroy;

  ClassLoaded := False;
end
Geladen wird die capi2032.dll so:

Delphi-Quellcode:
procedure TCapi20Base.Loaded;
var profile : TCapiProfile;
    dllname : TFileName;
begin
  inherited Loaded;

  if not (IsLoaded) then begin
    if (csDesigning in ComponentState) then
    else begin
      {$IFDEF WIN32}
        dllname := FindDLLFile ('CAPI2032.DLL') + #0;
      {$ELSE}
        dllname := FindDLLFile ('CAPI20.DLL') + #0;
      {$ENDIF}

      if (Length (dllname) > 0) then
        CapiLibHandle := LoadLibrary (@dllname [1])
      else CapiLibHandle := 2;

 .....
Was könnte unter Win 7 x64 falsch laufen?
  Mit Zitat antworten Zitat