Problem mit dynamisch geladener DLL

[cruiser]

Jap. Ich werd (mit deiner Erlaubnis) diese Methode überall da wo es nötig ist einbauen. Oder ist es besser alle Proceduren in einer Loader-Unit zu kapseln und die uses zu ersetzen?

[Luckie]

Ich würde die Messageboxen aus der Unit rausnehmen und besser so was machen:

Delphi-Quellcode:

function Load: Boolean;
begin
  hLib := LoadLibrary(...)
  result := hLib <> 0;
end;

und beim Aufrufen dann:

Delphi-Quellcode:

if not Load then
  MessageBox(Handle, PChar(SysErrorMessage(GetLastError)), 'Fehler - DLL laden', MB_ICONSTOP);
else
  ...;

Dann kannst du je nach dem entscheiden, ob du eine Fehlermeldung an der Stelle willst oder nicht. Oder du machst es mit Exceptions, wenn dir das lieber ist:

Delphi-Quellcode:

function Load: Boolean;
begin
  hLib := LoadLibrary(...)
  if hLib = 0 then
    raise Exception.Create(SysErrorMessage(GetLastError));
end;

Delphi-Quellcode:

  try
    Load;
  except
    on E: Exception do
      MessageBox(Handle, PChar(E.Message), 'Fehler - DLL laden', MB_ICONSTOP);
  end;

[cruiser]

mhm... gute Idee. Vielleicht eher unwichtige Frage... aber... DLL nur in einer Unit laden und Uses anpassen oder in jeder unit die Externals austauschen? Was wäre da günstiger?