DLL ignorieren wenn nicht im Pfad

[EWeiss]

Die Frage wäre dann wo liegt der Unterschied denn die von lbccaleb
vorgeschlagene funktioniert eigentlich so wie sie soll.

Muss ja nicht mit Gewalt ein Exeption erstellen wenn es vermeidbar ist.

gruss

[DeddyH]

Viel interessanter finde ich die Frage, was passiert, wenn die DLL die entsprechende Routine gar nicht exportiert. Mit GetProcAddress erhalte ich einen Nil-Pointer, aber bei Delayed Loading?

[EWeiss]

Zitat von DeddyH:

Viel interessanter finde ich die Frage, was passiert, wenn die DLL die entsprechende Routine gar nicht exportiert. Mit GetProcAddress erhalte ich einen Nil-Pointer, aber bei Delayed Loading?

Wie schon gesagt man muss nicht absichtlich exeption generieren..

Das reicht mir so für die eine function

  BASS_WASAPI_GetData : function(buffer: Pointer; length: DWORD): DWORD;

Delphi-Quellcode:

  if FileExists(ExtractFilePath(paramstr(0)) + basswasapi) then
  begin
    WasabiHandle := LoadLibrary(basswasapi);
    if WasabiHandle <> 0 then
    begin
      @BASS_WASAPI_GetData := GetProcAddress(WasabiHandle, 'BASS_WASAPI_GetData');
      if not Assigned (BASS_WASAPI_GetData) then
      begin
        ShowMessage('"Dynamic load"' + #13#10 + 'loading.. function BASS_WASAPI_GetData fail');
        Halt;
      end;
    end;
  end;

gruss

[DeddyH]

Ja eben, so hast Du wenigstens die Kontrolle, wenn auch etwas mehr Tipparbeit.

[EWeiss]

Und der Rest macht auch keine Problem..

Delphi-Quellcode:

         if WasabiHandle and MixerHandle <> 0 then
         begin
           if UseWASAPI then
             Data := BASS_WASAPI_GetData(@SpectrumData, BASS_DATA_FFT2048)
           else
           Data := BASS_Mixer_ChannelGetData(FChannelId, @SpectrumData, BASS_DATA_FFT2048);

           if Data = -1 then
             BASS_ChannelGetData(FChannelId, @SpectrumData, BASS_DATA_FFT2048);
         end else
         BASS_ChannelGetData(FChannelId, @SpectrumData, BASS_DATA_FFT2048);

damit bin ich hiermit fertig

gruss

[Der schöne Günther]

Ich sehe den Unterschied nicht. Das delayed -Schlüsselwort verursacht beim Aufruf genauso eine EExternalException wenn die Datei nicht existiert, als wenn der Einsprungspunkt nicht existiert.

Aber wie gesagt, mein Geschmack ist es trotzdem auch nicht, ich suche mir den Kram auch lieber mit GetProcAddress selbst zusammen

[EWeiss]

Zitat von Der schöne Günther:

Ich sehe den Unterschied nicht. Das delayed -Schlüsselwort verursacht beim Aufruf genauso eine EExternalException wenn die Datei nicht existiert, als wenn der Einsprungspunkt nicht existiert.

Aber wie gesagt, mein Geschmack ist es trotzdem auch nicht, ich suche mir den Kram auch lieber mit GetProcAddress selbst zusammen

Allemal schon interessant was anderes zu sehen aber manchmal ist mehr einfach Mehr

gruss

[lbccaleb]

Zitat von EWeiss:

...

Delphi-Quellcode:

  if FileExists(ExtractFilePath(paramstr(0)) + basswasapi) then
  begin
    WasabiHandle := LoadLibrary(basswasapi);
    if WasabiHandle <> 0 then
    begin
      @BASS_WASAPI_GetData := GetProcAddress(WasabiHandle, 'BASS_WASAPI_GetData');
      if not Assigned (BASS_WASAPI_GetData) then
      begin
        ShowMessage('"Dynamic load"' + #13#10 + 'loading.. function BASS_WASAPI_GetData fail');
        Halt;
      end;
    end;
  end;

gruss

Noch nen Tipp am Rand: Ich würde es noch vermeiden bei einem erkannten Fehler die Anwendung einfach mit Halt zu beenden. Du könntest in dem Fall nen bereits geladenen Teil im Speicher behalten.
Beende also die Anwendung normal und stell sicher das alles entladen wurde.

[Sherlock]

delayed bedeutet doch nur, daß die DLL überhaupt erst dann geladen wird, wenn sie auch verwendet wird (Arbeitsspeicherentlastung), die Direktive entbindet nicht von der Verantwortung zu prüfen, ob die DLL da ist und funktioniert.

Sherlock

[EWeiss]

Zitat:

Ich würde es noch vermeiden bei einem erkannten Fehler die Anwendung einfach mit Halt zu beenden.

In Anwendungen mache ich das auch nicht.
Aber bei dieser Bibliothek welche nur als wrapper funktioniert dürfte das egal sein.

Die Plugins beenden sich von allein.

Aber wenn ud meinst es wäre besser kann ich es ohne probleme noch ändern.

Delphi-Quellcode:

      if not Assigned (BASS_Mixer_ChannelGetData) then
      begin
        ShowMessage('"Dynamic load"' + #13#10 + 'loading.. function BASS_Mixer_ChannelGetData fail');
        FreeLibrary(MixerHandle);
        BassVis1.QuitVisPlugin;
      end;

gruss