DLL ignorieren wenn nicht im Pfad

[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 )

[EWeiss]

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

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

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 von lbccaleb:

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 von 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.).

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

Jetzt funktioniert es wie es soll

Danke euch.

gruss