Foro de elhacker.net

Hola, tengo una duda sobre como cargar una dll a memoria y asi usarla en el programa a la cual esta referenciada.

mi objetivo es embeber como recurso las dll dentro del .exe y asi al ejecutarse el programa cargar esas dll a memoria y usar el programa normalmente.

la DLL en cuestion es un control que te agrega varios controles en la barra de herramientas, botones, etc...todos personalizados.

ya he probado de los ejemplos basicos de ponerla como recurso y despues leerla y escribirla en el disco y asi el programa la carga bein, el tema de esto es que yo no quiero escribirla en el disco, quiero usarla desde memoria.

de ultima si hay problemas con esto de cargarla desde memoria, lo que me solucionaria el tema es que se escriba en el disco (como ya hice) pero que la tome bien desde cualquier parte, porque solo la toma desde el mismo directorio donde esta el .exe, habria que ver como decile que la saque de cualquier lado que se especifique.

tampoco puedo usar un LoadLibrary ya que yo no quiero ejecutar funciones que estan dentro de la dll, esta dll son botones personalizados, es como un control de usuario.

gracias desde ya.

saludos.

Hola,

Bueno tienes que cargar el assembly en memoria, tienes que usar la clase Assembly en System.Reflection.

Supongo que ya sabes como embeber el assembly dentro del exe. Lo que tienes que hacer es sacar el byte[] y meterlo en Assembly.Load(byte[] aca)

Con eso debería funcionar porque queda cargado dentro del application domain, es lo mismo que pasa cuando referencias un assembly con VS.

Entonces deberias usar es AppDomain.CurrentDomain.Load() la sobrecarga que más te convenga. Sino funciona habrá que usar AppDomain.CurrentDomain.AssemblyResolve y pasarle el assembly cuando no lo encuentre..

Saludos!

gracias por responder [D4N93R] , vos sabes que ya habia probado con lo que me contas, pero se ve que me faltaba algo, ahora SI ya quedo andando...aca dejo el codigo fuente para los que esten buscando lo mismo, anda 100 %.

Imports System.IO
Imports System.Reflection
 
Public Class Form1
 
    Public Sub New()
 
        ' Llamada necesaria para el Diseñador de Windows Forms.
        InitializeComponent()
 
        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf CargarLibreriaMemoria
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As New ClassLibrary1.Class1
        Call i.Saludo()
        i = Nothing
    End Sub
 
    Private Function CargarLibreriaMemoria(ByVal sender As Object, ByVal args As ResolveEventArgs) As Assembly
 
        Dim vStream As Stream = Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("WindowsApplication1.ClassLibrary1.dll")
        Dim vBuffer As Byte() = New Byte(vStream.Length - 1) {}
 
        vStream.Read(vBuffer, 0, vBuffer.Length)
 
        Dim vLibreria As Assembly = Assembly.Load(vBuffer)
 
        Return vLibreria
    End Function
End Class

obviamente antes hay que agregar la dll como "nuevo elemento existente" y ponerle en las opciones de compilación como "recurso embebido".

saludos y gracias.

saludos.

Puedes filtrar por el ResolveEventArgs, tiene una propiedad llamada Name, en donde te pide el nombre a resolver, en caso de que ese método se vuelva a llamar en otra oportunidad buscando otro assembly.

Saludos y que bueno que hayas resuelto el problema.

gracias, anda bien , pero el tema es que justo para lo que necesito no anda, o sea el control es un usercontrol, compilado en dll obviamente,proba si queres crear un usercontrol simple con un boton dentro, lo compilas a dll, despues desde otro proyecto agregar como referencia la dll y agregar como recurso como ya dije antes la misma, insertar un usercontrol al formulario, y ahi si que no anda. tira el error de que no se puede cargar el ensamblado o recurso.

saludos.

Bueno ahora lo pruebo, se me ocurre también que intentes meter ese control en tiempo de ejecución..

Voy a probar eso, pero de todos modos intenta lo que te dije.

Saludos!

me estoy rompiendo el mate, ya vi 20 mil ejemplos, creo que he visto que para cada dll hay que crear un Domain distinto...explico que son 3 dll en total las que necesito cargar, tambien claro que no tengo el codigo de las dll, o sea son dll ya compiladas , son controles de botones , combos..e.tc..los tengo puesto en un formulario a estos controles, el objetivo como explique es solo llevar el .exe , con las dll como recursos incrustados dentro y cargarlas a memoria para que se pueda usar, sino tira el basico error could not load assembly o recurse.

saludos.

seba,

Bueno, pues a mi me funciona de la siguente manera:

        static Assembly CurrentDomain_AssemblyResolve(object sender, ResolveEventArgs args)
        {
            Stream s = Assembly.GetExecutingAssembly().GetManifestResourceStream("LoadAssembly.UserControls.dll");
 
            return Assembly.Load(new BinaryReader(s).ReadBytes((int)s.Length));
 
        }
 

Es lo mismo que hiciste tú , aunque si tienes varias dll referenciadas tienes que condicionar eso por args.Name que te da el nombre del assembly que te pide.

El Assembly lo referencio y también lo agrego al proyecto como un archivo y lo marco como Embedded Resource en el Build Action.

Un saludo!

estas seguro que la libreria dll es un usercontrol ?? y si esa dll la agregaste a la barra de herramientas y lo has insertado en el formulario ??

Sip! Ahora mi turno :P

Estás seguro de que estas regresando el assembly correctamente ?

Prueba ponerle esto: (Nota: no se si esté bien, no me acuerdo bien de la sintaxis de VB.Net)

Private Function CargarLibreriaMemoria(ByVal sender As Object, ByVal args As ResolveEventArgs) As Assembly
 
        Dim vStream As Stream = Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("WindowsApplication1.ClassLibrary1.dll")
        IF vStream = Null Then
           MessageBox.Show("Ups stream es null")
        End IF
        Dim vBuffer As Byte() = New Byte(vStream.Length - 1) {}
 
        vStream.Read(vBuffer, 0, vBuffer.Length)
 
        Dim vLibreria As Assembly = Assembly.Load(vBuffer)
 
        Return vLibreria
End Function
 

te parece mal si te pido que subas el proyecto con el codigo ?

Lo subo mañana temprano en este mismo post, voy de salida. !

LISTOOOOOOOOOO  ;D ;D ;D , (paresco uno que recien empieza a programar y le sale el primer hola mundo jaja)

de tanto ver ejemplos comenze a ver como funciona realmente, puede que antes no lo tenia claro.

el error que estaba cometiendo es hacerlo en un formulario, o sea en el Load o el constructor del form, se ve que ahi no anda, porque el diseñador de windows forms lo carga antes de que yo haga la carga del assembly.

lo puse en un modulo con un Sub Main y funciona perfecto.

aclaro para el que no sabe que el evento AssemblyResolve se ejecuta cuando el programa no encuentra una dependencia, entonces ahi dentro del evento le podemos decir de donde sacar el assembly, si se lo pasamos mal obviamente se produce una excepción y se termina el programa.

como vos decias hay que usar el args.Name que devuelve la info del assembly que esta referenciado y no lo encuentra, este retorna el nombre de la libreria, la version, la cultura y el keytoken, algo asi:

System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089

entonces el codigo final queda asi:

Imports System.IO
Imports System.Reflection
 
Module Module1
    Sub Main()
        AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf CargarLibreriaMemoria
 
        Application.EnableVisualStyles()
        Application.Run(Form1)
    End Sub
 
    Private Function CargarLibreriaMemoria(ByVal sender As Object, ByVal args As ResolveEventArgs) As Assembly
 
        Dim vNombre As String = args.Name.Substring(0, args.Name.IndexOf(","))
 
        Dim vStream As Stream = Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("WindowsApplication1." & vNombre & ".dll")
        Dim vBuffer As Byte() = New Byte(vStream.Length - 1) {}
 
        vStream.Read(vBuffer, 0, vBuffer.Length)
 
        Dim vLibreria As Assembly = Assembly.Load(vBuffer)
 
        Return vLibreria
    End Function
End Module

con eso lo que hago es solo sacar el nombre del ensamblado que esta antes de la primer coma, o sea:

System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089

y listo con eso funciona...

obviamente debemos reemplazar WindowsApplication1 por el nombre de nuestro programa, yo lo puse asi fijo para ponerlo nomas, se puede averiguar desde codigo tambien.

si alguno quiere ver los nombres de los ensamblados que usa el programa lo puede ver asi:

        For Each asm As Assembly In AppDomain.CurrentDomain.GetAssemblies()
            Dim name As String = asm.FullName.Substring(0, asm.FullName.IndexOf(","))
        Next

gracias por tu tiempo [D4N93R] , decime tu nombre porque no me gusta llamar por nick  ;D

saludos.

Que bueno que resolviste!, justo iba  subirte el proyecto.

El problema era que estabas haciendo el AssemblyResolve en la clase del form? AAAAAAAAAAA, my bad! yo lo hacía en la clase Program, entonces claro, fallala referencia antes de que pudieses subcribirte al evento  :xD

Pero bueno, mucho mejor que lo hayas resuelto solo, así se aprende mucho más, el framework todo es así, muy poderoso pero hay que entenderlo bien.

Un tip: puedes usar GetManifestResourceNames() en la clase assembly para obtener todos los recursos dentro del assembly, sea mediante Assembly.GetExecutingAssembly() o por cualquier carga (Load) de assemblies.

Un saludo.

PD: Juan.  ;D