DLL aus DCU läßt sich nicht laden

[gmc616]

Hallo DP,

seit Neustem habe ich ein Problem mit meinem Delphi 7. Und zwar:

Ich schreibe an einem Programm, welches DLLs benutzt, nämlich meine eigenen.
Beide "Programm-Teile", die Application und die DLL benutzen Funktionen aus den gleichen Units.
Wenn ich die Application erstelle, über "Projekt erstellen", erzeugt der Compiler die DCUs und legt sie in den gleichen Ordner, wo auch die PAS-Dateien liegen.

Starte ich die Application und lade meine DLL mittels LoadLibrary bekomme ich ein Handle zurück mit dem ich später mein DLL-Funktionen einbinden kann. Klappt soweit alles prima.

Wenn nun aber die DLL compiliere, verwendet der Compiler (oder der Linker, weiß ich nicht) nicht die PAS-Dateien, sondern die bereits compilierten DCU-Dateien. Ich denke das ist von Seiten Delphi auch gewollt so und prinzipiell auch erst mal nicht falsch.

Lade ich nur die DLL, die mit Hilfe der DCU's erstellt worden ist, wieder mit LoadLibrary, erhalte ich als Handle 0 zurück.

Erst wenn ich die DCUs lösche und die DLL erneut compiliere kann ich in meiner Application die DLL wieder korrekt laden.

Gibt es einen Grund dafür? Habt ihr das schon erlebt?
Könnten unterschiedliche Compiler-Einstellungen der Grund dafür sein? (Obwohl ich in beiden "Teilen" die gleichen Einstellungen verwende)

Komisch! ... und nervig!

Auf Antwort hoffend,
gmc

[Apollonius]

Lass dir doch mal SysErrorMessage(GetLastError) ausgeben.

[gmc616]

Code:

126 (ERROR_MOD_NOT_FOUND)  The specified module could not be found.

Obwohl die DLL definitiv dort ist, wovon sie geladen werden soll.

[SirThornberry]

Ich könnte mir dann nur noch vorstellen das du mit relativen Pfadangaben arbeitest und beim neu compilieren werden eventuell die Verzeichnisse gewechselt wodurch deine DLL gefunden wird.

[Apollonius]

Schau mal mit FileExists, ob die Datei gefunden wird.

[gmc616]

Das Arbeitsverzeichnis setze ich beim App-Start mit chdir (ExtractFilePath(Application.Exename)); auf das Verzeichnis der Exe. Alle Path-Angaben setze ich ExpandFilePath auf absolute Pfade.

Diese Art und Weise funktioniert schon seit über 2 Jahren in dem Projekt.
Erst seit Neustem bekomme ich Probleme mit dem Laden der DLLs wenn sie aus DCUs erstellt werden.

Die Überprüfung mit FileExists ergibt TRUE. Das Laden der DLL ein 0-Handle.
Irgendwie scheint die Dll kaputt zu sein.

Einen Fehler im Code (der seit 2 Jahren funktioniert) konnte ich nicht entdecken, daher auch die Frage im "Delphi-IDE"-Board, ob nicht evtl. irgendwelche Compiler-Einstellungen oder Projekt-Optionen eine Ursachen sein könnten, denn an denen "experimentiere" ich nämlich hin und wieder.

Was ich gestern beim Probieren auch noch festgestellt habe ist, dass ich, wenn ich nur(!) aus den DCUs kompiliere, ich den Fehler bekomme "UnitA.dcu" ist mit einen anderen Version der "UnitB.dcu" kompiliert worden. Was aber unmöglich sein kann, da ich weit und breit auf dem ganzen Rechner nur eine "UnitA" und nur eine "UnitB" habe. Die DCU's ansich habe ich alle(!) schon mehrmals komplett gelöscht.

Auch habe ich nur ein Delphi 7 auf dem Rechner und kein weiters.

Irgendwie kriege ich den Eindruck das ein "Format C:" die Lösung meiner Probleme ist.

[Apollonius]

Vielleicht behält Delphi aus irgendeinem Grund ein Handle auf die Datei offen, welches Lese-Zugriff verbietet. Hole dir mal mit CreateFile ein Handle mit GENERIC_READ.

[Christian Seehase]

Moin gmc,

Zitat von gmc616:

Das Arbeitsverzeichnis setze ich beim App-Start mit chdir (ExtractFilePath(Application.Exename)); auf das Verzeichnis der Exe.

Auch wenn das jetzt mit Deinem Problem nichts zu tun hat:
Das hilft Dir nichts, wenn im Laufe des Programmes das Arbeitsverzeichnis geändert wird (z.B. durch einen Open-/Savedialog).

Zitat von gmc616:

Alle Path-Angaben setze ich ExpandFilePath auf absolute Pfade.

da wo Du sie benutzt, oder gesammelt beim Programmstart, so dass sich eine spätere Änderung des Arbeitsverzeichnisses nicht mehr auswirkt?

BTW:

Zitat von PSDK - LoadLibrary - Remarks:

The search path can be altered using the SetDllDirectory function. This solution is recommended instead of using SetCurrentDirectory or hard-coding the full path to the DLL.

[Luckie]

Zitat von Apollonius:

Vielleicht behält Delphi aus irgendeinem Grund ein Handle auf die Datei offen, welches Lese-Zugriff verbietet. Hole dir mal mit CreateFile ein Handle mit GENERIC_READ.

Dann wäre die Fehlermeldung eine andere. Ich bin mir ziemlich sicher, dass die Dstei an einem Ort gesucht wird, wo sie nicht ist. Und ich bin mir ziemlich sicher, das Problem liegt hier:
chdir (ExtractFilePath(Application.Exename)); Du verlässt dich darauf, dass sich das Arbeitsverzeichnis bis zum Aufruf von LoadLibrary nicht ändert - und fliegst mit der Annahme auf die Nase.

Warum überhaupt solche unsicheren Krücken? Warum nicht den richtigen, absoluten Pfad bei LoadLibrary angeben:
LoadLobrary(PChar(ExtractFilePath(Application.Exename) + 'meine.dll'));

[DeddyH]

So sollte es ziemlich sicher gehen, sofern die Vermutung mit dem falschen Pfad zutrifft:LoadLibrary(PChar(IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + 'meine.dll'));