(SOLUCIONADO) Adjuntar DLL dentro del Executable?

Iniciado por Eleкtro, 23 Noviembre 2012, 15:43 PM

0 Miembros y 2 Visitantes están viendo este tema.

Eleкtro

Estoy siguiendo estos pasos:


CitarAdd the desired assembly (stdlib.dll) to the project's resources.
   Go to the Resources tab of the Project Properties and choose Add Resource > Add Existing File...
   Switch to the Application tab and click on the View Application Events button.

   Add this code to the ApplicationEvents.vb code that opens.

Código (vbnet) [Seleccionar]
   Private Sub AppStart(ByVal sender As Object,
     ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
       AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf ResolveAssemblies
   End Sub

   Private Function ResolveAssemblies(sender As Object, e As System.ResolveEventArgs) As Reflection.Assembly
       Dim desiredAssembly = New Reflection.AssemblyName(e.Name)

       If desiredAssembly.Name = "the name of your assembly" Then
           Return Reflection.Assembly.Load(My.Resources.STDLIB) 'replace with your assembly's resource name
       Else
           Return Nothing
       End If
   End Function

   Now compile your project and you'll have the dependent assembly incorporated into the output as a single file.

El problema es que lo he hecho todo, pero me da error el "applicationEvents.vb"

Error 1 Statement is not valid in a namespace. C:\Users\Administrador\Desktop\WindowsApplication19 - copia - copia\ApplicationEvents.vb 1 1 WindowsApplication19


Mi ApplicationEvents estaba vacío al abrirlo, no se si ese puede ser el error, quizás me falta algo, solo tengo esto :

Código (vbnet) [Seleccionar]
Private Sub AppStart(ByVal sender As Object,
 ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
   AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf ResolveAssemblies
End Sub

Private Function ResolveAssemblies(sender As Object, e As System.ResolveEventArgs) As Reflection.Assembly
   Dim desiredAssembly = New Reflection.AssemblyName(e.Name)

   If desiredAssembly.Name = "Ookii.Dialogs.dll" Then
       Return Reflection.Assembly.Load(My.Resources.Ookii.Dialogs) 'replace with your assembly's resource name
   Else
       Return Nothing
   End If
End Function








seba123neo

esta pregunta la hice hace unos años:

[Solucionado] Cargar DLL a memoria

ahi tenes como hacerlo.

por ejemplo yo uso un control de grilla (que es una dll), antes tenia que llevar la dll con el exe, pero ahora con eso va el .exe solo, ya que la dll esta adentro del proyecto como recurso embebido y se carga a memoria al ejecutarse.

saludos.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

Eleкtro

Gracias Seba, he copiado tu solución en mi form, pero no anda, he tenido que eliminar estas líneas en el form load:
Código (vbnet) [Seleccionar]
       Dim i As New ClassLibrary1.Class1
       Call i.Saludo()
       i = Nothing

(me daba error en la primera, porque no tengo definida "class1")

Pero la dll no se adjunta.


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

Lo primero te refieres a agregar la DLL a "Resources"? Eso ya lo hice
y las opciones de compilación, ¿Donde encuentro eso?

EDITO: "Propiedades > compile"? que hago ahora allí?

Un saludo!








seba123neo


  • 1 - Supongamos que tengo un boton personalizado que es una dll, primero como cualquier control tenes que obviamente agregarlo como referencia asi lo podes usar desde el codigo, eso ya lo debes tener
  • 2 - Luego tenes que agregar el archivo dll al proyecto, click derecho en el arbol del proyecto y seleccionas agregar elemento existente, buscas la dll y la agregas, fijate que te debe aparecer la dll en el arbol de proyectos.
  • 3 - Seleccionas la dll y en las propiedades en "Accion de compilacion" le pones "Recurso Incrustado", luego colocas ese codigo del ultimo post del link que te pase, en un modulo comun (no de clase) y tenes que especificarle que tu proyecto comienze desde el Sub_Main y no desde el Load del formulario.

compilas y probas llevar el .exe a una carpeta vacia, de esa manera si llevas el .exe compilado a una carpeta vacia, cuando ejecutes el .exe va a querer buscar esa dll en el directorio, pero como no lo va a encontrar, se va a ejecutar ese evento del modulo y lo va a cargar desde el recurso.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

Eleкtro

Cita de: seba123neo en 23 Noviembre 2012, 16:16 PM
1. colocas ese codigo del ultimo post del link que te pase, en un modulo comun (no de clase)
2. y tenes que especificarle que tu proyecto comienze desde el Sub_Main y no desde el Load del formulario.

Hice todo lo que me dijiste, me quedé en ese punto, no se hacerlo  :(

1. lo del módulo común es es el módulo agregado desde "agregar > nuevo módulo"?

2. ¿Me podrías indicar en que form debo cambiar eso? osea...en que línea está eso que tengo que cambiar?

saludos!








seba123neo

si, agrega un modulo comun y pone esto tal cual:

Código (vbnet) [Seleccionar]
Imports System.IO
Imports System.Reflection

Module Module1
    Sub Main()
        AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf CargarLibreriaMemoria

        Application.EnableVisualStyles()
        Application.Run(Form1) ' aca pone el nombre del formulario de inicio tuyo
    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


luego vas a las propiedades del proyecto (menu proyecto-propiedades del proyecto xxxxxx), le deshabilitas el check que dice "Habilitar marco de trabajo de la aplicacion" y de esa forma en el combo que dice "Formulario de inicio" te va a aparecer la opcion Sub_Main, la seleccionas y listo.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

Eleкtro

Pues he seguido tus pasos , pero al intentar compilar me dice:
Error   1   'Sub Main' is declared more than once in 'PlayLists': PlayLists.Module2.Main(), PlayLists.Module1.Main()   WindowsApplication19








seba123neo

ahi te dice que debes tener otro sub main en otro modulo, debes tener solo 1.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

Eleкtro

#8
ok gracias, eso lo sabía, lo que no sabía era que hacer con el otro sub_main xD, he borrado el otro módulo, no tenía mucha importancia.

Ahora ya he completado tus pasos, pero mi app sigue necesitando la dll!


me dijiste que copiase esto tál cual:

Código (vbnet) [Seleccionar]
 Dim vStream As Stream = Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("WindowsApplication1." & vNombre & ".dll")

¿Seguro que no debo poner el nombre de mi recurso ahí?


EDITO:













seba123neo

Me olvide decir que tenes que cambiar en el codigo donde dice windowsapplication1 por el nombre de tu proyecto.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson