DLL Side-by-side registration & redirection

[KodeZwerg]

Zitat von Der schöne Günther:

Da ist mein Problem dass ich ja im Endeffekt gar nichts mit LoadLibrary mache, das tun wohl irgendwelche Delphi-Automatismen im Hintergrund.

Nur eine Überlegung, in was auch immer für Unterordner, was passiert wenn Du dann RegSvr32/TRegSvr darauf loslässt?
Also SxS so wie Du es bereits machst nur die Typbibliothekregistrierung umverfrachten.

edit
Wobei, wenn ich das aus meinem Link da oben richtig verstehe, der Unterordner sich im %PATH% befinden sollte.

[EWeiss]

Zitat:

Mich stören die Beschränkungen dass die DLL im gleichen Verzeichnis wie die .exe-Datei liegen muss. Es gibt ein paar weitere Regeln wo sie auch liegen darf, aber ich mag die alle nicht:

Keine DLL muss im EXE Pfad liegen wenn du es nicht willst.
Vorausgesetzt man macht es richtig.

Was hier abgeht ist letztendlich nur Raten und ein Glücksspiel, geht dies geht das.
Wenn ich ein DLL außerhalb meines Anwendungspfad verwenden will dann setze ich die Umgebung und gut ist.

Zitat:

Wahrscheinlich einfach nur Spinnerei, aber ich würde mich trotzdem freuen wenn es geht.

Klar geht das wenn du wie schon gesagt die Umgebung setzt. (setzen kannst)

Ist das gleiche wie mit der Bass.dll da wird auch immer gesagt sie muss sich im EXE Pfad befinden das ist aber absoluter quatsch.
Sie darf nur nicht in den System Pfad verlegt werden weil sich die Versionen unterscheiden und andere Anwendungen dann nicht mehr laufen.
Auch meine DLL Bass_Vis lege ich nicht im Anwendungspfad genauso wenig wie im Pfad der Bass.DLL

MeinPfad\Player.exe
MeinPfad\Bass_Lib\Bass.dll
MeinPfad\Bass_ADDOn\Bass_Vis.dll
MeinPfad\Bass_ADDOn\bass_fx.dll

Du siehst also ich habe auch eine Struktur angelegt wo ich meine DLL's ablege.
Ich mag es genauso wenig wie du wenn alles im Anwendungspfad geklatscht wird.
Also du bist der Boss deiner Anwendung und legst selber fest wo sich deine DLL's befinden sollen.

gruss

[KodeZwerg]

Emil, er benutzt nicht LoadLibrary() wie Du mit Bass.dll. Was er beschreibt ordne ich eher .OCX (ActiveX) zu.

[EWeiss]

Zitat von KodeZwerg:

Emil, er benutzt nicht LoadLibrary() wie Du mit Bass.dll. Was er beschreibt ordne ich eher .OCX (ActiveX) zu.

Ich verwende kein LoadLibrary wer sagt dir das?

Das einzige Problem das er haben könnte wenn er die Umgebung setzt das der seltsame Compiler von Delphi die DLL selber lädt bevor er die Umgebung setzen kann.
Wenn also die DLL dann nicht gefunden wird startet das Programm erst gar nicht.
VB zum Beispiel tut das nicht.

Beispiel:

Delphi-Quellcode:

var
  MeinDLLPath: string;

begin

  MeinDLLPath := ExtractFilePath(ParamStr(0)) + 'Meine_Lib';
  SetEnvironmentVariable(PWideChar('Path'), PWideChar(MeinDLLPath));
  if not FileExists(ExtractFilePath(ParamStr(0)) + 'Meine_Lib\Meinelib.dll') then
    Halt;
end;

Ich befürchte aber das es trotz meiner Aussage bedingt durch den Compiler von Delphi nicht funktionieren wird wenn es keinen Schalter gibt
der verhindert das die Anwendung sich beendet wenn die DLL nicht gefunden wird bevor man die Umgebung setzen kann.

Zumindest unter VB gibt es diesbezüglich keine Probleme ohne LoadLibrary.
Vielleicht kann man das umgehen wenn man vorher eine Batchdatei erstellt. (nicht getestet)

gruss

[EWeiss]

Hier ein Beispiel in Sharp..
Von meinem BassVis Example in C# (Sharp)

Code:

private void BassInit()
{
  string BassPath;
  string BassVisPath;
  BASS_DEVICEINFO info;

  BassPath = Path.Combine(Application.StartupPath, "BassLib");
  Win32Api.SetEnvironmentVariable("Path", BassPath);

  // check the correct BASS was loaded
  if (Win32Api.HiWord(Bass.BASS_GetVersion()) != Bass.BASSVERSION)
  {
    MessageBox.Show("BASS_Vis.DLL existiert nicht!", "", MessageBoxButtons.OK, MessageBoxIcon.Error);
    Application.Exit();
  }

  //Set Path to AddOns
  BassVisPath = Path.Combine(Application.StartupPath, "BassADDOn");

  Win32Api.SetEnvironmentVariable("Path", BassVisPath);

  //Check "bass_Vis.dll" exist

  string visDll = Path.Combine(Application.StartupPath, @"BassADDOn\bass_Vis.dll");

  if (!File.Exists(visDll))
  {
    MessageBox.Show("BASS_Vis.DLL failed to load!", "BASS_Vis.DLL", MessageBoxButtons.OK, MessageBoxIcon.Error);
    Application.Exit();
  }

  // setup recording and output devices (using default devices)
  if ((Bass.BASS_RecordInit(-1) == false) || (Bass.BASS_Init(-1, 44100, 0, Handle, Guid.Empty) == false))
  {
    MessageBox.Show("Can\'t initialize device", "BASS.DLL", MessageBoxButtons.OK, MessageBoxIcon.Error);
    Application.Exit();
  }
  else
  {
    input_ = 0;
    info = new BASS_DEVICEINFO();
    while (Bass.BASS_RecordGetDeviceInfo(input_, info))
    {
      Bass.BASS_RecordGetDeviceInfo(input_, info);
      cmbInputs.Items.Add(info.name);
      input_++;
    }
    cmbInputs.SelectedIndex = 0;
  }

  Text = "Bass_Vis Example for C# VS2012:  BassVis Version: " + BassVis.BASSVIS_GetVersion();
  Width = 498;
}

#endregion BassInit()

Ich setze die Umgebung nur für diese Anwendung nicht global von außen kann das also niemand sehen.
Die Anwendung startet ohne zu murren und die DLL's werden gefunden.

Und nein die DLL's werden nicht dynamisch geladen.
Ich glaube aber das Problem ist Delphi in dem Fall.

Zitat:

das tun wohl irgendwelche Delphi-Automatismen im Hintergrund.

gruss

[Der schöne Günther]

Zitat von EWeiss:

Also du bist der Boss deiner Anwendung und legst selber fest wo sich deine DLL's befinden sollen.

Wie schon eingangs geschrieben geht es nicht um eine simple DLL sondern eine ActiveX-Komponente die meines Wissens nach entweder fest im System registriert werden muss oder halt direkt über diese lustige Side-by-side registration eingebunden werden kann.

[EWeiss]

Zitat:

geht es nicht um eine simple DLL sondern eine ActiveX-Komponente

Ach so und du denkst die wären was besonderes? Was ist da soviel anders?
Wie viele ActiveX DLL's möchtest du haben die ich schon selbst geschrieben habe?

Aber da du diese nicht mit LoadLibrary in den Speicher laden willst vergiss es
denn das ist eine der Voraussetzungen um ActiveX dll's während der Laufzeit zu registrieren und auszuführen.
Wie gesagt im welchen Pfad diese sich befinden ist wurscht.

gruss

[Der schöne Günther]

Ich halte mich an das was der Hersteller sagt.

Beispiel:

Zitat:

Prior to Windows XP, an ActiveX control had to be registered on the system before it could be used by an application. This registration creates a few issues among which:
Registering a control requires administrative rights on a system.
Registering a control affects multiple applications as the same DLL is shared among all applications using the same version of the control (some developers refer to this issue as the DLL hell.)
An application that unregisters a control will prevent all other applications from using it.
The solution to these issues is to use side-by-side activation, or registration-free components; a concept that is very similar to what was introduced with .NET.
When side-by-side registration is used, two things happen:
scvncctrl.dll can be placed in each application's folder and is not shared with other applications.
The ActiveX control is not registered in the system wide registry but each application acts as if it had its own registered component.

https://support.s-code.com/Knowledge...m-registration

Heißt: Es muss entweder registriert werden oder man nutzt "side-by-side".

[EWeiss]

Kenne die DLL nicht.

Zitat:

Heißt: Es muss entweder registriert werden oder man nutzt "side-by-side".

Oder LoadLibrary.

Ich mache es so.. mit LoadLibrary von meinem Plugin System.

Code:

Private Sub CheckVisPlugin()

    VisPlugin = GetSetting(App.EXEName, "Option", "PluginVisual", vbNullString)
    If Right$(VisPlugin, 4) = ".dll" Then
        RegServe VisPlugin, True
        VisPlugin = GetFileName(VisPlugin)
        PluginName = Left$(VisPlugin, Len(VisPlugin) - 4)
        Set PluginVis = CreateObject(PluginName & ".clsMain")
        msgPlg.Visual = True
        PluginVis.ToolBarVisible = frmToolbar.Visible = True
        PluginVis.EQVisible = frmEqualizer.Visible = True
        PluginVis.SkinChange sOldSkinName

        If Me.WindowState = vbMinimized Then
            PluginVis.PlayerVisible = False
        Else
            PluginVis.PlayerVisible = Me.Visible
        End If

        If stndPlayList = 1 Then
            PluginVis.PlaylistVisible = True
            PluginVis.PlaylistPos frmPlayList.Left, frmPlayList.Top, frmPlayList.Width, frmPlayList.Height
        Else
            PluginVis.PlaylistVisible = False
        End If
        PluginVis.Execute FrmMain_Hwnd
    End If

End Sub

Code:

Public Function RegServe(ByVal Path As String, _
                         ByVal mode As Boolean) As Boolean

Dim insthLib As Long
Dim lpLibAdr As Long
Dim hThd     As Long
Dim lpExCode As Long
Dim procName As String
Dim Result   As Long
Dim okFlag   As Boolean
'### DLL in den Speicher laden

    insthLib = LoadLibrary(Path)
    '### Aktion wählen
    If insthLib Then
        If mode Then
            procName = "DllRegisterServer"
        Else
            procName = "DllUnregisterServer"
        End If
        '### Adresse der DLL im Speicher
        lpLibAdr = GetProcAddress(insthLib, procName)
        If lpLibAdr <> 0 Then
            '### Aktion starten
            hThd = CreateThread(ByVal 0, 0, ByVal lpLibAdr, ByVal 0&, 0&, 0&)
            If hThd Then
                '### Maximal 5 sec warten
                Result = WaitForSingleObject(hThd, 5000)
                If Result = STATUS_WAIT_0 Then
                    '### Vorgang erfolgreich in 5 sec beendet
                    Call CloseHandle(hThd)
                    okFlag = True
                Else
                    '### 5 sek. überschritten -> Thread schließen
                    Call GetExitCodeThread(hThd, lpExCode)
                    Call ExitThread(lpExCode)
                    Call CloseHandle(hThd)
                End If
            End If
        End If
        '### Speicher wieder freigeben
        Call FreeLibrary(insthLib)
    End If
    
    If Not okFlag Then
        MsgBox ("Fehler! Der Vorgang wurde abgebrochen.")
    Else
        'MsgBox ("Der Vorgang war erfolgreich!")
    End If
    
    RegServe = okFlag
    
End Function

Nur damit du siehst das ich dir nicht nur was erzähle sondern weis wie es geht.

gruss

[Der schöne Günther]

Und das funktioniert ohne Adminrechte?

Denn regsvr32.exe macht ja im Endeffekt auch genau das was der obige Quellcode tut. Ich bin sehr ungläubig, aber ich probiere es bei Gelegenheit aus.


MSDN: ActiveX-DLLs und OCX-Dateien per Quellcode registrieren und deregistrieren