Unterschiedliche DLLs einbinden

[FBrust]

Hallo,

in meinem Programm gibt es einen Bereich, den ich gerne in eine DLL auslagern möchte. Allerdings brauche ich je nach Niederlassung unterschiedliche DLLs, bei denen die Funktionen unterschiedliche Berechnungen durchführen (allerdings innerhalb des Programms gleiche Namen haben, d. h. die Funktion Auswertung() läuft in der einen DLL anders ab als in der anderen).

Nun möchte ich aber nicht alle DLLs mitliefern, sondern nur die DLL, die in der jeweiligen Niederlassung benötigt wird. Ich dachte daher, dem Programm eine INI-Datei mitzugegeben, in der der
Name der zu verwendenden INI-Datei hinterlegt und bei Programmstart eingelesen wird.

Allerdings stolpere ich schon über den Namen der DLL als Variable zu laden:

Delphi-Quellcode:

function DLLTest(): integer;
   external strDLL;

ergibt den Fehler "strDLL: unbekannter Bezeichner", obwohl strDLL als private in der Unit deklariert ist. Geht sowas überhaupt?

Grüße

Frank

[FBrust]

Hallo,

noch eine Anmerkung:

Nachdem ich die Definition von strDLL vom private- in den var-Bereich der Unit verschoben habe, erhielt ich die Fehlermeldung "Konstantenausdruck erwartet", scheint also nicht zu gehen, aber vielleicht hat ja einer von Euch eine Idee....


Grüße
Frank

[CenBells]

hallo,

der name der dll darf nicht im uses teil auftauchen sonst bindest du den teil wieder statisch ein.

Dein Code muss so heißen

Delphi-Quellcode:

function DLLTest(): integer;
   external 'Pfad zu deiner dll mit dem dateinamen ( kann auch ein relativer pfad sein)';

Gruß
Ken

[FBrust]

Hallo,

also muss ich den Namen der DLL fest angeben und kann ihn nicht aus einer Variable entnehmen, oder?

Gruß

Frank

[Pseudemys Nelsoni]

wenn du sie dynamisch lädst geht das

[Meflin]

das geht so:

Delphi-Quellcode:

type
  TInstallHook = function(Hwnd: THandle): Boolean; stdcall;
  TUninstallHook = function: Boolean; stdcall;

var
  InstallHook: TInstallHook;
  UninstallHook: TUninstallHook;
  lib: Cardinal;

begin
  lib := LoadLibrary('keyboardhook.dll');
  if lib <> INVALID_HANDLE_VALUE then begin
    InstallHook := GetProcAddress(lib, 'InstallHook');
    UnInstallHook := GetProcAddress(lib, 'UninstallHook');
  end; // else ERROR
end;

[FBrust]

Hallo,

danke für Eure Antworten, dynamisches Laden ist in diesem Fall wirklich sinnvoller.

Grüße

Frank