raise innerhalb einer DLL setzt GetLastError auf 0

**BerndS**

Hallo, mir ist gerade aufgefallen, dass ein Programmteile der vorher in einer EXE waren und nun in eine DLL ausgelagert wurde sich leider ganz anders verhält. Hintergrund ist, dass das Hauptprogramm als DLL ausgeliefert werden soll um bestimmte Funktionen per Export für andere Programme Verfügung zu stellen da ein Export in als Exe nicht funktionierte.

Hier ein Beispiel:

markieren

Delphi-Quellcode:

			try

    with TFileStream.Create('C:\test.dat', fmOpenRead) do

      Free;

  except

    on E:Exception do

      Writeln(E.Classname, ': ', E.Message, ' LastError=', GetLastError);

  end;

In der Exe ist im except GetLastError=2 aber in der DLL wird GetLastError auf 0 gesetzt sobald raise in TFileStream.Create aufgerufen wird.

Ich habe die Sache schon im Debuger untersucht und auch die Stelle gefunden, wo das passiert.
Raise ruft intern _RaiseExcept (System.pas) auf die dann per CALL RaiseList in die Unit Sysinit springt.

zusammenfalten · markieren

Delphi-Quellcode:

			asm

        MOV     CL,ModuleIsLib

        MOV     EAX,TlsIndex

        TEST    CL,CL

        JNE     @@isDll

        ...

        RET

        ...

@@isDll:

        PUSH    EAX

        CALL    TlsGetValue

        TEST    EAX,EAX

        JE      @@initTls

end;

Da CL = 1 wird nach @@isDll gesprungen und in TlsGetValue GetLastError auf 0 gesetzt.
Ich habe die Quellen von Delphi2007 und von XE7 verglichen. Es ist in beiden Versionen identisch.
Es hat zur Folge, dass alle Programmteile einer DLL die im except eine Fehlerbehandlung mit GetLastError durchführen nicht mehr funktionieren.

Meine Frage ist nun:
1. kann man das irgendwie beheben, ohne die eigenen Quellen zu ändern?
2. Ist das in der aktuellen Version von Delphi immer noch so?

Gruß Bernd

raise innerhalb einer DLL setzt GetLastError auf 0

raise innerhalb einer DLL setzt GetLastError auf 0

Forumregeln