Interface Problem - AV beim Beenden des Programms

[Aviator]

Hallo Delphianer,

nachdem ich einige Hilfe im Bezug auf DLL Programmierung von euch erhalten habe, habe ich ein weiteres Problem.

Aktuell habe ich folgenden Aufbau:

• User DLL (DLL zum Verwalten und zum Auslesen von Benutzerdaten aus einer Datenbank)
• Session DLL (DLL um eine SessionID zu erzeugen mit der ein Benutzer nach der Anmeldung arbeiten kann)
• 2 unterschiedliche Interfaces

Ich denke, dass der Aufbau der Interfaces in der Sache egal ist. Deshalb poste ich die im Moment mal nicht. Sollten sie dennoch benötigt werden, dann kann ich sie natürlich einstellen.

Beim Start des Programmes lade ich beide DLLs. Eine DLL stellt nur eine Methode, die andere zwei im Export Abschnitt zur Verfügung, welche jeweils eine Interface Instanz zurückgeben. Das funktioniert soweit auch alles perfekt. Als Übergabeparameter erhält die exportierte Methode ein Interface, welches Datenbank Verbindungsparameter zur Verfügung stellt.

Delphi-Quellcode:

function GetInstance{(DataBaseConnectionInfo: IDataBaseConnectionInfo)}: IDMSSession; stdcall;
begin
  Result := TSessionManager.Create{(DataBaseConnectionInfo)};
end;


exports
  GetInstance;

Delphi-Quellcode:

function GetInstanceInt(DataBaseConnectionInfo: IDataBaseConnectionInfo): IDMSUserManager; stdcall;
begin
  Result := TDMSUserManager.Create(DataBaseConnectionInfo) as IDMSUserManager;
end;

function GetInstanceExt(DataBaseConnectionInfo: IDataBaseConnectionInfo): IDMSUserExchanger; stdcall;
begin
  Result := TDMSUserManager.Create(DataBaseConnectionInfo) as IDMSUserExchanger;
end;

exports
  GetInstanceInt,
  GetInstanceExt;

Die erste DLL (User DLL) kann ich problemlos laden und auch Funktionen darin aufrufen.

Die zweite DLL (Session DLL) lässt sich laden, ich kann auch Funktionen daraus aufrufen, aber beim Beenden des Programms schmiert die Anwendung mit einer AV ab.
Alle Aufrufkonventionen stimmen überein, es werden keine const Parameter verwendet wenn ich Interfaces zurückgebe, ...

Das an beide DLLs übergebene Interface habe ich testweise auch ein zweites Mal als zusätzliche Instanz erzeugt und auch mal ganz weggelassen (siehe die Codebeispiele oben). Trotzdem der gleiche Fehler. Nehme ich die Session DLL komplett raus, passiert gar nichts (wie erwartet). Lasse ich die Session DLL drin und nehme die User DLL raus, schmiert das Programm auch ab. Es hängt also wohl mit der Session DLL zusammen.

Die Fehlermeldung lautet:

Im Projekt Project1.exe ist eine Exception der Klasse $C0000005 mit der Meldung 'access violation at 0x0040d9a2: read of address 0x03fa9bc8' aufgetreten.

Das Programm beendet sich sauber, wenn ich die Variable der das Interface zugeordnet wurde vor dem Freigeben der Klasse in der die Variable verwaltet wird auf nil setze.

Warum ist das so? Wieso funktioniert es bei einer DLL und bei einer andere nicht?

Das Programm schmiert in der System.pas in der folgendes Procedure ab. Deshalb dachte ich, dass das etwas mit den Interfaces zu tun haben muss. Nur weiß ich nicht was.

Delphi-Quellcode:

function _IntfClear(var Dest: IInterface): Pointer;
{$IFDEF PUREPASCAL}
var
  P: Pointer;
begin
  Result := @Dest;
  if Dest <> nil then
  begin
    P := Pointer(Dest);
    Pointer(Dest) := nil;
    IInterface(P)._Release;
  end;
end;
{$ELSE !PUREPASCAL}
{$IFDEF CPUX86}
asm
        MOV     EDX,[EAX]
        TEST    EDX,EDX
        JE      @@1
        MOV     DWORD PTR [EAX],0
{$IFDEF ALIGN_STACK}
        SUB     ESP, 4
{$ENDIF ALIGN_STACK}
        PUSH    EAX
        PUSH    EDX
        MOV     EAX,[EDX]  // <---------  Hier bleibt der Debugger stehen!!!!!!!!!!!!!!
        CALL    DWORD PTR [EAX] + VMTOFFSET IInterface._Release
        POP     EAX
{$IFDEF ALIGN_STACK}
        ADD     ESP, 4
{$ENDIF ALIGN_STACK}
@@1:
end;
{$ENDIF CPUX86}
{$ENDIF !PUREPASCAL}

Ich hoffe, dass mir jemand bei dem Problem helfen kann. Ich weiß langsam wirklich nicht mehr weiter.