Delayed Loaded Libraries?

[Assarbad]

Also, ich weiß nicht ob das jetzt von neueren Delphi-Versionen nativ unterstützt wird (mangels Willen denen noch mehr Geld in den Rachen zu schmeißen), oder nicht. Compiler- bzw. linkerseitig meine ich. Aber ich benutze Delay-Loading noch für andere Dinge. So ist es eigentlich nicht möglich bestimmte DLLs als verzögert zu laden zu markieren - der Linker verhindert dies.

Aaaaber, durch die Callbacks, kann man natürlich schummeln. So kann man die DLL als "ntdll-delayed.dll" eintragen und dann einfach das korrekte HMODULE für ntdll.dll zurückgeben. Das benutze ich bspw. in ntobjx (delayimp.cpp) um die Funktionen aus der ntdll.dll verzögert zu laden.

Das eignet sich natürlich auch für andere DLLs die auf der schwarzen Liste des Linkers stehen und deshalb nicht als verzögert zu laden markiert werden können.

Zitat von Tahtu:

Gibt es eine Lösung, um alle DLLs erst dann zu laden, wenn sie benötigt werden? Evtl. eine Toolbox, ein Windows API call oder sonst etwas?

Jain.

Himitsu hatte ja bereits erklärt, warum es naturgemäß mit einigen DLLs nicht geht. Wenn du aber Anwendungs-DLLs hast, sollte es kein Problem sein. Der normale verzögerte Mechanismus lädt die DLL immer erst dann wenn eine Funktion aus der entsprechenden DLL benötigt wird. Allerdings ist das nicht zwangsläufig günstiger, weil Fehler beim Import so von dir zur Laufzeit behandelt werden müssen. Andererseits sieht es vielleicht freundlicher aus als die Fehlermeldung des Loaders, daß eine bestimmte DLL nicht auffindbar sei.

[himitsu]

Seit 'ner Weile gibt es die Starter-Editionen kostenlos, aber mangels Delphi-Quellcodes (RTL/VCL) wird dir diese Version wohl nicht viel bringen?
https://www.embarcadero.com/de/free-tools

Ab Delphi 2010 ist das implementiert.
Embarcadero hat dabei direkt den Loading-Code von Microsoft als OBJ eingebunden. Schade eigentlich, denn so schlimm/aufwändig ist der nicht und man hätte da auch direkt eine "bessere" Fehlerbehandlung implementieren können, inkl. Anzeige der aufgerufenen Funktion, bei welcher es knallt.
http://docwiki.embarcadero.com/RADSt...B6gertes_Laden
http://docwiki.embarcadero.com/CodeE...ading_(Delphi)

[Tahtu]

[unwichtig]

[Assarbad]

@Himitsu, bei dem einen Link fehlte was, nämlich die Klammer zu.

Zitat von himitsu:

Embarcadero hat dabei direkt den Loading-Code von Microsoft als OBJ eingebunden. Schade eigentlich, denn so schlimm/aufwändig ist der nicht und man hätte da auch direkt eine "bessere" Fehlerbehandlung implementieren können, inkl. Anzeige der aufgerufenen Funktion, bei welcher es knallt.

Also laut deinen Links ist das doch ziemlich vollständig, inwieweit kannst du denn deine Fehlerbehandlung nicht umsetzen?

[himitsu]

Neee, nicht ich meine ... Embarcadero hätte passende Fehlermeldungen werfen können, anstatt der Standardexception von Microsoft.
Selbst eine "sprechende" Fehlermeldung ohne Nennung der DLL/Function würde doch nett sein?

Hach, auch bei den Abstract-Exceptions hätte es Möglichkeiten gegeben Methodenname+Klassenname der abstrakten Methode in der Exception zu nennen.



Zumindestens in XE sind/waren die Fehlermeldungen nicht wirklich aussagefähig.
Und ich bin mir fast sicher, dass Embarcadero seit der Einführung in 2010 daran nichts mehr verändert hat.

Delphi-Quellcode:

function MessageBox2(hWnd: HWND; lpText, lpCaption: PWideChar; uType: UINT): Integer; stdcall;
  external 'user32.dll' name 'MessageBoxW2' delayed;
function MessageBox3(hWnd: HWND; lpText, lpCaption: PWideChar; uType: UINT): Integer; stdcall;
  external 'blubb.dll' name 'MessageBoxW' delayed;

procedure TForm4.FormCreate(Sender: TObject);
begin
  MessageBox(Self.Handle, 'Test', 'MessageBox', 0);
  try
    // normal:  Der Prozedureinsprungpunkt "MessageBoxW2" wurde in der DLL "...\Project4.exe" nicht gefunden.
    // delayed: Externe Exception C0FB007F
    MessageBox2(Self.Handle, 'Test', 'MessageBox2', 0);
  except
    on E: Exception do
      ShowMessage('MessageBox2: ' + E.Message);
  end;
  try
    // normal:  Das Programm kann nicht gestartet werden, da blubb.dll auf dem Computer fehlt. ...
    // delayed: Externe Exception C0FB007E
    MessageBox3(Self.Handle, 'Test', 'MessageBox3', 0);
  except
    on E: Exception do
      ShowMessage('MessageBox3: ' + E.Message);
  end;
end;

[Zacherl]

Zitat von himitsu:

Zumindestens in XE sind/waren die Fehlermeldungen nicht wirklich aussagefähig.
Und ich bin mir fast sicher, dass Embarcadero seit der Einführung in 2010 daran nichts mehr verändert hat.

Es gibt aber einen ganz netten Workaround:
http://www.drbob42.com/examines/examinc1.htm (der letzte Abschnitt)

[Tahtu]

Danke für die Antwort.

Ihr habt mich überzeugt: Der Delphi-Compiler müsste die Funktion bereitstellen. Also müsste ich mal die Hilfe von Delphi Berlin durchlesen, ob ich dort etwas finde.

Die DLLs, die ich selbst einbinde, habe ich schon mit LoadLibrary versorgt - dort finde ich also kein Potential zur Beschleunigung mehr...