DLL ignorieren wenn nicht im Pfad

[EWeiss]

Wie man diese statisch/Dynamisch läd ist mir klar.
Mein Problem!

Ich möchte eine DLL wenn sie nicht im Pfad ist aber trotzdem als Unit bsp. BassMix
eingebunden ist ignorieren können wenn die Anwendung startet.
Geht so was?

Meine DLL soll also nicht zwingend auf die anderen DLL's angewiesen sein.

Bei Statisch eingebundenen DLL's verstehe ich das es nicht geht
Aber warum nicht bei Dynamischen.. welchen sinn hat dann LoadLibrary?

Ich verwende davon eine Function die ich theoretisch wenn das Handle 0 ist bei LoadLibrary überspringen könnte
Aber die Anwendung will immer die DLL.


gruss

[lbccaleb]

Prüfe zu erst ob die Datei existent ist (FileExists) und dann führe LoadLibary aus.

Ich hatte das auch mal gemacht:

Delphi-Quellcode:

          if FileExists(ExtractFilePath(paramstr(0)) + szOSADSDLL) then begin;
            if not OSADSPlugIn_Load then
              raise Exception.Create(szLoadPlugInErr)
            else AppendMenu(hToolSubMenu, MF_STRING, 1101, 'OSADS DB Scan PlugIn');
          end;

Delphi-Quellcode:

function OSADSPlugIn_Load: Boolean;
begin
  Result := False;
  hOSADSDll := LoadLibrary(PChar(ExtractFilePath(paramstr(0)) + szOSADSDLL));
  if hOSADSDll <> 0 then begin
    OSADSSendData := GetProcAddress(hOSADSDll, 'SendData');
    Result := Assigned(OSADSSendData);
  end
  else OSADSPlugIn_Close;
end;

Oder hab ich dich jetzt falsch verstanden ? oO

[EWeiss]

Das problem ist aber sobald der Export bzw.. die Unit eingebunden ist verlangt die Anwendung die DLL.
Die Datei ansich zu laden bzw.. zu prüfen ob sie existiert stellt nicht mein problem da trotzdem Danke.

Meine Unit als uses eingebunden Bassmixer.pas ohne das ich jetzt irgendetwas aufrufe macht die Anwendung dicht
da die DLL nicht gefunden wurde das will ich abfangen da ich ansonsten zu meiner DLL jedesmal fremde Bibliotheken mit ausliefern muss.
Das kann ich aber nicht.
Wobei ich aber die funktionen benötige da ansonsten bei verwendung von Wasapi und Mixer keine Visualisierung stattfindet.

gruss

[lbccaleb]

Kannst du dann die Unit nicht so abändern?

Die wird dann die dll auch so dynamisch laden wie oben..

(Ist zwar nicht das gelbe vom Ei in anderen Units rum zu fuschen aber ab und zu nötig :D )

[EWeiss]

Wie soll ich die abändern? (Darum geht es ja) ;)

Kleines Beispiel von einem Sample von delphi.about.com alles mal copy/paste

Delphi-Quellcode:

function CircleArea(const radius : double) : double; external 'circle.dll';

dynamisch laden..

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
type
  TCircleAreaFunc = function (const radius: double) : double; stdcall;
var
  dllHandle : cardinal;
  circleAreaFunc : TCircleAreaFunc;
begin
  dllHandle := LoadLibrary('circle.dll');
  if dllHandle <> 0 then
  begin
    @circleAreaFunc := GetProcAddress(dllHandle, 'CircleArea');
    if Assigned (circleAreaFunc) then
      ShowMessage('dynamic: ' + FormatFloat(',.00',circleAreaFunc(StrToFloat(Edit1.Text))))
    else
      ShowMessage('"CircleArea" function not found');
    FreeLibrary(dllHandle);
  end
  else
  begin
    ShowMessage('circle.dll not found / not loaded');
  end;
end;

dynamisch.. auch das teil verlangt nach der DLL
da die Function CircleArea im Header diese erwartet.

wie soll ich das umgehen das der Compiler diese ignoriert und nicht mehr nach der DLL sucht/Fragt.

gruss

[lbccaleb]

Also ich habe die Function in der Unit global als Variable angegeben:

Delphi-Quellcode:

var
  OSADSSendData: function(Addresse, Data: WideString; AjaxFunc: TAjaxEvenFunc): WideString;// overload;

und dann halt dynamisch geladen, wie oben zu sehen ist. Das gab bisher noch keine Probleme...

[EWeiss]

Zitat:

Zitat von lbccaleb (Beitrag 1220503)

Also ich habe die Function global als Variable angegeben:

Delphi-Quellcode:

var
  OSADSSendData: function(Addresse, Data: WideString; AjaxFunc: TAjaxEvenFunc): WideString;// overload;

und dann halt dynamisch geladen, wie oben zu sehen ist. Das gab bisher noch keine Probleme...

Ahhh das könnte klappen ;)
Werde das mal versuchen denke dieses External macht diese problem.

Danke dir :)

gruss

[DeddyH]

Klar, mit external ist es ja statisches Laden. Wie schon gesagt, LoadLibrary/GetProcAddress benutzen und Rückgaben auswerten, wenn Ersteres 0 ist, konnte die DLL nicht geladen werden, wenn Letzteres nil ist, konnte die Routine nicht geladen werden (wurde nicht exportiert etc.).

[EWeiss]

Zitat:

Zitat von DeddyH (Beitrag 1220505)

Klar, mit external ist es ja statisches Laden. Wie schon gesagt, LoadLibrary/GetProcAddress benutzen und Rückgaben auswerten, wenn Ersteres 0 ist, konnte die DLL nicht geladen werden, wenn Letzteres nil ist, konnte die Routine nicht geladen werden (wurde nicht exportiert etc.).

Ja.. Du hast recht irgendwie auch logisch.
Hab das vergessen das external = statisches Laden ist. :oops:

Jetzt funktioniert es wie es soll

Danke euch.

gruss

[Der schöne Günther]

Mein Geschmack ist es nicht, aber das hier ist doch eigentlich genau das, was du willst, oder?

Delayed Loading of a DLL von François Piette:

Zitat:

Just add delayed keyword in each function declaration and suddenly a static DLL is loaded the first time one of his functions is called. If you never call a DLL’s function, then the DLL is not loaded at all.

Könnte dann bsp. so aussehen:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  function GetSomething: Integer; external 'somelibrary.dll' delayed;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
   try
      GetSomething();
   except
      on EExternalException do ShowMessage('DLL nicht gefunden');
   end;
end;

end.