Discussion :

[-N4w4k-]

Rebonjour,

Aujourdh'ui j'ai plein de question

J'essaie d'implémenter une fonctionnalité supplémentaire pour une dll de gestion de fenetres dockables. Cette fonctionnalité est la sauvegarde de l'environnement de travail courant. J'ai commencé par crée un fichier XML qui contient entre autre ça:

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
<disposition>
	<tab>
		<window class="TestDocking.UserControl1"/>

On peut voir que j'ai un TabControl avec un contenu (dans un onglet).

J'ai poursuivi en essayant d'instancier ma classe UserControl1 à partir de la chaîne de caractère "TestDocking.UserControl1" mais c'est là qu'est le problème..

Étant donné que ma classe UserControl1 ne se trouve pas dans la même assembly que là où j'essaie de l'instancier, c'est plus compliqué d'un simple Type.GetType(className)..

J'ai trouvé ça sur le net (source)

Two things:

You need to include the namespace of the type
If the type isn't in mscorlib or the currently executing assembly, you need to specify the assembly name as well (including version numbers and public key information if it's a strongly-named assembly).
So for instance, to get hold of System.Linq.Enumerable you'd need something like:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Type.GetType("System.Linq.Enumerable, System.Core, Version=4.0.0.0, " & _
             "Culture=neutral, PublicKeyToken=b77a5c561934e089")

Sauf que je ne trouve pas les données nécessaires (version, public key, etc.)..

[Gurdil le nain]

Tu as regardé du côté de la Reflexion ?

Tuto

[-N4w4k-]

C'est déjà ce que je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Public Function GetInstance(ByVal strType As String) As Object
        Try
            Dim o = Activator.CreateInstance(Type.GetType(strType), New Object() {Me})
            Return o
        Catch ex As Exception
            MsgBox("Impossible d'instancier l'objet " + strType)
            Return Nothing
        End Try
    End Function

mais j'ai besoin du type et comme l'objet ne fait pas partie de la même assembly, j'ai besoin du nom complet de l'assembly. J'ai d'ailleurs trouvé comment l'avoir par le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Public Function GetAssemblyFullName(ByVal o As Object)
        Dim myAssembly As [Assembly] = [Assembly].GetAssembly(o.GetType)
        If Not (myAssembly Is Nothing) Then
            Return myAssembly.GetName.FullName
        End If
        Return ""
    End Function

Sauf que l'attribut PublicKeyToken = null.. C'est à nous de le définir auparavant?

[Gurdil le nain]

Ba si tu as le chemin de la DLL qui définit les types voulus, tu peux la chargée comme ça aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Assembly.LoadFile(cheminVersLaDll)

[-N4w4k-]

Ça c'est nikel! Sauf que..

VS ne veut pas charger l'assembly car elle se trouve sur un emplacement réseau:

Exception:

Tentative de chargement d'un assembly à partir d'un emplacement réseau qui aurait entraîné l'utilisation de l'assembly en mode Bac à sable (sandbox) dans les versions antérieures du .NET Framework. Cette version du .NET Framework n'activant pas la stratégie CAS par défaut, ce chargement peut être dangereux. Si ce chargement n'est pas destiné à utiliser l'assembly en mode Bac à sable (sandbox), activez le commutateur

J'ai trouvé cette solution mais je ne trouve pas le bouton en question dans les propriétés..

Je continue de chercher.

[Gurdil le nain]

Ah ouais moi non plus ^^

T'as essayé la réponse d'en dessous, où il définit un AppDomain :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
var appDomain = AppDomain.CreateDomain(assemblyName);
var assembly = appDomain.Load(File.ReadAllBytes(assemblyName));

[-N4w4k-]

Ouai mais j'ai pas réussi.. Cependant

J'ai trouvé une solution! Dans le repertoire de l'application (même emplacement que le myApp.exe) j'ai crée un fichier de configuration manuellement et rempli comme ça:
myApp.exe.config

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
   <runtime>
      <loadFromRemoteSources enabled="true"/>
   </runtime>
</configuration>

Et maintenant ça marche!

Je poste mon code (que j'ai un petit peu modifié):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    'exemple avec la dll "ClassLibrary1.dll"
    'ça fonctionne pour moi si strType = "ClassLibrary1.UserControl1"
    Public Function GetInstanceFromRemoteDLL(ByVal strType As String) As Object
        Try
            Dim parts As String() = strType.Split(".")
            Dim aPath As String = Application.StartupPath + "\" + parts(0) + ".dll"
            Dim a As Assembly = Assembly.LoadFile(aPath)
            Dim t As Type = a.GetType(strType)
            Dim o = t.GetConstructor({GetType(DockContainer)}).Invoke(New Object() {Me})
            Return o
        Catch ex As Exception
            MsgBox("Impossible d'instancier l'objet " + strType + vbCrLf + ex.Message)
            Return Nothing
        End Try
    End Function

Merci pour ton aide Gurdil!